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ESUSR  -  Session  control  user  i  MACRO  V05.03b  Friday  28-Jun-85  20:01 
Table  o*  -ontents 

Macro  definitions 

Set  up  connect  request  services 

Accept  incoming  connect  request 

Outgoing  connect  request 

Buifd  session  control  portion  if  connect  initiate  message 

Build  process/task  descriptor 

Bui  Id  1 nage  mode  field 

Move  image  mode  field 

Map  node  name  to  node  address 

check  for  node  name  match 

Disconnect  logical  link 

Process  received  interrupt  mes';age  , 

romplete  interrupt  message  proc"ssing 


. 

A? 

M 

H- 

111 

9- 

is;j 

10- 

^^1 

11- 

?«/ 

V- 

',',{) 

n- 

'.M) 

K- 

■586 

1S- 

S(W 

16- 

S^'! 

1/- 

SSH 

18- 

!)81 
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Map  node  name  to  node  address 


500  001232 

001006 

501  00123A 

016A00 

OOOOU 

502  001 2A0 

0A2700 

001 '77 

503  001 2AA 

050065 

000012 

50A 

505  001250 

005727 

506  001252 

000261 

507  00125-; 

BNE  100$  ;  It  NE,  an  area  was  speci'ied 

MOV  D$LNUM(RA) ,R0   ;  Supply  our  own  area  for  this  request 

BiC  #*C<NM$ARA>,R0 

BIS  R0,N$SN0D(R5) 

100$:   TST  (PC)+         ;  Valid  node  name  mapping  found 
110$:   SEC  ;  Unable  to  find  node  name  mapping 

RETUR'^ 
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SYMBOL    CR03S   REFERENCE 


B     3 

PAGE  i* 

CREF       0';.00 


SYMBOL 

VALUE 

REFERENCE 

5 

W.MBOX 

000012 

17-576 

tACCNT 

- 

*♦♦**♦ 

GX 

10-275 

K-457 

14-474 

SCALLX 

= 

****** 

GX 

8-131 

8-145 

9-203 

9-223 

17-574 

18-600 

SDSDFM 

~ 

****** 

GX 

10-256 

tDSNOD 

- 

****** 

GX 

U-AA9 

U-A81 

15-526 

15-528 

15-530 

19-625 

SFLAGS 

r 

****** 

GX 

9-180 

•  U-405 

*14-497 

SFLOU 

- 

****** 

GX 

7-96 

SIOPKT 

- 

****** 

GX 

K-«8 

$LTM 

r 

****** 

GX 

7-78 

SMAIBX 

- 

****** 

GX 

»17-576 

SPASSW 

z: 

****** 

GX 

10-270 

1A-456 

14-467 

SREASN 

:; 

****** 

GX 

16-549 

SREQIO 

r 

****** 

GX 

10-265 

14-455 

14-460 

SSRDFM 

= 

****** 

GX 

10-260 

SSRVCS 

- 

****** 

GX 

»7-108 

8-139 

9-214 

-602 


18-604 
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DLXCEX  -  DLX/CEX  interface  rout 
Transm't  complete  processing 

232 
233 
23A 
235 
236 
237 
238 
239 
2A0 
2'-.l 
2^2 
2A3 
24A 
2^.5 
2A6 
247 
2A8  000352 

249  000356  105365 

250  000362  016400 

251  000366  016401 

252  000372  016403 
253 

254  000376  020027 

255  000402  001403 

256  000404  01000; 

257  000406  012700 

258  00C412  122764 

259  000420  001003 

260  000422 

261  000426  000404 
262 

263  00043C  105067 

264  0004  34 
265 
266  000440 
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.SBTTL  Transmit  complete  processing 

**-XMTCP-Transmit  complete  processing 

This  routine  is  entered  from  the  CDMM/EXtC  when  a  transmit  has  been 
completed  by  the  DLC  layer. 


Inputs: 


R4  =  Address  of  the  CCB 

C.NSP  -  Address  of  the  associated  I/O  packet 

C.SrS  -  Completion  status 

C.CNT  -  Number  of  bytes  transferred 


Registers  modi  tied: 

RO,  R1,  R2,  R3,  R4,  R5 


000003 
000012 
000020 
000004 

OOOOOOG 


OOOOOOG 
000004 


OOOOOOG 


XMTCP: 


000003  5$: 

10$: 
20$: 


CALL  STLNK 

DECS  L$TIP'R5) 

MOV  C.STS{R4),R0 

MOV  C.CNT(R4),Rl 

MOV  C.NSP(R4),R3 

CMP  RO,*IS.SUC 

BEQ  5$ 

MOV  R0,:<1 

MOV  #IE.VER,RO      , 

CMPB  #CB.RDB,C.B:D{R4) 

BNIE  10$ 

CALL  RLSCHN 

BR  20$ 

CLRB  $BUFFG 

CALL  aCCBRT 

CALLR  RQDON 


Get  address  of  physical  link  access  block 

Decrement  count  of  transmits  in  progress 

Get  completion  status 

Get  #  of  bytes  transferred 

Get  address  of  the  I/O  packet 

Successful  completion? 

BR  if  yes 

Save  error  code 

And  indicate  error 

■f  *.'F,  this  must  be  the  big  buffer 
Relecioe  the  buffer  chain 
and  enter  common  code 

Mark  the  big  buffer  free 
and  release  the  CCB 

Complete  the  I/O  request 
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SYMBOL  CROSS  REFERENCE 
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CREF   04.00 


SYMBOL   VALUE 

i$$AS 

l.FCN 

I.LN2 

I.PRM 

I.UCB 

KISAR6 

lENB 

LFSBRO 

LFSCHN 

LFSENB 

LFJMOP 

LFSRSR 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.wnc 

LF.MF^ 

LF.MTP 

LF.PAC 

LF.ROY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LLCRS 

LN.CLO 

LN.DUM 

LN.LOA 

LN.lOO 

LM.OAJ 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LRSOEA 

LRtDiS 

LRSSTP 

LSSDAT 

LSJERR 

LSSIDL 

LS$MS< 

LSSRST 

LblSTR 

LJCTl 


-  ****** 
=  ****** 
r  ****** 
=  ****** 

r  ****** 
:i  ****** 
=     ****** 

=  002000 
=  OO'.OOO 
=  000400 
=  001000 
=  100000 
=  100000 
=  OOOAOO 
=  000007 
=  002000 
=  001000 
=  000100 
--  004000 
=  ''00020 

=  :'-200 

=  040000 

=  010000 

=  000040 

=  000010 

=  020000 

=  000000 

-  ****** 

=  cooooo 

=  000005 
=  000004 
=  000003 
=  000003 
-•=  000001 

-  000000 
=  000004 
=  000001 
=  000C02 
=  000002 
=:  000017 
=  000360 
=  000006 
=  000200 
=  0CJ020 
=  000010 
r  000004 
=  000200 
=  00C001 
=  000037 

-  000020 
=  000002 

000012 


GX 
GX 
GX 
GX 
GX 
GX 


GX 


REFERENCES 

5-48 

19-504 

19-519 

13-288 

19-506 
*13-318 

9-116 

'7-442 

17-446 

9-115 

13-329 

11-196 
*5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 

9-140 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-5C 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 

19-528 

10-176 

10-173 

17-456 

13-532 

16-421 

11-197 

19-499 

17-439 

10-169 


19-5j£ 
13-289 


10-174 
17-451 

9-119 


^3-290  13-318 

19-526 

19-540  19-541 


13-323 


10-163 


10-166 


19-498 


•10-171 


19-536 


-9-558 


r DC  n  Tcn    Dv 


IWATDn        HM     OS-   II  IM-flt:      AT      OO.KX 


C     5 


DLXCHR  - 
Define  E 

265 
266 
267 
268 
269 
270 
271 
272 
27i 
27A 
275 
276 
277 
278 
279 
280 
281 
'82 
283 
28^ 
285 
286 
287 
288 
289 
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thernet  address  for  transmit 


000400  026027  000002  000006 

0OOA06  103^.16 

000410  016067  000010  OOOOOOG 

000416  016067  000012  OJ0002G 

0C042A  016067  000014  C00004G 

000432  052767  OOOOOOG  OOOOOOG 

000440  c;t7oi  000001 

000444 


.SBTTL  Define  Ethernet  address  for  transmit 

**-XPTADR-Def ine  Ethernet  address  for  transmit 

Define  the  Ethernet  address  to  he  used  for  this  message  transmission. 

Inputs: 

RO  =  Address  of  characteristics  block 

R1  =  Default  status  (CS.IGN  =  Characteristic  ignored) 

R3  =  Addr°ss  of  the  I/O  packet 

R5  =  Address  of  the  physical  link  access  block 


Outputs: 
Rl 


Status  to  return  for  characteristic 


XMTADR: 


10$: 


CMP 
BLO 

MOV 
MOV 
MOV 
BIS 

MOV 

RETURN 


C.DAT1(R0),#6 
10$ 


;  Are  there  at  least  6  bytes  of  address? 
;  If  LO,  no 


C.CHRL(RO),$ADfi  ;  Fill  in  Ethernet  address 

C.CHRLt2(R0),$ADR+2 

C.CHRi.+4(R0),$ADR  +  4 

#Fl$ADR,$FLAGS  ;  Indicate  Ethernet  address  seen 

#CS.SUC,R1      ;  Return  successful  completion 


i/nc  n7k  Cp-i'/^Ti 


C  6 
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DLXCTL  -  DLV,  ontroL  QIO  fundi 
Control  QIO  Tunction  processing 


11  ■ 
112 
113 
IK 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 

127  000044 

128  000050 

129  000052 

130  000054 
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.SBITL  Control  QIO  function  processing 

**-NXCIL-Control  QIO  function  processing 

This  function  is  called  to  perform  network  mnagement  control  functions 
for  a  physical  link. 

Inputs : 

R3  =  Address  of  I/O  packet 

I.PRM   -  Bias  of  <Line-id>  string 

I.PRM+2  -  Virtual  address  of  <Line-id>  string 

I.PRM+4  -  Length  of  <Line-id>  siring 


131 
132 
133 
134 
135 


000060 
000064 


000066 
000072 

136  000076 

137 

138 

139 

KO  000100 

141  0C0102 
000106 
0001  0 
0001  1 6 
000122 


116304  OOOOOOG 

006204 

006204 

012700  OOOOOOC 

022704  000022 

101545 

012702  ]77777 

103540 


Registers  modified: 


NXCTL: 


142 
143 
144 
145 
146 
147 
148 
149 


103^05 

052763  100030 


OOOOOOG 


10$: 


000124 


RO,  R1,  R2,  R3,  R4,  R5 


I.FCN(R3),R4 

R4 

R4 

#IE.0NP&377,R0 

#SFMAX,R4 

CTLERR 


Move 

ASR 
ASR 
MOV 
CMP 
BLOS 

MOV 

CALL 

BCS 


SAVRG 

CALL 

BCS 

BIS 

CALL 

RESRG 

.ENDC 

CALLR 


*-1,R2 

aSRCT8L(R4) 

CTLERR 


.IF  DF  N$$eUF 


<R0> 

aTSTSF 

10$ 

*100000,I.FCN(R3 

aiMIBF 

<R0> 


aFNCTBL(R4) 


Get  subfunction  code 
Form  table  inc-e\ 

Assume  invalid  subfunction  code 
Check  for  valid  code 
If  LOS,  error 

Indicate  dynamic  channel  assignment  not  required 
Search  for  <Line-id>  and  validate  user 
If  CS,  error 


Save  PDV  and  Cfiannel 

Can  this  I/O  request  be  buffered? 

If  CS,  no 

Initiate  buffering 
Recover  PDV  and  Channel 


Dispatch  to  processing  routine 


iirvc  A7i. 
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Continue  with  deassign  operation 


552 

553 

55A 

555 

556 

557 

558 

559 

V) 

561 

562 

563 

56A 

565  001106  100415 

566 

567  OQiilO 

568  001  IK  000421 


.S8TTL  Continue  with  deassign  operation 

**-CTLDEl-Cont inue  with  deassign  operation 

Update  the  COMM/EXEC  databases  to  reflect  the  new  line  deassignment . 

Inputs- 

RQ  =  PDV  and  Channel  of  target  LLC 

R1  =  Address  in  target  PDV  channel  mapping  table 

ft2  -   SLN  and  logical  tributary  ft   of  <Line-id> 

R3  =  Address  of  the  I/O  packet 

The  N-bit  is  set  from  a  'TST8  C.STS(RA) 


CTLDEl:  BMI 

CALL 
BR 


CTLA80 

OEASSN 
CTLDOM 


If  MI,  an  error  occurred 

Modify  the  COMM/EXEC  databases 
and  complete  the  reguest 


C  8 
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Macro  definitions 

44  .SBTL  Macro  definitions 

45 

46  .MCALL  PLAi'F$ 

4? 

48  000000  PLADFS  ;  Defi:  =  PLA  offsets 


C  9 


112701 
032715 
00U12 
052700 
0O0AO7 


112700 
00OAO2 


000010 
002000 

000020 


DLXLIN  -  DLX  Line  control  routi 
Stop  operation  of  a  physical  ch 

82 
83 
84 
85 
86 
87 


89 
90 

91 
92 
93 
94 
95 
96 
97 

98  0000A6 

99  000052 

100  000056 

101  000060 

102  00006A 
103 

104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
IK 
115 

116  000066 

117  000072 
118 

119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
12? 
130 

131  000074 

132  000100 
133 
134 
135 
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.SBTIL  Stop  operation  of  a  physical  channel 

**-A80RQ-Abort  ope'^ation  of  a  physical  channel 


000104 
000110 

136  000112 

137 

138  000116 


012700 
112701 

032715 
001002 
042700 

132715 


000030 


000010 
000220 

000400 

000020 

OC0006 


Inputs 


Stop  operation  of  a  physical  channel  by  issuing  a  stop  request  to  the 
channel. 

RO  =  Functions  requested  (stop  and/or  disable) 
R5  =  Address  cf  the  physical  link  access  block 


Registers  modified: 
RO,  R1,  Ra 

.EMABL  LS8 


ABORQ: :  MOVB 
BIT 
BEQ 
BIS 
BR 


#LS$STP,R1 

#LF$8R0,(R5) 

20$ 

*LR$DIS,RO 

20$ 


Set  new  state  to  stopping 

it  channel ? 
If  EQ,  no 


is  this  a  broadcast 


Always  force  a  disable  function 
Enter  common  code 


**-DISRQ-Disable  a  physical  channel 

Stop  operation  of  a  physical  channel  by  issuing  a  stop  and  a  disable 
request  to  the  channel. 

Inputs: 

R5  =  Address  of  the  physical  link  access  block 

Registers  modified: 
RO,  Rl,  R4 

5lSR0::  MOVB    #LR$STP ! LR$Di S ,R0 

BR      10$  ;  Enter  common  code 

«*-STPRQ-Stop  operation  of  a  physical  channel 

Stop  operation  of  a  physical  channel  by  issuing  a  stop  request  to  the 
channel . 

Inputs 


R5  =  Address  of  the  physical  link  access  block 

Registers  modified: 
RO,  Rl,  R4 


SIPRQ: :  MOV 
10$:    MOVB 


#LR$STP,RO     ;  Ind'cate  itop  required 
*LS$EPR:LS$RSr,R1 


20$: 


30$: 


BIT 
BI^E 
SIC 

BITB 


*LF$ENB,(R5) 

30$ 

#LR$DIS,RO 


Is  the  link  enabled? 

If  NE,  yes 

No  need  to  issue  the  disable 


*L5$5TP1LS$DAT,(R5, 
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CONTEXT  AREA  OFFSET  DEFINITIONS 


70 
71 
72 
73 
74 
75  OOOOOA 


000000 


OOOCOO 
000C20 


000000 
000000 
000002 
000003 
COOOOA 

000020 
OOOOAO 
000041 
0O0OA2 
OOCOAA 
000046 
000050 
000052 
000053 
00005A 
000055 
000056 
000060 
000062 
000063 
00006A 
000066 
000070 
000072 
000074 
000075 
C00075 
000076 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000110 
000112 
000114 
000116 
000120 


000020 


.S8TTL   CONTEXT  AREA  OFFSET  DEFINITIONS 

;■  CONTEXT  AREA  OFFSET  DEFINITIONS 

CKCX$  LI5T 

;  CONTEXT  AREA  OFFSET  DEFINITIONS 


.ASECT 

.  =  0 

LSNLEN  =  16. 


;  MAXIMUM  NAME  LENGTH 


The  offsets  LSNAM  to  L$PDV  inclusive  must  appear  in  the  same  order 
as  in  the  CIRCX$  and  LOCCXS  macros. 


LSNAM 


LSDDM. 

.BLKW   1 

LSCTL 

.BL<B   1 

L$UNT 

.BLK8   1 

L$PVC 

.BLKW   1 

.  ^  0+L$N 

LSSCN 

.BLKB   L 

L$TRS 

.8LKB   1 

L$PFG 

.BLKB   1 

LSSLT 

.BLKW   1 

L$NXT 

.BLKW   1 

L$SNM 

.BLKW   1 

LSTPT 

.BLKW   1 

L$TNM 

.BLKB    1 

L$CT8 

.BLKB   1 

L$CHN 

.BLKB   1 

LSPDV 

.BLKB   1 

LSMSG 

.BLKW   1 

L$euF 

.BLKW   1 

L$OPT 

.BLKB    1 

LSTVP 

.BLKB    1 

LSFLG 

.BLKW   1 

L$Fl1 

.BLKW   1 

L$FL2 

.BLKW   1 

L$PAR 

.BLKW   1 

L$SLF, 

g:  .BLKB   1 

L$PRU 

LSMTr 

=:  .BLKB   1 

LSFLX 

.BLKW   1 

L$STA 

.BLKB    1 

L$C0j 

.BLKB   1 

L$OWN 

.BLKB   1 

L$TAD 

.BLKB   1 

LSACl 

.BLKB   1 

L$DEA 

.BLKB   1 

L$DDT 

.BLKW   1 

L$DLT 

.BLKW   1 

L$PLT 

.BLKW   1 

LSBBT 

.BLKW   1 

L$NMT 

.BLKW   1 

L$XMT 

•   .BLKW   1 

DEVICE  NAME 

CONTROLLER  NUMBER 

UNIT  .NUMBER 

3RD  WORD  OF  PVC  NAME 
LEN    ;  SPACE  FOR  EXPANDED  CIRCUIT  NAME 
$NLEN         ;  CURRENT  NAME  IN  WILDCARD  SCAN 

TRIBUTARy  NUMBER 

PARSE  FLAGS 

Currant  SLT/PVC  address 

Pointer  to  next  SLT/PVC  address 

REMAINING  NUMBER  OF  SYSTEM  LINES 

Current  tributary  pointer  (-1  for  PSI) 

REMAINING  NUMBER  OF  TRIBUTARIES 

CURRENT  TRIBUTARY  NUMBER 

Channel  number  /  X.25  port  ri^mber  and 

...  PDV  assigned 

ERROR  MESSAGE  STRING  POINTER 

SAVED  BUFFER  POINTER 

SAVED  OPTIONS  BYTE 

CIRCUIT-ID  FORMAT  TYPE 

FLAG  WORD  (FOR  COMMAND) 

FLAG  WORD  (FOR  COMMAND) 

FLAG  WORD  (FOR  CURRENT  CIRCUIT; 

CURRENT  PARAMETER  TYPE 

Significant  length  of  circuit  name 

Line  protocol 

Network  management  circuit  type 

Flags  word  for  X.25  circuit  commands 

CIRCUIT  STATE 

CIRCUIT  COST 

CIRCUIT  OWNER  (PDV  INDEX) 

TRIBUTARY  ADDRESS 

MULTIPOINT  ACTIVE  RATIO 

MULTIPOINT  DEAD  RATIO 

DMP  DEAD  TIMER 

DMP  DELAY  TIMER 

DMP  POLL  TIMER 

DMP  BABBLE  TIMER 

DMP  NORMAL  TIMER 

DMP  TRANSMIT  TIMER 
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PAGE  A 

CREf       01.00 


SYMBOL 

VALUE 

REFERENCES 

SSAVAL 

-  ****** 

c,x 

8-111 

STMEFN 

-  ****** 

fix 

8-119 

$TMLUN 

-  ****** 

GX 

8-119 

9-203 

9-206 

tStARG 

=  000002 

#8-119 

8-119 

#8-119 

8-119 

#8-119 

8-119 

#8-119 

8-119 

8-119 

#8-119 

8-119 

8-119 

8-119 

8-119 

8-119 

8-119 

8-U9 

8-119 

8-119 

8-119 

#8-119 

8-119 

8-119 

8-119 

8-119 

8-119 

8-119 

s-ii": 

8-119 

8-119 

8-119 

#8-119 

8-119 

8-119 

8-119 

8-119 

8-119 

8-119 

8-119 

8-119 

8-119 

8-119 

r  1? 


r 


DLXSUB  -  DLX  subroutines 
Deassign  line  from  an  LLC 

3A8 

5A9 

350 

351 

352 

353 

35A 

355 

556 

357 

358  000576  00A567 

359 

360  000602  012711 

361  000606  005015 
362 
363 
36^ 
365 
366 
367 
368 
369 
370 
371 
372 
373 

37A  000610 
375 

376  0006U     005046 

377  000616 

378  000622     105765 

379  000626     001421 
380 

381  000630  010204 

382  000632  000304 

383  000634  042704 

384  000640  006304 
335  000642  006304 

386  000644     060504 

387  000646     142764 
388 

389  000654  116504 

390  000660  062705 

391  0C0664  132715 

392  000670  001006 

393  000672  022525 

394  000674 
395 

396  000700     012766 

397  000706 

398  000712     042615 

399  000714 
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.SSTTL  Deassign  Line  from  an  LLC 
»*-DEASSN-Deassign  line  from  an  LLC 


177724 
100000 


000014 


177700 


The  COMM/EXEC  databases  are  updated  to  reflect  the  new  line  deassignment 
and  the  system  line  and/or  tributary  are  marked  inactive. 


Inputs 


R1  =  Address  of  channel  entry  in  target  PDV 

R2  =  SLN  and  logical  tributary  #  of  the  <Line-id> 

5EASSM::JSR     R5,C0ASN       ;  Compute  address  in  reverse  mapping  table 

MOV     ^Z'.ASN.CRD    ;  Mark  channel  free 

CLR     (R5)  ;  Mark  SLN  and  logical  tributary  free 

**-CLACT-Clear  active  for  system  line  and/or  tributary 

Clear  the  active  flag  for  the  syster  line  and/or  the  tributary. 

Inputs: 

R2  =  SLN  and  logical  tributary  of  the  <Line-id> 

Registers  modified: 
R5 


CLACT::  CALL 


STSLT 


000200  000022 

000014 
000022 
000200 


100000  000004 


CLR 

-(SP) 

SAVRG 

<R4,fi5> 

TST8 

L.NSTA(R5) 

BEQ 

20$ 

MOV 

R2,R4 

SWAB 

R4 

BIC 

#*C<77>,R4 

ASL 

R4 

ASL 

R4 

ADD 

R5,R4          , 

BIC8 

*SF.ACT,L.MPF(R4) 

M0V8 

L.NSrA(R5),R4 

ADD 

#L.MPF,R5 

10$: 

SITS 

*SF.ACT,(R5) 

BNE 

30$ 

CMP 

(R;)*,(R5)+ 

S08 

R4,10$ 

20$: 

MOV 

#LF.ACT,4(SP) 

^0$: 

RESRG 

<R5,R4> 

BIC 

(SP)t.'R5) 

RETURM 

Compute  address  of  the  SLT 

Assume  line  will  remain  active 

Save  some  registers 

Is  this  a  multipoint  master  or  broadcast? 

If  EQ,  no 

Isolate  tributary  # 


Form  double  word  offset 
Compute  address  in  SLT 


Get  It   of  tributaries  on  tne  line 

Point  to  first  tributary  extension 

Is  this  tributary  still  active? 

I f  NF ,  yes 

Skip  over  remainder  of  tributary  entry 

Cre."k  all  tributaries 


f^o  active  tributaries. 
Restore  registers 
Clear  the  status  bit 


bit  to  be  cleared 


DLXSUB  -  DLX  su 

DPoutines 

F  ind  an  LLC  process  PDV 

:nde< 

885 

886 

887 

838 

889 

890 

891 

892 

893 

89A 

895 

896 

897 

898 

399 

900 

9'Jl 

902 

903  0O225A 

016302 

000006G 

904  002260 

905  00226A 

1034U 

906 

907  002266 

010201 

908  002270 

067701 

OOOOOOG 

909  00227A 

011101 

910  002276 

132761 

000004 

911  00250A 

OOU03 

912  002306 

005761 

000012 

913  002312 

0U1C"i 

914  0023U 

OOOccl 

915  002316 
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.S8TTL  Find  an  LLC  process  PDV  index 

♦  ■•-FNDPR-Find  an  LLC  process  PDV  index 

Find  the  PDV  index  of  an  LLC  process  as  supplied  in  the  I/O  packet. 

Inputs: 

R3  =  Address  of  I/O  packet 

I.PRMt6  -  RAD50  name  of  the  LLC 

Outputs: 

R2  PDV  index  of  LLC 

'C  Clear  -  LLC  process  present  and  loaded 

'C  Set   -  LLC  process  not  present  or  not  loaded 


Registers  modi  f ied: 
R1 


FNDPR: 


000010 


10$; 
20$: 


MOV 

CALL 

BCS 

MOV 

ADD 

MOV 

BITS 

BEQ 

TST 

BNE 

SEC 

RETURN 


I.PRM+6(R3),R2 

aPDVID 

20$ 


R2,R1 

aPDVTA.RI 

(R1),R1 

*ZF.LLC,Z 

10$ 

7.PC8(R1  ) 

20$ 


FLGCRI 


Get  LLC  process  name 

Find  process  PDV  index 

If  CS,  process  not  in  system 

Compute  address  in  the 

PDv  i-dex  table 
Get  address  oi  the  PDV 

If  EQ,  process  is  not  an  LLC 

Is  the  process  loaded? 

If  NE,  yes 

Indicate  process  not  present  or  not  loaded 


r  14 


DLX5UB 

CREATED   BY 

MACRO     ON  28 

-JUN-85   AT 

22:56 

SYMBOL 

CROSS   REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

ZF.X3P 

=   000000 

#5-48 

ZS.ASN 

=   100000 

#5-48 

6-73 

12-360 

ZS.BSY 

=   140000 

#5-48 

Z.AVL 

000014 

#5-48 

Z.DAT 

000016 

#5-48 

Z.DSP 

000000 

#5-48 

5-48 

Z.FLG 

000010 

#5-48 

18-725 

;9-847 

Z.LEN 

=  000016 

#5-48 

Z.LLN 

000006 

#5-48 

17-678 

Z.MAP 

000020 

#5-48 

17-675 

17-678 

Z.NAM 

000004 

#5-48 

Z.PCB 

000012 

#5-48 

20-912 

23-990 

Z.SCH 

000007 

#5-48 

SACESS 

=   ****** 

GX 

M6-599 

18-777 

$8 1  AS 

-   ****** 

g; 

«14-441 

14-466 

SBYTES 

=   ****** 

GX 

*14-443 

14-460 

14-462 

SDLXPD 

=   ****** 

GX 

21-931 

$PBL< 

=   ****** 

GX 

15-511 

.15-526 

.15-530 

17-662 

17-664 

17-667 

18-742 

.18-749 

.18-750 

♦18-770 

18-773 

18-; 75 

.19-838 

.19-855 

.19-865 

$VA 

r   •***»* 

GX 

.14-442 

14-467 

*14-474 
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CREF   04.00 


20-910 

21-938    22-966 

14-463    .14-475 


.15-531 

.15-532 

16-603 

16-605 

16-607 

16-622 

17-669 

18-718 

.18-722 

.18-726 

18-738 

18-740 

.18-751 

.18-752 

.18-756 

.18-758 

18-762 

.18-769 

18-785 

.18-789 

.19-824 

.19-825 

.19-826 

.19-827 

.19-872 

23-988 

EVL  -  EVENT  LOGGER  PROCESS 

TIMER  SERVICE 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

000426 

005767 

000076 

292 

000432 

001020 

293 

29A 

000A34 

012702 

021274 

295 

000440 

296 

000444 

103413 

297 

298 

000446 

010203 

299 

000450 

067703 

177356 

300 

000454 

011303 

301 

0004  56 

016377 

000016 

302 

000464 

010277 

177334 

303 

000470 

005267 

000034 

30A 

505 

000474 

016500 

000004 

306 

000500 

001412 

307 

000502 

005765 

000000 

308 

000506 

001005 

309 

000510 

005777 

177312 

310 

000514 

001004 

311 

000516 

005065 

000004 

312 

313 

00052? 

31 A 

315 

000526 

316 

317 

000530 

000000 
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.SBTTL   TIMER  SERVICE 

»*-NETIME-TIMER  SERVICE  ENTRV  POINT  FROM  THE  COMM/EXEC 

DURING  TIMEOUT  PROCESSING  WE  UNSTOP  THE  COLLECTION  TASK  If  THERE 
ARE  EVENTS  AWAITING  COLLECTION. 


INPUTS: 

R5  -  POINTER  TO  EVENT  LOGGER  PROCESS' 


DATABASE 


REGISTERS  MODIFIED: 
RO,  R1,  R2,  R3 


177336 


NE1IME: 

TST 
BNE 

INIFLG 
10$ 

MOV 

CALL 

BCS 

*'REVL,R2 

aPDVID 

10$ 

MOV 
ADD 
MOV 
MOV 
MOV 
INC 

R2,R3 

aPDVTA,R3 

(R3),R3 

Z.DAT(R3),aLGDDB 

R2,aLGPDV 

INIFLG 

10$: 

MOV 
BEQ 
TSI 
BNE 
TST 
BNE 
CLR 

E$TC8(R5),R0 

30$ 

E$EVTS(R5) 

20$ 

aLGSTT 

30$ 

E$TCB(R5; 

20$: 

CALL 

aEXRQN 

30$: 

RETURN 

INIFLG 

.WORD 

0 

HAVE  WE  INITIALISED  BEFORE? 
IF  NE,  YES 

FIND  PDV  INDEX  OF  EVENT  LOGGER  PROCESS 

If'cS,  FAILED  TO  FIND  ITI 1  I 

COPY  PDV  INDEX 

POINT  INTO  PDV  INDEX  TABLE 

GET  ADDRESS  OF  PDV 

SET  UP  ADDRESS  OF  DATA  BASE 

SAVE  PDV  INDEX  OF  EVENT  LOGGER  PROCESS 

SHOW  PROCESS  HAS  BEEN  INITIALISED 

GET  COLLECTORS  TCB/ATL  ADDRESS 

IF  EQ,  NOT  ACTIVE 

ANY  EVENTS  AWAITING  COLLECTION? 

IF  NE,  YES 

IS  LOGGING  CLOSING  DOWN? 

IF  NE,  NO 

TELL  COLLECTOR  TO  EXIT 

UNSTOP  COLLECTOR  TASK 


INITIALISATION  FLAG 


n 
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.TITLE  SESUSR  -  Session  control  user 
.IDENT  /V05.00/ 
.ENA8L  LC 


4 
5 
6 

7 
8 
9 

10 

n 

12 
15 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 


'ntertace  routines 


Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynarcj,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  above  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  anci  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  by  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

Session  control  user  interface  routines 

Ident  history: 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4 . 2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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Check    for   node  name  match 


509 
510 
511 
512 
513 
5U 
515 
516 
517 
5^8 
5i9 
520 
521 
522 
523 
52A 
525 

526  001256 

527  001262 

528  001264 

529  001270 

530  001272 

531  001276 


022067 
001005 
022067 
001002 
022067 


OOOOOOG 
000002G 
000004G 


.S8TIL  Check  tor  node  name  match 
»«-CHKMAM-Check  for  node  name  matcn 


Check  if  there  ib  a  match  between  an  alias  or  remote  name  and  the 
node  requested  in  an  outgoing  connect  request. 


Inputs 


RO  =  Address  of   node  riame   to  match 


Outpi'ts: 
'Z' 


Set   -  Node  nanes  match 

Clear  -  Nocfe  names  do  not  match 


Registers  modified: 
RO 

CHKMAM: 


10$: 


CMP 

(R0)+,$DSNOD 

BNE 

10$ 

CMP 

(R0)+,$DSNOD+2 

B^E 

10$ 

CMP 

(R0)+,$DSMCDtA 

RETURN 

Any  mismatch  will  get  us  ou. 


\i    2 

SESUSR  -  Session  controL  user  i  MACRO  V05.05b  F.'iday  28-Jun-85  ?0:01  Page  16 


C     3 
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MACRO  CROSS   REFERENCE  CPEf        04.00 


MACRO  NAME 

REFERENCES 

ANBDFS 

#6-A6 

6-57 

CALL 

8-130 

8-152 

8-144 

9-173 

10-257 

10-261 

10-281 

11-526 

U-487 

14-493 

16-550 

19-651 

CAI  Ll 

#6-44 

8-131 

8-145 

9-203 

fALLR 

8-150 

16-553 

17-579 

CALLX 

#8-1 3 i 

8-131 

#8-145 

8-  45 

#18-600 

18-600 

#18-602 

U  502 

CCBDFS 

#6-46 

6-55 

COUNTS 

#6-44 

9-222 

CRBDFS 

#6-45 

6-50 

CTRDFS 

#6-45 

6-49 

DHBDFS 

#6-46 

6-60 

ECDDS$ 

#6-45 

6-48 

LLTDFS 

#6-/'  5 

6-51 

LLWDFS 

#6-45 

6-53 

MAP 

#6-44 

8-129 

MAPLLT 

#6-44 

8-129 

MBXDF$ 

#6-45 

6-54 

MSGDFS 

#6-45 

6-52 

NSSYMS 

#6-46 

6-58 

RECMAP 

#6-46 

14-406 

RESMAP 

#6-44 

RESRG 

#6-44 

10-284 

20-^90 

RETURN 

7-109 

8-148 

9-2^ 

9-229 

18-606 

19-635 

20-691 

RNBDFS 

#6-46 

6-56 

SAVMAP 

#6-44 

SAVRG 

#6-44 

10-255 

20-665 

SLIDES 

#6-'.6 

6-59 

SOB 

13-381 

14-465 

14-472 

14-479 

9-190  9-205  9-207  9-219  9-227            9-228 

12-556  14-407  14-412  14-417  U-435           14-445 

19-634  20-681 

9-225  17-574  18-600  18-602  18-604 

#9-205  9-203  #9-223  9-223  #17-574            17-574 

#18-604  18-604 


10-285  11-328  13-384  14-507  15-531  16-556 


20-687 


D     3 


OLXCEX  ■ 
Receive 

268 

269 

270 

271 

2"'2 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

237 

288 

289 

290 

291 

292 

293 

29A 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

.:6 

317 
313 
319 
320 
321 
322 
323 
324 


DLX/:EX  interface  rout 
compU-te  processing 


000444 
0u0450 
0004  54 

000456 
000464 
000472 
00050C 

000506 

000514 
000520 
000524 
000526 
000532 

0005^0 
000542 
nno544 
000546 
000552 
000556 

000562 
000566 
000572 
000576 
000602 

000606 
000610 

000612 

000620 
0C0626 
000630 

000634 
100640 
000644 
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.SBTIL  Receiue  complete  processing 

**-RCVCP-Receii/e  complete  processing 

This  routine  is  entered  from  the  COMM/EXEC  when  a  receive  has  been 
completed  by  the  DLC  Layer. 


Inputs 


R4  =  Address  of  the  CC8  {  possibly  first  in  a  chain) 
C.STS   -  Completion  status 
C.CNT   -  Number  of  bytes  transferred 


Registers  modified 


RO,  R1,  R2,  R3,  R4,  R5 


016503 
001501 

012767 
016367 
016367 
016367 


016400 
020067 
101405 
016700 
012767 

011446 
005700 
001420 
016401 
016402 
162702 

016703 
016704 
060067 
160067 


012604 
001341 


001402 


01630'' 
166^01 


000020 


OOOOOOC 
OOOOOOG 
000002G 
000004G 


000020 
OOOOOOG 

OOOOOOG 
OOOOOOC 


RCVCP: 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


10$: 


OOOOOOG 


20$: 


000014 
000016 
020000 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


30$: 


000004G 
OOOC'iG 


4  0$: 


CALL 

BEQ 

MOV 
MOV 
MOV 
MOV 


MOV 

CMP 

BLOS 

MOV 

MOV 

MOV 
TST 
BFQ 
MOV 
MOV 
SUB 

MOV 
MOV 
ADD 

sue 

CALL 

MOV 
SNE 


MAP 
BEQ 
CALL 

CALL 

MUV 

SUB 


STLNK 

L$RCV(R5),R3 

50$ 


Get  address  of  physical  link  access  block 
Get  next  receive  I/O  packet 
If  EQ,  none 


<'IS.SUC8377,$I0S;  Assume  success 

I.PRM(R3),$BIAS  ;  Set  up  bias, 

I .PRMt2(R3) ,$VA  ;    virtual  address  and  byte  count 

I.PRM+4(R3),$BYTES 


SAVRG   <R3,R4,R5> 


C.CNT(R4),R0 

RO,$evTES 

20$ 

$BYTES,RO 

#IE.DA0&377,$I0S 

(R4),-(SP) 

RO 

30$ 

C.8Ur(R4),R'' 

C.8UFt2(RA), R2 

#20000, R2 

$eiAS,R3 

$VA,R4 

RO,$VA 

RO,$enEs 

S8LXI0 

(SP)+,R4 
10$ 


RESR?   <R5,R4,R3> 


I.PRMt6(R3) 

40$ 

RCVCHP 

RLSCHf) 
I.PRMt4(R3',Rl 

$Byrts,Ri 


Save  I/O  packet  and  CC8  addresses 

Get  *  of  bytes  in  this  buffer 
Is  there  enough  space  left  in  the  buffer? 
If  LOS,  yes 

Use  remaining  byte  count 
and  set  data  overrun  status 

Save  address  of  next  CCB  in  the  chain 
Any  bytes  to  transfer? 
If  EQ,  no 

Set  source  relocation  bia- 
and  virtual  address 
biased  for  APR5 

Set  up  destination  bias 

and  the  virtual  address 
Update  victual  address 

and  byte  count  for  next  transfer 
Copy  the  data 

Get  address  of  next  CCB  in  the  chain 
Loop  till  all  data  is  copied 

Recover  CCB  and  I/O  packet  addresses 

Map  to  "-he  auxin  ia-y  characteristics  buffer 

If  EQ,  none  p''esent 

Process  received  message  characteristics 

Release  the  C(b  chain 
Get  si^e  or  user's  buffer 
Compute  *  of  bytes  transfeTed 
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DLXCfX     CREATED  Bv  MACRO  ON  28-JUN-85  AT  22:55 
SYMBOL  CROSS  REFERENCE 


C  5 

PAGE  3 

CREf   04.00 


SYMBOL   VALUE 


LtERR 

LSFLG 

lSFNC 

L$LEN 

LSRCV 

LSRSR 

L$STT 

LtTCS 

LSTIM 

L$TIP 

L.COST 

L.CTL 

L.CVA 

L  .  DDM 

L.DDS 

L.DLC 

L.DLI-I 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OUNR 

L.UNT 

NULL 

NXINA 

N$$'.CT 

PLAST 

PRDSOV 

RCVCHR 

RCVCP 

RCVDN 

RCVERY 

RLSCHN 

RQALT 

RODON 

R$$MPL 

R$$11D 

RSSIIM 

RitllS 

"^F.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

<;  F  '^  f  R 

sfIsv"" 

Sr.UNL 
SHU' 


000010 
COOOOl 
000014 
000026 
000020 
000002 
000007 
000022 
OOOOOA 
000003 
000015 
000012 
177776 
000002 
00C004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
OOOOK 
000021 
0000^3 
000336 


=  000000 

3  ♦*♦*♦* 

000444  r' 
~    »»♦«.»  G 

000340  R 


GX 

GX 

GX 

GX 

GX 
GX 
GX 


=  000000 

=  000200 
=  000100 
=  000004 
=  000040 
=  000020 
=  000010 
=  COOOOl 
■:  000002 
=  P00040 
000132  R 


REFERENCES 

♦13-331 

19-559 

17-448 

11-216 

13-284 
»14-360 
•10-166 
*10-178 

11-207 
02-249 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#11-221 

19-550 

13-318 

11-191 
#5-51 

13-320 

7-73 

11-214 

11-200 

12-260 

17-454 

12-266 

19-509 

5-48 

5-48 

5-48 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#!)-50 

a-93 


18-475 


19-494 

15-401 
»11-209 


19-502 


*19-520 


19-544 


*19-523 


»19-545 


•19-535 


11-227 


#13-283 
13-326 

#11-226 
13-322 

'8-477 


13-328 


#10-160 


rRFSTFh  nv     MArpn     rw  ?R-iiiw-R5   AT   ??r55 


PAGF   <. 
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DLXCHR  - 
Define  E 

291 
292 
293 
29A 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3U 
315 
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thernet  Dfotocol  for  transmit 


0OOA46  026027  0J0002  000002 

000A5A  103A10 

000456  016067  000010  OOOOOOG 

000A6A  052767  OOOOOOG  OOOOOOG 

0OOA72  012701  000001 


.SBTTL  Define  Ethernet  protocol  for  transmit 

»*-XMTPR0-Def ine  Ethernet  protocol  for  transmit 

Define  the  Ethernet  protocol  to  be  used  for  this  message  trar,?-iission. 

Inputs: 

RO  =  Address  of  characteristics  block 

R1  =  Default  status  (CS.IGN  =  Characteristic  ignored) 

R3  =  Address  of  the  I/O  packet 

R5  =  Address  of  the  physical  link  access  block 

Outputs: 

R1  =  Status  to  return  for  characteristic 


XMTPRO: 


000A76 


10$: 


000001 


CMP 
BLO 

MOV 
BIS 

MOV 

RETURN 
.EMD 


C.DATI (RO) ,*2  ;  Are  there  at  least  2  bytes  of  protocol? 

10$  ;  If  LO,  no 

C.CHRL(R0),$PR0  ;  Fill  in  Ethernet  protocol 

#FL$PRO,$FLAGS  ;  Indicate  Ethernet  protocol  seen 

#CS.SUC,R1  ;  Return  successful  completion 


D  6 

=.rt    Mfiron    un";    n^h    FridAv    ?R-  Inn-SS    ??:53       Pahp     11-1 


1    [ 


DLXCTL  - 
Turn  <l.i 

151 
152 
153 
154 
155 
155 
157 
158 
159 
160 
161 
16? 
165 
'64 
16' 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 


C  7 

DLX  control  010  functi  MACRO  V05.03b  Friday  28-Jun-85  22:54  Page  10 
ne-id>  on 

.SBTTL   lurn  <Line-id>  on 

»*-CTLOM-Turn  <Line-id>  on 


000130  005767      0000160 

'.00134  001511 

000136 

000142  103516 
00^1144 

000150  103511 

000152  016702  OOOOIOG 

000156 

000162  012764  000004  000012 

000170  000530 


This  routine  is  called  to  start  the  operation  of  the  LLC  process 
assigned  to  tr.e  <Line-id>. 


Inputs: 


Rl 
R3 


Address  of  system  line  table 
Address  of  I/O  packet 


Registers  modified: 


RO,  Rl,  R2,  R3,  R4,  R5 


CTLOM: 


TST 
BEQ 

CALL 
BCS 
CALL 
BCS 

MOV 
CALL 
MOV 
BR 


$P8LK+1$ASN 
lEALC 

PRCLD 
CTLERR 
SCC3GT 
lENOD 

$P8LK+T$SLN,R2 
STACT 

#STRT,C.STS(R4) 
CTL0N1 


Is  <'Line-id>  assigred  to  an  LLC? 
If  EO,  no 

Is  the  target  process  loaded? 
'f  CS,  no 
Allocate  a  CCB 
If  CS,  error 

Get  SLM  and  logical  tributary 

Mark  system  line  (and  tributary)  activ/e 

Indicate  sta'-tup  required 

Enter  common  code 


J 


n  I  n  ♦.  .,^r 


MAfDH  \in^     n'^h  F  r 
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DlXCU  - 

DLX  control  010  fund 

ContTiue 

with  ofr  processing 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

001116  100411 

58A 

585 

00112& 

586 

001124 

587 

001130  142715  000017 

588 

001134  152715  000001 

589 

001140  000407 

.S8TTL  Continue  with  off  processing 

»«-f TL0F2-Continue  with  off  processing 

Complete  the  processing  associated  with  turning  a  tine  off. 

Inputs: 

RO  =  PDV  and  Channel  of  target  LLC 

R1  =  Address  in  target  PDV  channel  mappii  g  table 

R2  =  SLN  and  logical  tributary  It   of  <Line-id> 

R3  =  Address  of  the  I/O  packet 

The  N-bit  is  set  from  a  'TSTB  C.STS(R4) 


CTL0F2:  BMI 


CTLABO 


CALL 

CLACT 

CALL 

STNMST 

BICB 

#LN.STA,(R5) 

BISB 

*LN.0FF,(R5) 

BR 

CTLbON 

;  If  Ml,  an  error  has  occurred 

;  Clear  line/tributary  active  flag 

;  Compute  address  of  network  management  state  byte 

;  Set  network  managen.ent  state  to  '"'♦' 

;  Complete  the  request 


'off 


\  mr\     i.rTC 


1 7 k  z.  ^;  A~. 


D  8 
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C  9 

Page  6 


50 

51 

52  000000 

53 

54  0U0024 

000000  OOOLOO 

55  OOC030 

000000 

56  000032 

000 

57  000033 

000 

58  000034 

000000 

5Q 

60  000036 

61  000044 

62  0000^6 

cooooo 

63 

000001 

64 

000002 

65 

66  000050 

000000 

67 

68  000G52 

000000 

69  000054 

000000 

70  000056 

000000 

71  000060 

ooonoo 

72 

73 

74 

75 

76 

n 

78 

79 

80 

81 

82 

83 

84 

85 

86 

.SBTTL  Local  data 


SPBLK:  : 

SBIGBF: 
$BIGS2: 

SBUFFG: 
SDLXCH: 
SDLXPD: 

.BLKB 
.EVEN 
:.UDRD 
:.WnRD 
:.PnE 
:.BYTE 
:.W0RD 

TSLEN 

0,0 

0 

0 

0 

0 

SADR:: 
SPRO :  : 
SFLAGS: 
FLSADR= 
FLSPR0= 

.BLKW 
.BLKW 

: . WORD 

=  1 

=2 

3 
1 
0 

SACESS: 

:.*IORD 

0 

SBIAS:: 
SVA:: 
SBVTES. 
SIOS:: 

.WORD 

.WORD 

: . WORD 

.WORD 

.EVEN 

0 
0 
0 
0 

.IF  DF 

RSSMPL 

S0LRC8 
SOLRLN 
SOLRSL 
lOLRST 
SOLRCT 
SOLRRT 
SOLRBK 

:.WORD 
:.WORD 
:.WOR.'" 
: . WORL 
:.WORD 
:.WORD 
:.BLKB 
.EVEN 

0 
C 
0 
0 
0 
0 
tslen 

Parameter  block 

Double  word  address  of  the  big  buffer 
Size  of  the  largest  buffer 
Buffer  allocation  flag 

#  of  channels  supported 
PDV  index  of  DLX  process 

Holds  Ethernet  address  for  transmission 
Holds  Ethernet  protocol  for  transmission 
Control  flags 

Ethernet  address  has  been  supplied 
Ethernet  protocol  has  been  supplied 

Access  ; vpe  for  broadcast  channels 

Current  address  oias 
Current  \/irtual  address 

#  of  bytes  left  to  transfer 
I/O  status  jalue 


CCB  used  tor  reconfiguration 
#  of  SLN's  remaining  to  scan 
Current  SLT  index  table  address 
Current  tributary  flag  address 
Count  of  remaining  tributaries  to  scan 
Return  address  for  completion 
Parameter  block  for  reconfiguration 


.ENDC 
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DLXLIN  -  DlX  Li 
Stop  ODeration 

139  000122 

KG  000124 
U1 

142  000130 

143  000132 

144  000136 
145 

146  000140 

147  000144 

148  000150 

149  000152 

150  000156 
151 

152 
153 
154 
155 
156 
157 
158 
159 
IdO 
161 
162 

163  000156 

164  000164 

165  000166 

166  000172 

167  000176 

168  000200 
169 

170  000206 

171  000214 

172  0002 16 

173  000222 

174  000226 

175  000230 

176  000236 
177 

178  000242 
179 

180  000244 
181 
182 


C  10 
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of  a  physical  channel 


001002 
042700 

110115 
150065 
001442 


105765 
001002 


000010 
000002 

000003 


40$: 


50$: 


BNE 
BIC 

M0V8 
BISB 
SEQ 

CALL 
TST8 
BNE 
CALL 


40$  ;  If  NE,  no  need  to  issue  the  stop 
*LR$STP,R0 

R1,(R5)  ;  Set  new  physical  link  state 

R0,L$RSR(R5)  ;   and  set  requested  functions 

100$  ;  If  EQ,  all  done 

RCVAB  ;  Abort  any  pending  receives 

L$TIP(R5)  ;  Any  transmits  in  progress? 

50$  ;  If  ME,  yes 

XMTAB  ;  Abort  any  pending  transmits 


132765  000010  000002 

001410 

012700  002006 

103421 

142765  000010  000002 

132765  000020  000002 

001412 

012700  013006 

103405 

;427^.5  000020  000002 

042715  000400 


*»-STPCHN-Stop  operation  of  a  physical  channel 

Stop  the  data  link  layer  protocol  of  a  physical  channel. 

Inputs : 

R5  =  Adaress  of  the  physical  link  access  block 

Registers  modi  f ied: 
RO,  R4 


SrPCHM: :BITB 
BEO 
MOV 
CALL 
BCS 
BKB 


60$: 


70$: 
100$: 


BITB 

BEO 

MOV 

CALL 

BCS 

BKB 

BIC 

RETURN 

CALLR 

.DSA8L 


#Lfi$STP,L$RSR(R5) 

60$ 

*FC.CTL1FS.STP,R0 

DOFNC 

70$  ; 

*LR$STP,L$RSR(R5) 

*Lfi$DIS,L$RSR(R5) 

70$ 

*FC.CTL;rS.DIS,R0 

DOFNC 

70$  ; 

*LR$DIS,L$RSR(R5) 

#LF$ENB,(R5)    ;  Mar:,  the  physical  link  disabled 


If  EQ,  stop  not  required 

Issue  control  function 

If  CS,  resource  allocation  failure 


If  EQ,  disable  not  required 

Issue  control  function 

If  CS,  resource  allocation  failure 


STOPC 
LS8 


Compute  function  processing 
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CONTEXT  AREA  OFFSET  DEFINITIONS 

000122 
000123 
0001 2A 
000125 
000126 
000127 
000130 
000131 
000132 
000133 
0001 3A 
000166 
000224 
000226 
000230 
000230 
000232 
000234 
000234 
000236 
000236 
000240 
000240 
000250 
000252 
000252 
000253 
000253 
000254 
000256 
000256 
000260 
000262 


000264 
000004 


00:^001 

000002 
000004 


000010 
04000C 
100000 


000001 


L$BSA 

.8LK8   1 

DMP 

ACTIVE  BASE 

L$BSD 

.BLKB   1 

DMP 

DVING  BASE 

L$BSI 

.BLKB   1 

DMP 

INACTIVE  BASE 

LSINA 

.BLKB   1 

DMP 

ACTIVE  INCREMENT 

L$IND 

.BL<8   1 

DMP 

DYING  INCREMENT 

LSINl 

.BLKB   1 

DMP 

INACTIVE  INCREMENT 

LSTHI 

.BLKB   1 

DMP 

DEAD  THRESHOLD 

L$TH2 

.BLKB   1 

DMP 

DYING  THRESHOLD 

L$TH3 

.BLKB   1 

DMP 

INACTIVE  THRESHOLD 

L$MXB 

.BLKB   1 

DMP 

MAXIMUM  BLOCKS 

L$NTL 

.BLKW   13. 

NTL 

MESSAGE  BUFFER 

L$SCR 

.BLKW   15. 

SCRATCH  BUFFER 

LSLCT 

.BLKW   1 

COUNTER  TIMER 

LSHFM 

.BLKW   1 

HELLO  TIMER 

L$SER 

SERVICE 

L$LTM 

.BLKW   1 

LISTEN  TIMER 

LSXCH 

.BLKW   1 

X25 

Logical  Channel  Number  (LCN) 

LSLMB 

X25 

Max  Block  (Line) 

L$CMB 

.BLKW   1 

X25 

Max  Data  (Circuit) 

LSNUML: 

DLM 

Number  length 

LSDTEL:  .BLKW   1 

X25 

DTE  length  (Circuit) 

L$NUM 

DLM 

Number 

L$DTE 

.BLKB   8. 

X25 

DTE  (Circuit) 

LSDTEP:  .BLKW   1 

X25 

Pointer  to  DTE  descriptor  (Circui 

t) 

L$MWN 

X25 

Max  Window  (Line) 

LSMXW 

.BLKB   1 

X25 

Max  Window  (Circuit) 

LSMRT 

X25 

Max  Retransmits  (Line) 

LSMXR 

■   .BLKB   1 

■  DLM 

Max  Recalls  (Circuit) 

LSHBT 

•   .BLKW   1 

•  X25 

Holdback  Timer  (Line) 

L$NTI 

•  X25 

Retransmit  Timer  (Line) 

L$RET 

.BLKW   1 

■  DLM 

Recall  Timer  (Circuit) 

LSCUS 

:   .BLKW   1 

•  DLM 

Usage 

L$8LK 

:   .BLKW   1 

.IF  DF   R$$PRO   ;PRO/DEC 

•  DLM 
net 

blocking  stato 

LSLTY 

:   .8LKW   1 

•  Loopback  Type 

L$MDT 

:   .BLKW   1 

.ENDC   ;  DF  R$$PRO 
.EVEN 

;  Mod 

;m  Test 

LSLEN: 


.PSECT 


;  LENGTH  OF  CONTEXT  AREA 


UAGS  W^RD  BIT  DEFINITIONS  (L$FLG) 


LFSREA 
LFSZER 
LFSSKP 


LF$VR2 
LFSMLT 
LFtSEG 


=  10 
^  40000 
=  100000 


READ  COUNTERS  OPERATION 
ZERO  COUNTERS  OPERATION 
SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 
THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 
FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 
CONTROLLER  COUNTERS  AS  WELL  AS  ALL 
OF  THE  TRIBUTARY  COUNTERS. 
CONNECTED  TO  VERSIO^J  2.0  NCR 
MULTIPLE  ADJACENCY  FLAG 
SEGMENTED  RESPONSE  IN  orqgRESS 


PARSE  FLAG  DEFINITIONS  (LSPFG) 
LPSUNT  =  1 


;  UNIT  NUMBER  FOUND 


0  11 


1     r 


DLXQIO 

CREATED  BV      MACRO     ON  29- 

■JUN-85   AT 

12:23           PAGE 

MACRO  CROSS 

REFERENCE 

CREF 

MACRO  NAME 

REFERENCES 

ALUNtS 

#5-60 

9-203 

CALL 

8-111 

8-138 

8-178 

9-202 

CICCXS 

«5-59 

6-75 

DIRS 

#8-lA9 

8-U9 

#8-160 

8-160           A 

GLUMSS 

#5-60 

9-206 

MOVi 

#8-1 '<9 

8-U9 

8-U9 

8-U9           H 

#9-203 

9-203 

9-203 

9-203           « 

MVBt 

#8-H9 

S-1A9 

OFF$ 

#9-206 

ODPBSS 

#8-K9 

8-U9 

QIOW$S 

#5-60 

8-U9 

QIOSS 

#5-60 

RESRG 

#5-59 

8-U2 

9-211 

RETURN 

8-18^. 

9-212 

RVP$ 

#8-U9 

8-1A9 

8-U9 

8-K9 

SAVRG 

#5-59 

8-130 

9-201 

WSIGSS 

#5-60 

8-160 

C  12 


OA.OO 


#9-203 

#8-U9 
#9-206 


9-203 

8-U9 
9-206 


#9-206 

8-U9 
9-206 


9-206 
#8-U9 


-U9 


8-U9 
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DLXSUB  -  DLX  subroutines 
Deassign  physical  link 

402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 

414  000716 

415  000722 


C  13 
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.S8TTL  Deassign  physical  link 
^ 
**-[)SLIN-Deassign  physical  link 


The  physical  link  associated  with  the  physical  link  acces  block  is 
deassigned  and  so  has  no  associated  LLC. 


Inputs : 


R5  =  Address  of  the  physical  link  access  block 


Registers  modified: 
R1,  R2,  R3 

DSLIN::  CALL    GTSLM 
CALLR   DEASSM 


;  Get  SLN  and  logical  tributary  It 
;  Deassign  the  physical  link 
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DLXSUB  -  DLX  su 

broutines       M^ 

Get  SLN  and  log 

icjl  tributary  # 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931  002320 

016701   OOOOOOG 

932  002324 

067701   OOOOOOG 

933  002330 

011101 

934  002332 

005002 

935  002334 

156502  000006 

936  002340 

006302 

937  002342 

060?01 

938  002344 

C-^^OI   000020 

939  002350 

011102 

940  002352 

c  u 
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.SBTTL  Get  SLN  and  logical  tributary  # 

••-GTSLN-Get  SLN  and  logical  tributary  * 

Get  the  SLN  and  logical  tributary  tt   associated  with  a  speciiied 
physical  link  access  block. 

Inputs: 

R5  =  Address  of  ^he  physical  link  access  block 

Outputs: 

R1  =  Address  of  entry  in  process'  channel  mapping  table 
R2  =  SLN  and  logical  tributary  * 


GTSLN; : 


MOV 

SDLXPD.RI 

AJD 

aPDVTA.RI 

'10V 

(R1),R1 

f.R 

R2 

BIS8 

L$L]N(R5),R2 

fSL 

R2 

ADD 

R2,Ri 

ADD 

#Z.MAP,R1 

KOV 

(Ri;,Rr 

Rt^URN 

Compute  address  of  the  channel 
mapping  table  for  this  process 

Get  the  channel  # 

Form  word  offset 
Offset  into  PDV 

Get  SLN  and  logical  tributary  * 


D  U 
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DLXSUB 

CREATED  BY  MACRO  ON  28- 

JUN-85  AT  22 

56     PAGE 

5 

l*IACRO  CROSS 

RE 

FERENCE 

CREF 

04.00 

»1ACR0  NA1E 

REFERENCES 

CALL 

6-91 

6-107 

7-155 

7-157 

7-162 

8-203 

9-259 

11-341 

12-374 

13-414 

1A-AA7 

14-472 

14-486 

16-600 

18-719 

19-836 

19-843 

19-853 

19-863 

19-870 

19-876 

20-904 

23-989 

24-1006 

25-1035 

26-1055 

CALLR 

13-415 

18-779 

CCBDFS 

#5-45 

5-47 

CHRDFS 

#5-45 

5-51 

MAP 

#5-44 

10-287 

19-829 

PDVDF$ 

#5-45 

5-48 

PLADFi 

#5-45 

5-49 

RESMAP 
RESRG 

#5-44 
#5-44 

6-104 

8-205 

8-217 

9-260 

9-268 

10-306 

11-343 

12-397 

14-473 

14-479 

14-488 

17-698 

19-882 

22-968 

2u-1072 

RETURN 

6-111 

7-146 

7-167 

8-218 

9-269 

10-507 

11-345 

12-399 

14-482 

14-490 

15-522 

15-533 

16-623 

16-f?7 

17-699 

18-792 

19-883 

20-915 

21-940 

22-969 

23-994 

24-1009 

25-1039 

26-1073 

27-1093 

SAVMAP 
SAVRG 

#5-44 
#5-44 

6-90 

8-186 

8-200 

9-244 

9-257 

10-285 

11-325 

12-377 

14-439 

14-458 

14-465 

17-660 

19-816 

22-956 

26-1054 

SLIDFS 

#5-45 

5-50 

SOB 

12-394 

15-520 

17-687 

18-745 

0265.       000002 
00K5^ 


EVL  -  EVENT    LOGGER   PROCESS 
ALLOCATE   BUFfER   fOR   EVENT 


319 
320 
321 
522 
323 
32A 
325 
325 
327 
328 
j29 
330 
331 
332 
333 
33A 

335  000532 

336  000540 
337 

338  000542 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350  000554 

351  000560 

352  000562 

353  000566 

354  000572 

355  000574 

356  000576 

357  000602 
358 

359 

350 

361 

362 

363 

354 

365 

366 

367 

368  000602 

369 

370  000606 

"""  C00610 
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.SBTTL  ALLOCATE  BUFFER  FOR  EVENT 
♦•-ALLOC-ALLOCATE  BUFFER  FOR  EVENT 


IF  THE  EVENT  COLLECTOR  IS  ACTIVE  AND  THE  LAST  EVENT  QUEUED  WAS  NOT  THE 
SPECIAL  'EVENT  LOST'  RECORD,  ATTEMPT  TO  ALLOCATE  A  BUFFER.  IF  THE 
ALLOCATION  FAIL"",  QUEUE  THE  'EVENT  LOST'  RECORD. 


INPUTS: 


R5  -  POINTER  TO  EVENT  LOGGER  PROCESS  DATABASE 


OUTPUTS: 
R3 


OOOOOOG  ALLOC: 


5$: 


016703  OOOOOOG 

001006 

012703  OOOOOOG 

005003 
000402 
011367  OOOOOOG 


10$: 
20$: 


25$: 


371 
372 

373  000612 

374  000616 

375  000622 


005703 
001011 


016500  000004 


ADDRESS  OF  ALLOCATED  BUFFER 
C  CLEAR  -  BUFFER  SUCCESSFULLY  ALLOCATED 
'C  SET   -  NO  BUFFER  AVAILABLE 


CMP 
BEQ 

INHie$ 


E$EVTSt2(R5),«$LOST 
30$ 


.IF  DF   R$$MPL 
.IF  NDF  R$$PRO 


BIT 
BEQ 
CALL 

.ENDC 
.ENDC 

MOV 

BNE 

MOV 

CALL 

CLR 

BR 

MOV 


.IF  DF   R$$MPL 
.IF  NDF  R$$PRO 


#F2.MP,aFMSK2 

5$ 

aMPLCK 


$LGLST,R3 

10$ 

#$L0ST,R3 

QUEUE 

R3 

20$ 

(R3),$LGLST 


BIT 
BEQ 
CALL 

.ENDC 
.ENDC 

ENA8L$ 

TST 
BNE 

SAVRG 

MOV 

CALL 


#F2.MP,aFMS<2 

25$ 

a(SP)t 


R3 

40$ 

<R0,R1> 

E$1C8(R5),R0 

aEXRQN 


IF  EQ,  WE  HAVE  JUST  LOST  AN  EVENT 
INHIBIT  INTERRUPTS 


IS  THIS  A  MULTI-PROCESSOR 

BR  IF  NO 

INTERLOCK  COMM/EXEC  RESOURCES 


;GET  BUFFER  FROM  LIST 

;IF  NE,  SUCCESSFULLY  ALLOCATED 

;QUEUE  AN  'EVENT  LOST'  RECORD 

;  TO  THE  COLLECTOR  TASK 

;N0  BUFFER  ALLOCATED 

;, -REMOVE  BUFFER  FROM  FREE  LIST 


IS  THIS  A  MULTI-PROCESSOR 

BR  IF  NO 

CO-ROUTINE  RETURN  TO  U.'ILOCK  RESOURCES 


;;;ENABLE  INTERRUPTS 

:  DID  WE  GET  A  BUFFER? 
;  IF  NE,  YES 

;  S'WE  SOME  REGISTERS 
;  UNSTOP  COLLECTOR  TASK 
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Macro  definitions 


42 
43 
44 
45 
46 
47 

48  000000 

49  000000 

50  000000 

51  000000 

52  000000 

53  000000 

54  000000 

55  000000 

56  000000 

57  000000 

58  000000 

59  000000 

60  000000 
61 

62 


000001 


N$$SES 


.SBTTL  Macro  defini':ions 

.MCALL  SAVRG, RE SRG, MAP, COUNTS, CALLE,SAVMAP,RESMAP,MAPLLT 

.MCALl  ECDDBi,CTRDF$,CRBDF$,LLrDF$,MSGDF$,LLWDF$,MBXDF$ 

.MCALL  CC8DF$,RNBDF$,ANBDF$,NSSYM$,SLIDF$,DHBDF$,RECMAP 

ECDDBS  ;  Define  ECL  database  offsets 

CTRDFS  ;  Define  counter  bLock  offsets 

CRBDFS  ;  Define  connect  request  block  offsets 

LLTDFS  ;  Define  LLT  offsets 

MSGDFS  ;  Define  message  values 

LLUDFS  ;  Define  window  block  offsets 

HBXDFS  ;  Define  mailbox  offsets 

CCBDFS  ;  Define  CCS  offsets 

RNBDFS  ;  Define  remote  name  block  offsets 

ANBDFS  ;  Define  alias  name  block  offsets 

NSSYMS  ;  Define  NS:  symbols 

SLIDFS  ;  Define  SLI  symbols 

DHBPFS  ;  Define  DEC  home  block  offsets 

=  1  ;  This  module  is  part  of  session  control 
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SESUSR  -  Session  control  user  i 
Disconnect  logical  link 


533 
534 
535 
556 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 


OOOOOOG 


001300  122713  000012 

001304  001414 

001306  01676  1 

001314 

001320  112713     000012 

001324  012763     001004 

001332 

001336  112763     000004 
001344 
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.SBTTL  Disconnect  logical  link 

•*-SNDDIS-Discornect  logical  link 

The  user  has  requested  the  logical  link  to  be  disconnected. 
Set  the  link  sub  states  appropriately 

Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 

Registers  modified: 
RO,  Rl,  R2,  R4 

SNDDIS::CMP8  #ST$DIP,(R3)    ;  Is  the  linK  already  in  disconnect  state 

BEQ  20$  :  If  EQ,  yes  -  set  user  state  to  done 

000100        MOV  $REASN,L.DCR(R3);  Store  disconnect  reason  code 

CALL  SAVOPT         ;  Save  optional  data  in  the  LLT 

MOVB  #ST$DIP,(R3)    ;  Set  logical  link  state  to  disconnecting 

000036        MOV  #<NS$SDI*400>+US$DSC,L.USTA(R3) 

CALLR  TRMLNK         ;  Try  to  terminate  the  logical  link 

000036  20$:    MOVB    #US$DSC ,L.USTA(R3)  ;  Set  user  state  to  done 
RETURN 
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D     3 


DDDDDDDDDDDD 

LLL 

XXX 

XXX 

DDDDDDODDDDO 

LLL 

XXX 

XXX 

DDDDDDDDODDD 

LLL 

XXX 

XXX 

ODD 

DDD 

LLL 

XXX 

XXX 

ODD 

DDD 

LLL 

XXX 

XXX 

ODD 

DDD 

LLL 

XXV 

XXX 

ODD 

DDD 

LLL 

XXX 

XXX 

ODD 

DDD 

LLL 

XXX 

XXX 

ODD 

DDD 

LLL 

XXX 

XXX 

DDD 

DDD 

LLL 

<xx 

ODD 

ODD 

LLL 

<xx 

DDD 

DDD 

LLL 

<xx 

DDD 

ODD 

LLL 

XXX 

XXX 

ODD 

DDD 

LLL 

/XX 

XXX 

ODD 

DDD 

LLL 

XXX 

XXX 

DDD 

DDD 

LLL 

XXX 

XXX 

DDD 

DDD 

LLL 

XXX 

XXX 

ODD 

ODD 

LLL 

XXX 

XXX 

OODODDDDDDDD 

LLLLLLLLLLLLLLL 

XXX 

XXX 

OODDDDDDDDDD 

LLLLLLLLLLLLLLL 

XXX 

XXX 

DDDDDDDDDu 

DO 

LLLLLLLLLLLLLLL 

XXX 

XXX 
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Receive  complete  processing 


325  000650 

326  000654 
327 

328  000660 

329  000664 

330  000670 

331  000672 

332  000700 

333  00070', 


016700  OOOOCOG 


032715 
001005 
012765 
152715 


001  OOP 

OOOOOOC  000010 
000200 


50$: 


60$: 


MOV 
CALLR 

CALL 
BIT 
BNE 
MOV 

Bise 

RETURN 


$IOS,RO 
RCVDN 


Get  the  I/O  compLetion  status 
Post  completion  on  the  I/O  packet 


Release  the  CCS  chain 

Ignore  oi/errun  errors  in  maintenance  mode 


RLSCHN 

#LF$M0P,(R5) 

60$  .   - . . 

#IE.DADS377,L$ERR(R5;  ;  Report  loss  on  next  I/O  request 

#LS$ERR,(R5)    ;  Force  error  report  on  next  I/O  request 


DLXCEX 
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DLXCEX  CREATED  BY     MACRO     ON  28-JUN-85  AT   22:53 

SYMBOL    CROSS   REFERENCE 


13-283 


SYMBOL 

VALUE 

REFERENCES 

START 

000040 

R 

8-92 

#9-112 

STLN< 

-  ****** 

GX 

8-88 

12-248 

STNMST 

-  ****** 

GX 

9-1  ?1 

10-162 

STOPC 

001162 

RG 

14-376 

14-385 

S^PCHN 

=  .c*'**'*:* 

GX 

11-229 

11-230 

STPRQ 

=r  ****** 

GX 

15-403 

STRCHN 

=  ****** 

GX 

11-226 

16-423 

STRTC 

001054 

R 

14-375 

14-378 

S.COST 

000001 

*5-50 

S.FLG 

000000 

#5-50 

S.LEN 

000C04 

#5-50 

S.NMST 

000002 

#5-50 

S.OWNR 

000003 

#5-50 

TMOUT 

0C0232 

RG 

7-71 

#11-191 

J.VC8 

=:  ****** 

GX 

19-507 

XF.ASS 

=  000030 

#5-51 

XF..:  A 

=  000040 

#5-51 

XF.CjiIC 

=  000010 

#5-51 

5-51 

XF.OFF 

=  000010 

#5-51 

5-51 

XF.ON 

=  000000 

#5-51 

5-51 

XF.REA 

=  oooe:o 

#5-51 

XF.SMC 

=  000000 

#5-51 

5-51 

XF.STD 

=  000200 

#5-51 

5-51 

XF.STP 

=  000010 

#5-51 

5-51 

XMTAB 

=  ****** 

GX 

19-493 

XMTCP 

000352 

R 

7-72 

#12-.:48 

XV.BRO 

=  000001 

#5-51 

17-453 

XV.OTH 

=  000000 

#5-51 

X$S.V|CB 

=  ****** 

5-48 

5-48 

ZF.COU 

=  00 1 000 

#5-48 

ZF.DDM 

--   000001 

#5-48 

ZF.DIA 

=  004000 

#5-48 

ZF.DLC 

=  000002 

#5-48 

ZF.DVP 

=  100000 

#5-48 

ZF.INI 

=  040000 

#5-48 

ZF.KMX 

=  000020 

#5-48 

ZF.LLC 

=  000004 

#5-48 

Zr.LMC 

=   000100 

#5-48 

ZF.MAN 

=  020000 

#5-48 

ZF.MFL 

=  000010 

#5-48 

ZF.MTM 

^  000400 

-5-48 

ZF.MUX 

=  000040 

.;5-48 

ZF.PSE 

=  002000 

#5-48 

ZF.SLI 

=  010000 

#5-48 

ZF.TIM 

=  000200 

#5-48 

ZF.X3P 

=  000000 

#5-48 

ZS. «SN 

-  100000 

#5-48 

ZS.BSY 

=  140000 

#5-48 

I.  Ml 

000014 

#5-48 

7. DAT 

000016 

#5-48 

Z.DSP 

OUOOOO 

#5-48 

5-48 

Z.FLG 

000010 

#5-48 

D     5 
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CREF       04.00 


14-357 


#19-493 


#17-439 


hi  vrc V 
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Symbol  table 


A$$CHK= 

ooooco 

CE.UDF= 

100001 

CS.LST= 

040000 

FC.CTL= 

000006 

I.PRM  = 

******   GX 

A$$CPS= 

000000 

CE.UNS= 

100344 

CS.MTL= 

004000 

FC.KCP= 

000016 

K1SAR6= 

******   GX 

A$$PRI= 

000000 

CF.CHN= 

000001 

CS.RNG= 

000010 

FC.KJL= 

000004 

K$$CNT= 

177546 

A$STRP= 

000000 

CF.E0I1= 

000004 

CS.R0V= 

000004 

FC.MAN= 

WMh 

K$$CSR= 

177546 

'■B.CCB= 

000002 

CF.HDR= 

000020 

CS.RSN= 

010000 

FC.MLD= 

000026 

K$$LDC= 

000000 

CB.DDM= 

OOOOAO 

Cf.LB  = 

100000 

CS.SHU= 

000001 

FC.PCT= 

000030 

K$$TPS= 

000074 

CB.DLC= 

000020 

CF.LIN= 

000002 

CS.SID= 

000002 

FC.PWR= 

222022 

LD$LP  = 

000000 

CB.RDB= 

000004 

CF.S0M= 

000010 

CS.STR= 

000004 

FC.RCE= 

000002 

LF$BR0= 

002000 

CB.SDB= 

000010 

CF.SYN= 

000040 

CS.SUC= 

000001 

FC.RCP= 

000014 

LF$CHN= 

004000 

CB.SLl^ 

000100 

CF.TRN= 

000100 

CS.TM0= 

020000 

FC.TIM= 

000010 

LF$£NB= 

000400 

CB.XLB= 

000001 

CM.C!R= 

000002 

CS.XUR= 

000004 

FC.XCP= 

99221? 

LF$MOP= 

001000 

CC.ADR= 

000100 

CM.DM1= 

000253 

C$$CKP= 

000000 

FC.X,1E  = 

000000 

LF$RSR= 

100000 

CC.DAD= 

000102 

CM.DM2= 

000400 

C$$0RE= 

000400 

FL$ADR= 

»•»»**  GX 

LR$CTL= 

000003 

CC.OPA= 

000302 

CM.DM3= 

000000 

C$$RSH= 

177564 

FL$PR0= 

•»*»*»  GX 

LR$DEA= 

000200 

CC.DST= 

000200 

CM.FMT= 

100000 

C.ADD 

000034 

FS.AST= 

cooooo 

LR$DIS= 

000020 

CC.ECM= 

000311 

CH.HRD= 

000002 

C.8ID 

000003 

FS.CIB= 

002000 

LR$STP= 

000010 

CC.ECS= 

0C0310 

CM.L1N= 

000000 

C.BUF 

000014 

FS.CRA= 

001000 

LS$DAT= 

000004 

CC.ELS= 

000304 

CH.LOO^ 

000001 

C.BUF1 

000014 

FS.DJS= 

013000 

LS$ERR= 

000200 

CC.FMC= 

000300 

CM.L01= 

000317 

C.8UF2 

000024 

FS.DVC= 

001000 

LSSFRE^ 

000000 

CC.EPH= 

000303 

CM.L02= 

000000 

C.CHRL 

000010 

FS.ENB= 

012000 

LS$IDL= 

000001 

CC.EPR= 

000301 

CM.L03= 

000000 

C.CNT 

000020 

FS.EXI= 

001000 

LS$HSK= 

000037 

CC.LCR= 

OOOOOA 

CM.lT1= 

000011 

C.CNT1 

000020 

FS.GET= 

006000 

LS$RST= 

000020 

CC.LD«= 

000306 

CW.LT2= 

000053 

C.CNT2 

000030 

FS.HLT= 

000000 

LS$STP= 

000010 

CC.LLC= 

000200 

CM.LT3= 

007400 

C.DAT] 

000002 

FS.INI^ 

000000 

LS$STR= 

000002 

CC.LSA= 

000307 

CM.RC1= 

000253 

C.DATO 

000004 

FS.KIL= 

000000 

L$CTL 

000012 

CC.MCT= 

000201 

CM.RC2= 

001000 

C.FLG 

000022 

FS.LCL= 

100000 

L$ERR 

000010 

CC.NET= 

000000 

CM.RC3= 

000000 

C.FLG1 

000022 

FS.LTM= 

001000 

L$FLG 

000001 

CC.PDC= 

000006 

CM.XLO= 

000004 

r.FLG2 

000032 

FS.HNT= 

004000 

L$FNC 

000014 

rC.PRO= 

000101 

CP.CON= 

001140 

C.FNC 

000010 

FS.MSN= 

014000 

L$LEN 

000026 

CC.SAP= 

000010 

CP.DCF= 

000040 

C.LIN 

000006 

FS.REAr 

001000 

L$LIN 

000006 

CC.SID= 

000305 

CP.DUM= 

000540 

CLNK 

000000 

FS.RET= 

000000 

L$LST 

000000 

'"C.SPL  = 

000002 

CP.HDL= 

000007 

C.MOD 

000011 

FS.REZ= 

003000 

LILUN 

000024 

CC.STM= 

000312 

CP.LAT= 

002140 

C.NSP 

000004 

FS.RLB= 

002000 

LtRCV 

000020 

CE.ABO= 

100362 

CP.LOO= 

000220 

C.PRO 

000042 

FS.RNG^ 

011000 

LSRSR 

000002 

CE.ArN= 

100012 

CP.PS  = 

177400 

C.RSV 

000002 

FS.R5T= 

000000 

LSSTT 

000007 

CE.DAO= 

100346 

CP.PSI= 

000200 

C.STA 

000007 

FS.RTN= 

001000 

L$TCB 

000022 

CE.D1S= 

100366 

CP.ROU= 

001540 

C.STAT 

000006 

FS.SET= 

225922 

L$TIM 

000004 

CE.DNF= 

100005 

CP.XCF= 

000100 

C.STS 

000012 

FS.SFC= 

005000 

LSTIMI 

000005 

CE.ERn= 

100370 

CP.2FR= 

000030 

C.TYP 

OOOOOG 

FS.SFR= 

006000 

LtTIP 

000003 

CE.ILC= 

100006 

CS.ABO= 

000100 

C.URM 

Mint 

fS.SFS= 

004000 

L$XHT 

000016 

CE.ILN= 

100350 

CS.SRO= 

000002 

C.XACP 

000004 

F  S . SPW= 

040000 

L$$ASG= 

000000 

CE.!NV= 

100002 

CS.oUF= 

000200 

C.XJD 

000035 

FS.STMr 

000000 

'.$$DRV= 

000000 

cB.im- 

100013 

C5.CES= 

000002 

C.XLEN 

000044 

FS.STP= 

22^222 

L$$P11= 

000001 

CE.LTO= 

100356 

CS.CHN- 

000010 

C.XPLI 

00'^"  ' 

FS.STR= 

001000 

L$$11R= 

000000 

CE.MCE= 

100007 

CS.CMP= 

000200 

C.XPT 

OC 

FS.TRM= 

003000 

M$$CRB= 

000124 

CE.MOP= 

10037? 

CS.DAO= 

000003 

C.XSVC 

or 

FS.WLB= 

001000 

M$$CRX= 

000000 

CE.NMA-- 

100014 

CS.DCft= 

000400 

C.XTC 

OG 

FS.XKL= 

002000 

M$$FCS= 

000000 

CE.NTE= 

100361 

CS.DEF= 

000004 

C.X25 

0000.  - 

FS.XOF= 

010000 

M$$MGE^ 

000000 

rE.F""Nn 

100011 

CS.DEV= 

000002 

D$$8UG= 

177514 

FS.XCN= 

007000 

M$$NET= 

000000 

CE.RES= 

100010 

CS.DIS= 

000040 

DSSISr.^ 

OOOOOn 

i-S.ZER  = 

22?22? 

M$$OVR= 

000000 

CE.RTE= 

100376 

CS.ENA= 

000001 

D$$LI1= 

OOOOC . 

F$$LVL= 

000001 

N$$ACC= 

000001 

CE.RTL= 

10000? 

CS.ENB= 

000020 

D$$YNC= 

000000 

G$ITPP=: 

000000 

N$$BUF= 

000001 

CE.RTS= 

100004 

CS.ERR= 

100000 

D$$yMM= 

cooooo 

G$$TSS= 

000000 

N$$LDV= 

000001 

CE.SRC^ 

100364 

CS.rTL= 

C01000 

D.8IAS 

000000 

G$$rTK= 

000000 

N$$MCP= 

000001 

CE.srp= 

100352 

CS.HCR= 

00CO01 

D.SIZE 

000004 

G$$WRD= 

000000 

N$$MLL= 

000001 

CF.TME= 

10G354 

CS.HFF^ 

G02000 

E$$XPR= 

000000 

i:$RAR= 

000000 

N$$MOV= 

000010 

t.TMO= 

1003'4 

CS.IGN= 

00000.' 

FC.l.CP= 

C00020 

ISSPDN^ 

000000 

N$$MCT= 

000001 
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DLXCTL  -  DLX  control  QIO  functi  MACRO 
Reassign  <L'''ne-id>  for  seruice  access 

178 
179 
180 
181 
182 
183 
IS". 
185 
186 
187 
188 
189 
190 
191 
192 
193 
19A 
195 
196 
197 

198  000172  016702  000022G 

199  0001^6  042702  177760 

200  000202  020227  000002 

201  000206  00U53 

202  000210  020227  000003 

203  0002U  00U50 

204  000216  020227  000000 

205  000222  001050 
206 

207  000224  005763  000010G 

208  000230  001450 
209 
2'0 
211 
212 
213 
214 
21'- 
216 
217 
218 
219 
220 
221 
222 
225 

224  000232 

225  000236  103460 
226 

227  000240  126702  00001 7G 

228  C00244  001434 

229  000246 

230  000252  103452 
,:31 

232  000254 

233  000260  '03445 
234 
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.S8TTL  Reassign  <Line-icl>  for  seruice  access 
^ 
**-CTLSER-Reassign  <Line-'d>  for  seruice  access 

This  routine  is  called  by  the  network  management  seruice  tasks  to 
change  the  <Line-id>  and  process  assignment  without  forci  .j  the 
line  to  be  disabled. 

Inputs: 

Rl  =  Address  of  system  line  table 
R3  =  Address  of  I/O  packet 

I.PRM+6  -  RAD50  name  of  the  target  LLC 
I.PfiM+10-  Priuilege  access  flag; 

0   -  Open  line  non-priuiluged 
<>0  -  Open  line  priuileged 

kill  current  user  (if  any) 


Registers  modified: 

RO,  Rl,  R2,  R3,  R4,  R5 


CTLSER:  MOV 

$PeLKtT$NMST,R2 

BIC 

#»C<LN.STA>,R2 

CMP 

R2,#LN.SER 

BED 

I  SALT 

CMP 

f^#LN.OAU 

BEQ 

ISALT 

CMP 

R2,#LN.0N 

BNE 

IEA80 

TST 

I.PRM+10(R3> 

BED 

lEWLK 

Isolate  current  state  of  the  line 

Is  the  Line  already  in  seruice? 

If  EO,  yes 

Autoseruice  is  the  same 

Is  the  line  on? 

If  EO,  line  in  wrong  state 

Is  fhis  a  priuileged  access? 
If  EQ,  no  . . .  access  denied 


**-CTLREA-Reassign  <Line-id>  to  another  LLC 


Inputs 


This  routine  is  called  to  change  the  <Line-id>  and  process  assignment 
without  forcing  the  line  to  be  disabled. 

Rl  =  Address  of  system  line  table 
R3  =■  Address  of  I/O  packet 

I.PRMt6  -  RAD50  name  of  the  target  LLC 


Registers  modified: 

RO,  Rl,  R2,  R3, 


R4,  R5 


CTLREA:  CALL 
BCS 

CMPB 
BEQ 

CALL 
BCS 

CALL 
BCS 


FNDPR 
CTLERR 


;  Find  the  target  process 
;  I t  CS,  no  such  process 


$P8LK*T$ASNt1  ,R2;  Is  <Line-id>  =il  ready  assigned  to  this  process? 

ISALT         ;  If  EQ,  yes  ...  all  done 

FNDFR         ;  Find  a  free  channel  on  destination  process 

.TLERR         ;  If  CS,  none  auailable 


sccecT 

lENOD 


Allocate  a  CCB 

If  CS,  al location  failure 


\,f\z    n7u 


E  7 

_  Q  C   TO .  C  / 


DLXCTL  -  DLX  control  010  functi  MACRO 
Complete  the  control  request 


591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

605 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 
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.SBTTL  Complete  the  control  request 
t 

»*-CTLABO-Complete  the  control  req;.est  with  an  abort 
♦♦-CTLfiE2-Complete  the  control  reqjest  with  secondary  status 
**-CTLDON-Complete  the  control  req-est  successfully 

Complete  the  control  request. 

Inputs: 

R3  =  Address  of  the  I/O  packet 
R4  =  Address  of  the  control  CC8 


.ENABL  LS8 


001142 
001146 
001150 

012700 
005001 
000406 

000000 C 

CTLABO: 

MOV 
CLR 
BR 

#IE.A8O&377,R0 

Rl 

20$ 

001152 
001156 

016401 
000401 

000024 

CTLRE2: 

MOV 
3R 

C.8Uf2(R4),R1 
10$ 

001160 
001162 
001166 

005001 
012700 

OOOOOOG 

CTLDON: 

10$: 

20$: 

CLR 
MOV 
CALL 

Rl 

OIS.SUCRO 

aCCBRT 

001172 

000001 

CALLR 
.EMD 

RQDON 

;  Set  abort  status 

;  No  secondary  status 

;  Enter  common  code 

;  Set  up  secondary  status 

;  Enter  common  code 

;  No  secondary  status 

;  Set  success  status 

;  Release  the  CCB 

;  Complete  the  I/O  request 


MATDn     \.nt:     n7h     tf-<H:i\j 


E     8 

.  I;,n-«i;    P?-I5i       Pane    ?7-1 


DLXDAT  -  DLX  data  bases  MACRO  V05.03b  Friday  28-Jun-85  22:^4 
Exec   wector   table 


D     9 

Page  7 


88 

89 

90 

91 

92 

95  000062 

9i  000062 

9'^  00006A 

9t.  000066 

9/  000070 

98  000072 

99  00007A 
100 

101 

102 

103 

104 

105  000076 

10'    C00100 

107 

108 

109 

110 

111 

112 

113 

IK 

115  000104 

116  000106 

117  000110 
i18  000112 

119  0001U 

120  000116 

121  000120 

122  000122 

123  000124 

124  000126 

125  00C130 

126  000132 

127  0001^4 

128  000136 

129  000140 
130 


000000 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 


OOOOOOG 
OOOOOOG 


000102  OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000027 


.S8T1L  Exec  vector  tabte 


;  Exec 

vector  table 

§DLXV] 

.WORD 

0 

KSAR6 

:  .WORD 

KISAR6 

ACHCK 

:  .WORD 

SACHCK 

BLXIO 

:  .WORD 

SBLXIO 

INI8F 

:  .WORD 

SINIBF 

lOFIN 

:  .WORD 

SIOFIN 

.IF  DF 

R$$MPL 

NCPJ: 

.WORD 
.ENDC 

SNCPU 

QUE8F 

:  .U'ORD 

SQUEBF 

RELOC 

:  .WORD 

SRELOC 

.IF  DF 

R$$MPL 

SCDEV 

:  .WORD 

SSCDEV 

SCERR 

:  .WORD 
.ENDC 

SSCERR 

TST8F 

:  .WORD 

STSTBF 

.IF  DF 

R$$MPL 

URMST 

:  .WORD 
.ENDC 

SURMST 

CC8GT 

:  .WORD 

$CC8GT 

CCBRT 

:  .WORD 

$CC8RT 

CEMUL 

:  .WORD 

SCEMUL 

CMPDV 

:  .WORD 

SCMPDV 

LDBGT 

:  .WORD 

SLDSGT 

LLCRQ 

:  .WORD 

SLLCRQ 

lLCRS 

:  .WORD 

SLLCRS 

LLCTA 

:  .WORD 

SLLCTA 

MAXOV 

:  .WORD 

SMAXOV 

PDVID 

:  .WORD 

SPDVID 

PDVTA 

:  .WORD 

SPDVTA 

RDBRT 

:  .WORD 

SRDBRT 

RD8SZ 

•:  .WORD 

$RDesz 

SLTIA 

■:  .WORD 

SSLTMA 

SL.NM 

•:  .WORD 

SSLTNM 

SDLXVL 

==«.-$DLXVT>/2>-1 

Flags  word 


Vector  table  length 


E  9 
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Start  operation  of  a  physical  channel 


184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196  OOU250 

042715 

004000 

197  000254 

032715 

000400 

198  000260 

001010 

199 

200  000262 

012700 

012006 

201  000266 

202  000272 

103417 

203  000274 

052715 

000400 

204  000300 

000414 

205 

206  000302 

012700 

001006 

207  000306 

032715 

001000 

208  000312 

001402 

209  000314 

012700 

004006 

210 

211  000520 

212  000324 

103402 

213  000326 

112715 

000002 

214 

215  000332 

216 

217 

000001 

.SBTTL  Start  operation  of  a  physical  channel 
♦♦-STRCHN-Start  operation  of  a  physical  channel 

Start  the  iita  link  layer  protocol  of  a  physical  channel. 


Inputs: 
R5 


Registers  modi  f ied: 
RO,  R4 


Address  of  physical  link  access  block 


STRCHN::8]C 
BIT 
BNE 


MOV 

CALL 

BCS 

BIS 

BR 

MOV 
BIT 
BEQ 
MOV 

CALL 
BCS 

Move 


10$: 


20$: 


30$: 


RETURN 
.END 


Assume  chaining  not  supported 
Is  the  physical  link  enabled? 
If  NE,  yes 


#LF$CHN,(R5) 
#LF$ENB,(R5) 
10$ 

#FC.CTLIFS.ENB,RO 

DOFNC         ;  Issue  control  function 

30$  ;  If  CS,  resource  allocation  failure 

#LF$ENB,(R5)    ;  rfark  the  physical  link  enabled 

30$  ;  Wait  for  enable  to  complete 

#FC.CTL1FS.STR,R0 

#LF$M0P,(R5)    ;  Should  we  start  the  channel  in  maintenance  mode? 

20$  ;  If  EQ,  no 

#FC.C,LIFS.MNT,R0 

DOFNC  ;  Issue  control  function 

30$  ;  If  CS,  resource  allocation  failure 

#LS$STR,(R5)    ;  Set  new  state  to  'Starting' 


E  10 
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OLXQIO  -  IS'JE  I/O  TO  DLX      MACHU  V05.03b  Saturday  29-Jun-85  12:23 
CONTEXT  AREA  OFfSET  DEFINITIONS 


000002 
000004 
000010 
000020 
000040 
000100 
000200 
000360 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
OC'OOO 
002000 
004000 
010000 
C20000 
040000 
100000 


000001 
000002 
000004 
000010 

oooo:o 

000040 
000100 
000200 
000400 
001000 
C10000 
020000 
040000 
100000 


LPSTRB 
LPSMUX 
LPSMPT 
LPiWDy 
LPSWCN 
LPSUUN 
LPSWTR 


2 

4 

10 

20 

40 

100 

200 


Page  6-2 


TRIBUTARY  NUMBER  FOUND 

DEVICE  IS  MUX 

LINE  IS  MULTIPOINT 

WILD  CARD  DEVICE  NAME  FOUND 

WILD  CARD  CONTROLLER  NUMBER  FOUND 

WILD  CARD  UNIT  NUMBER  FOUND 

WILD  CARD  TRIBUTARY  NUMBER  FOUND 


LPSWLD  =  LP$WDV!LP$WCNILf'$WUN!LP$WTR  ;  WILD  CARD  FIELD  MASK 


FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 


LS$NTL= 
LS$STA= 
LS$COS= 
LS$OWN= 
LS$TAD= 
LS$ACT= 
LSSDEA^ 
LC$NTL= 
LC$OWN= 
LS$DDT= 
LS$DLT= 
LS$PLT= 
LS$BBT= 
LSSNMT^ 
LS$XMT= 
LS$SER= 


1 

2 

4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 


NTL  SET  FUNCTION 

SET  STATE 

SET  COST 

SET  OWNER 

SET  TRIBUTARY  ADDRESS 

SET  MULTIPOINT  ACTIVE 

SET  MULTIPOINT  DEAD 

NTL  CLEAR  FUNCTION 

CLEAR  OWNER 

SET  DEAD  TIMER 

SET  DELAY  TIMER 

SET  POLL  TIMER 

SET  BABBLE  TIMER 

SET  NORMAL  TIMER 

SET  TRANSMIT  TIMER 

SET  SERVICE  [ENABLE/DISABLE] 


FLAGS  WORD  BIT  DEFINITIONS  (L$FL1) 

LS$BSA=1  ;  SET  ACTIVE  BASE 

LS$BSD=2  ;  SET  DYING  BASE 

LS$8S1=4  ;  SET  INACTIVE  BASE 

LS$INA=10  ;  SET  ACTIVE  INCREMENT 

LS$IND=20  ;  SET  DYING  INCREMENT 

LS$JNI=40  ;  SET  INACTIVE  INCREMENT 

LSt7Hl=100  :  SET  DEAD  THRESHOLD 

LS$TH2=200  ;  SET  DYIMG  THRESHOLD 

LS$TH3=400  ;  SET  INACTIVE  THRESHOLD 

LS$MXB=1000  ;  SEi  MAXIMUM  BLOCKS 

LS$HTM=10000  ;  SET  HELLO  TIP.EP 

LS$MDT=20000  ;  SET  MODEM  TEST 

LS$LOO=40000  ;  SET  CONTROLLER  LOOP~\CK 

LS$N0R=100000  ;  SET  CONTROLLER  NORMmL 
.IF  DF  R$$PR0  ;  PRO/DECNET 

LOOPBACK  TYPE  WORD  BIT  DEFINITIONS  (L$LTY) 


LSSINT  =  0 
LSSEXT  =  1 


INTERNAL  LOOPBACK 
EXTERNAL  LOOPBACK 


MODEM  TEST  TYPE  WORD  BIT  DEFINITIONS  (L$MDT) 


LSSLCL  =  0 
LSSREM  =  1 
LSSOFF  =  2 
.ENDC   ;  DF  R$$PRO 


LOCAL  MODEM  TEST 
REMOTE  MODEM  TEST 
SHUT  OFF  MODEM  TESTb 
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Allocate  and  till  a  chain  of  large  data  buffers 


417 

A18 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439  000726 

440 

441  000730 

442  000736 

443  000744 

444  000752 

445  000754 
446 

447  000756 

448  000762 

449  000764 

450  000766 

451  000770 

452  000776 
453 

454  001004 

455  001006 

456  001010 
457 

458  001012 

459  001014 

460  001020 

461  001024 

462  001026 

463  001032 
464 

465  001040 

466  001042 

467  001046 

468  001052 
469 

470  001056 

471  001062 

472  001066 

473  001072 


016367 
016367 
016367 
005046 
010601 


103460 
005716 
001406 
167764 
067764 

005014 
010411 
010401 


016-^00 
020067 
10H05 
016700 
016764 


016701 
016702 
162702 

016403 
016404 


Inputs 


.SSTTL  Allocate  and  fill  a  chain  of  large  data  buffers 
+ 
**-FILCHN-Allocate  and  fill  a  chain  of  large  data  buffers 

Allocate  sufficient  large  data  buffers  to  contain  the  user's 
message  and  copy  the  data  into  the  buffer  chain. 

R3  =  Address  of  the  I/O  packet 

I.PRM  -  Bias  of  data  buffer 

I.PRMf2  -  Virtual  address  of  data  buffer 

I.PRM+4  -  Length  of  data  buffer 

R5  =  Address  of  physical  link  access  block 

Outputs: 

R4  =  Address  of  first  CCS  in  the  chain 
'C  Clear  -  Chain  successfully  allocated 
'C  Set   -  Allocation  failure 

Registers  modified: 
RO,  R1,  R2,  R3 

FILCHN: :SAVRG   <R5> 


OOOOOOG  OOOOOOG 
000002G  OOOOOOG 
000004G  OOOOOOG 


OOOOOOG  000016 
OOOOOOG  000020 


000020 
OOOOOOG 

OOOOOOG 
OOOOOOG  000020 


OOOOOOG 
OOOOOOG 
020000 

000014 
000016 


10$: 


20$: 


30$: 


Save  address  of  physical  link  block 


MOV 
MOV 
MOV 
CLR 
MOV 

CALL 

BCS 

TST 

BEQ 

SUB 

ADD 

CLR 
MOV 
MOV 

SAVRG 

MOV 

CMP 

BLOS 

MOV 

MOV 

SAVRG 
MOV 
MOV 
SUB 

MOV 
MOV 
CALL 
RESRG 


I.PRM(R3),$BIAS  ;  Set  up  bias, 
I.PRM+2(R3),$VA  ;   virtual  address  and  count 


Initialise  chain  listhsad 
Save  address  of  listhead 


I.PRMt4(R3),$BYTES 

-(SP) 

SP,R1 

SLDBGT  ;  Allocate  a  large  data  buffer 

100$  ;  If  CS,  allocation  failure 

(SP)  ;  Is  this  the  first  buffer  in  the  chain? 

20$  ;  If  EQ.  yes 

aMAX0V,C.BUF+2(R4) 

aMAX0V,C.CNT(R4);  We  can  use  the  extra  space  in  this  buffer 

(R4)  ;  Clear  link 

R4,(R1)  ;  Add  CCB  to  end  of  list 

R4,R1  ;  Save  end  of  list  address 

<R1>  ;  Save  current  end  of  list  address 

C.CNT(R4),R0  ;  Get  size  of  the  buffer 

R0,$8rTES  ;  Is  there  enough  data  left  in  the  buffer? 

30$  ;  If  LOS,  yes 

$BYTES,RO  ;  Use  remaining  buffer  size 

$BYTES,C.CNT(R4);   and  as  the  byte  count  in  the  CCB 

<R0>  ;  Save  copy  size 

$B!AS,R1  ;  Set  up  source  relocation  bias 

$VA.R2  ;   and  virtual  address 

#20000, R2  ;      biased  for  APR5 

C.8UF(R4),R3  ;  Set  up  destination  relocation  bias 

C.BUF+2(R4),R4  ;   and  virtual  address 

SBLXIO  ;  Copy  the  data 

<R0,R1>  ;  Restore  copy  size  and  end  of  list  address 


E  13 


DLXSUB  -  DLX  su 

Dro'jtines 

Comcute  address 

within 

process  c 

9^2 

9A5 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956  002354 

957  002356 

010005 

958  002360 

010501 

959  002362 

042701 

000377 

960  002366 

040105 

961  002370 

000301 

962  002372 

067701 

OOOOOOG 

963  002376 

011101 

964  002400 

010102 

965  002402 

006305 

966  002404 

062701 

000020 

967  002410 

060501 

968  002412 

969  002414 

D  U 

MACRO  V05.03b  Friday  28-Jun-85  22:56  Page  22 
hannel  mapping  table 

.SSTTL  Compute  address  within  process  channel  mapping  table 

♦♦-MAPAD-Compute  address  within  prccess  channel  mapping  table 

Compute  the  address  of  the  channel  mapping  entry  associated  with  a 
given  ci  annel. 

Inputs: 

RO  =  PDV  and  Channel  assignment 

Outputs: 

R1  =  Address  of  the  process  channel  mapping  table  entry 
R2  =  Address  of  the  PDV 


MAPAD : 


SAVRG 

MOV 

MOV 

BIC 

BIC 

SWAB 

ADD 

MOV 

MOV 

ASL 

ADD 

ADD 

RESRG 

RETURN 


<R5> 

R0,R5 

R5,R1 

#377,R1 

R1,fi5 

R1 

aPDVTA.RI 

(RD.RI 

R1,R2 

R5 

#Z.MAP,R1 

R5,R1 

<R5> 


Get  a  free  register 
Get  the  PDV  and  Channel 
Isolate  PDV  and  Channel 


Compute  address  in  PDV  index  table 

Get'address  of  the  PDV 

Saue  address  for  output 

form  word  offset 

Compute  address  of  process  channel 

mapping  table  entry 
Restore  register 


E  14 


D  15 


EEEEEEEEEEEEEEE 

VVV 

VVV 

EEEEEEEEEEEEEEE 

VVV 

VVV 

EEEEEEEEEEEEEEE 

VVV 

VVV 

EEE 

VVV 

VVV 

EEE 

VVV 

VVV 

EEE 

VVV 

VVV 

EEE 

VVV 

VVV 

EEE 

VVV 

VVV 

EEE 

VVV 

VVV 

EEEEEEEEEEEE 

VVV 

VVV 

EEEEEEEEEEEE 

VVV 

VVV 

EEEEEEEEEEEE 

VVV 

vw 

EEE 

VVV 

VVV 

EEE 

VVV 

VVV 

EEE 

VVV 

VVV 

EEE 

VVV 

VVV 

EEE 

VVV 

VVV 

EEE 

VVV 

VVV 

EEEEEEEEEEEEEEE 

VVV 

LLLLLLLLLLLLLLL 

EEEEEEEEEEEEEEE 

VVV 

LLLLLLLLLLLLLLL 

EEEEEEEEEEEEEEE 

VVV 

LLLLLLLLLLLLLLL 
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EVL  -  EVENT  LOGGER  PROCESS     MACRO  V05.03b  Friday  28-Jun-85  22i58  Page  11-1 
ALLOCATE  BUFFER  FOR  EVEMT 

376  000626  RESRG   <R1,R0>        ;  RESTORE  REGISTERS 

378  000632  000261  30$:    SEC  ;  INDICATE  ERROR 

379  00063A  «$:    RETURN 


r   1A 


016763  OOOOOOG  000066 


SESUSR  -  Session  control  user  i 
Set  up  connect  request  services 


65 
66 
67 
68 
69 
70 
71 
72 
73 
7^ 
75 
76 

n 

78  000000 

79 

80 

81 

82 

83 

8^1 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96  000006 

97 

98 

99 

100  COOOH 

101  000020 
1C2  000026 

103  000030 

104  00003A 

105  000042 

106  OOOOa 
107 

108  000050 

109  000054 
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.SBTTL  Set  up  connect  request  services 

♦*-SETREQ-Set  up  connect  request  services 

Set  up  the  connect  request  services  that  must  be  placed  in  the 
connect  initiate  or  connect  confirm  message. 

Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 


Registers  modified: 
RO 


012700 
132763 
001402 
052700 
132763 
001402 
052700 

110067 


SETREQ.  MOV 

.IF  DF 

MOVB 
BIT 
BEQ 
BIS 


'0$: 


20$: 


156763  OOOOOOG  000014 


000001 
00020' 

000010 
000100 

000004 

OOOOOOG 


000014 
000014 


30$: 


40$: 


$LTM,L.1LTT(R3) 

N$$SLI 

$FL0W,R0 

#S$NTIF,RO 

10$ 


BIT 
BEQ 
BIS 

BK 
BISB 

.IFF 

BISB 

.ENDC 

MOV 

BIT8 

BEQ 

BIS 

BITS 

BEQ 

BIS 

MOVB 
RETURN 


Set  up  long  term  timer  initial  value 


Get  requested  flow  control 

Does  user  require  notification  of  flow  control  changes? 

If  EQ,  no 


*LT.NOT*400,(R3);  Mark  notification  required 

#S$TMDA,RO      ;  Does  uier  require  timer  delayed  ACK  processing? 
20$  ;  If  EQ,  no 

#LT.TDA*400,(R3);  Mark  processing  re^juired 

#«C<LF.MMf  !LF..r.F>,RO 

R0,L.FLAG(R3)   ;  Set  requested  flow  control 


$FL0U,L.FLAG(R3);  Set  requested  flow  control 


#CL$TYP,R0      ;  Set  up  services  byte 

#LF.MMF,L.FLAG(R3) 

30$  ;  If  EQ,  not  message  flow  control 

#CL$MF1.,R0     ;  Set  message  flow  control 

#LF.MSF,L.FLAG(R3) 

40$  ;  If  EQ,  not  segment  flow  control 

#CL$SFL,R0  ;    Set   seg:nent    flow  control 


R0,$SRVC5 


Set  up  services  byte 
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SESUSR 
Process 

553 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
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receiued  interrupt  message 


001346 
001352 
001362 
u01366 
101374 
001402 
001410 


016403  000012 


.SBTTL  Process  received  interrupt  message 
»*-USR]NT-Process  received  interrupt  message 


Place  a  received  interrupt  message  at  the  end  of  the  task's 
mailbox  queue. 


Inputs: 
R4 

R5 


Address  of  fCB 

C.STS   -  Physical  address  of  LIT 
Address  of  database  descriptor 


Registers  modified: 

RO,   Rl,   R2,  R3, 


R4 


016303 
016367 
012764 
116364 


000040 
000012 
000002 
000003 


OOOOOOG 

000010 

000011 


USR]NT::M0V  C.STS(R4),R3    ;  Get  physical  address  of  LLT 

CALLE  ACCLLT         ;  Gain  access  to  the  LLT 

MOV  L.WIND(R3),R3   ;  Get  address  of  the  window  block 

MOV  W.M80X(R3),$MAJ8X 

MOV  #NT.]NT,C.FNC(R4) 

MOVB  W.LUN(R3),C.M0D(R4) 

CALLR  ADDMAI         ;  Add  item  to  mailbox 


F  2 
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•♦FILE'*ID»»DLXCEX 


DDDDDDDD 

XX     XX 

cccccccc 

EEEEEEEEEE 

XX      XX 

DDDDDDDD 

XX    XX 

cccccccc 

EEEEEEEEEE 

XX      XX 

DD      DD 

XX      XX 

cc 

EE 

XX      XX 

DD      DD 

XX      XX 

cc 

EE 

XX      XX 

DD      DD 

XX   XX 

^c 

EE 

XX  XX 

DD      DD 

XX   XX 

cc 

EE 

XX  XX 

DD      DD 

XX 

cc 

EEEEEEEE 

XX 

DO      DD 

yx 

cc 

EEEEEEEE 

XX 

DD      DD 

XX   XX 

cc 

EE 

XX  XX 

DD      DD 

XX   XX 

cc 

E' 

XX  XX 

DD      DO 

XX      XX 

cc 

• 

XX      XX 

DO      DD 

XX      XX 

cc 

EE 

XX      XX 

DDDDDODD 

LLLLLLLLLL 

XX      XX 

cccccccc 

EEEEEEEEEE 

XX      XX 

DDDDDDDD 

LLLLLLLLLL 

XX      XX 

cccccccc 

EEEEEEEE'- 

XX      XX 

LL 

SSS5SSSS 

TTTTTTTTTT 

LL 

SSS^SSSS 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLi-LLLLL 

ssssssss 

F     3 
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ontrol  complete  processing 


335 

336 

337 

338 

339 

310 

341 

312 

313 

311 

315 

316 

317 

318 

319 

350 

351 

352 

353 

351  000706 

355  000712 

356 

357  000711 

358  000720 

359  000721 

360  000726 
361 

362  000732 

363  000^36 

361  000712 
365 

366  000746 

367  000752 
368 

369  000756 

370 

371 

372 

373 

371  0C076.' 

375  00076; 

376  000766 

377  000770 

378  000772 

379  000771 

380  000776 
38''  001000 
'82  001002 
385  001001 
38-  001006 
385  001010 


005761  000006 
100121 


116100  000011 

001102 

105365  000002 

016101  000012 

016102  000016 
166102  000026 


.SBTTL  Control  complete  processing 

»»-CTLCP-Control  complete  processing 

This  routine  is  entered  from  the  COMM/EXEC  when  a  control  complete 
request  is  dequeued  for  this  process. 

Inputs: 

R3  =  Subfunction  code 

R1  =  Address  of  control  CCB 

Outputs:  (to  processing  routines) 
R1  =  Completion  status 

R2  =  Error  offset  for  characteristics  functions 
R5  =  Address  of  physical  link  access  block 

Registers  modified 


RO,  R1,  R2,  R3,  R1,  R5 


CTLCP:: 


10$: 


20$: 


Tsr 

BMI 
CALL 

Move 

BEQ 
DECS 

MOV 
MOV 

sue 

CALL 
CALLR 


C.LiN(RI) 
20$ 

STLNK 

C.M0D(R1),R0 
10$ 
L$RSR(R5) 

C.STS(R1),R1 

C.8UF1+2(R1),R2 

C.8UF2^2(R1),R2 

aCCBRT 
aCTLTBL(RO) 


CALLR   CTLCCP 


001012' 
001051' 
001162' 
000771' 
001051' 
OOIUO' 
001110' 
C01001' 
001003' 
001005' 
001010' 
001162' 


;  +■ 

;  Control  comp 

lete  dis 

CTLTBL:  .WORD 

ASYNCH 

.WORD 

STRK 

.WORD 

STOPC 

.WORD 

.t1 

.WORD 

STRTC 

.WORD 

CHARC 

.WORD 

CHARC 

.WORD 

.+1 

.WORD 

.+1 

.WORD 

.+1 

.WORD 

EN8LC 

.WORD 

STOPC 

Is  completion  from  another  LLC? 
If  MI,  yes 

Get  address  of  link  control  block 

Recover  subfunction  code 

If  EQ,  asynchronous  error 

Reduce  count  of  active  control  requests 

Get  completion  status 
Compute  error  offset  for 
characteristics  functions 

Release  the  CCB 

Dispatch  to  processing  routine 

Process  LLC  control  completions 


Asynchronous  error 

Start  complete 

Stop  complete 

Reserved 

Maintenance  start  complete 

Set  characteristics  complete 

Get  characteristics  complete 

Reserved 


Enable  complete 
D'sable  complete 
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DLXCEX  -  DLX/CE/,  interface  rout  '1ACR0  V05.03b  Friday  28-Jun-85  22:53  Page  15 


DLXCEX  CREATED  BY     MACRO     ON  28-.IUN-85   AT   22:53 

SYMBOL  CROSS  REFERENCE 


E     5 

PAGE   5 

CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

Z.LEN 

=  000016 

#5-48 

Z.LLN 

000006 

#5-48 

Z.MAP 

000020 

#5-48 

Z.NAM 

000004 

#5-48 

Z.PCB 

000012 

#5-48 

Z.SCH 

000007 

#5-48 

$BIAS 

~      ****** 

GX 

♦13-288 

13-i07 

SBUFFG 

-   ****** 

GX 

•12-263 

SBYTES 

=   ****** 

GX 

»1 3-290 

13-295 

13-297 

SDLXCH 

r  ****** 

GX 

11-192 

SDLXTB 

000000 

RG 

#7-67 

$IOS 

=  ****** 

GX 

•13-287 

•13-298 

13-325 

$VA 

r  ****** 

GX 

•13-289 

13-308 

•13-309 

•13-310 


13-324 


DLXCEX 
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Symbol   table 


N$$PEM= 

000001 

RCVTBL  000064R 

T$DDM 

OOOOU 

T$PDV 

000007 

XMTCHR 

0003URG 

Pt$P45= 

000000 

R$$DER=  000000 

TSDLC 

000015 

TSSFLG 

000004 

XMTPRO 

000446R 

P$$WRD= 

000000 

R$$<11=  000001 

T$FLG 

000006 

T$SLF 

000012 

XMTTBL 

000374R 

Q$10PT= 

000010 

R$$SND=  000000 

TSKRB 

000020 

T$SLN 

000010 

X$$DBT= 

000000 

RCMAX  = 

000006 

R$$11M=  000000 

T$LEN 

00002A 

T$$KHG= 

000000 

$ADR  = 

»*«*♦*  GX 

RCVADR 

000072R 

S$$URG=  000000 

TSLIN 

000003 

T$$MIN= 

000000 

$FLAGS= 

♦****»  GX 

R'VCHR 

OOOOOORG 

S$$YSZ=  007600 

TSNAM 

000000 

V$$CTR= 

001000 

$PRO  = 

******   GX 

RlVDAD 

000206R 

TSASN   000016 

TSNMST 

000022 

XMMAX  =-• 

000004 

.$$$$.= 

000034 

RCVPRO 

000U6R 

T$CTL   000002 

TSNSIA 

000005 

XMTADR 

000400R 

.  ABS. 

-77776 
000500 

000 
OCl 

(RW,I,GBL,ABS,0VR' 
(RU,I,LCL,REL,CON) 

Errors 

detected: 

U 

*•♦   Assembler   staf'stics 


Work      file      reads:  11 

Uork      f 1 le   writes:  14 

Size  of  work   file:  17569  Words      (   69  Pages) 

Size  of  core  pool:  17608  Words      (   67  Pages) 

Operating     system:  RSX-11M/PLUS 
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Reassign  <Line-id>  for  service  access 


235  000262 

236  000266 
257  000272 
238  000300 
239 

240  000302 

241  000310 

242  000316 

243  000324 

244  000332 


012711 
016:^02 
016764 
001457 

112764 
016764 
012764 
012764 


140000 

00001 OG 

00001 6G  000024 


000000  000004 
00001 6G  000006 
002006  000010 

000001  000012 


MOV  #ZS.8SY,(R1)    ;  Mark  channel,  temporarily  busy 

MOV  $P8LKtT$SLN,R2  ;  Get  SLN  and  logical  tributary 

MOV  $PBLK+T$ASN,C.BUF2(R4) 

BEQ  TLASI        ;  If  EQ,  no  current  assignment 

MDVB  #NX.ASS,C.NSP(R4) 

MOV  $PeLKtT$ASN,C.L]N(R4) 

MOV  *FC.CTLIfS.STP,C.FNC(R4) 

MOV  #ST0P,C.STS(R4)  ;  Format  CCB  to  stop  current  assignment 

CALIR  QCC8L         ;  Queue  CCB  to  current  LLC 


ni  XrTI  -nix  rnntrnl  Qin  funrti 
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Symbol    table 


ASSIGN= 

*«»»**  GX 

CS.DCR= 

000400 

C.LNK 

000000 

FS.MNT= 

004000 

LF$CHN= 

004000 

A$$CHK= 

000000 

CS.DEF= 

000004 

C.MOD 

000C11 

FS.MSN= 

014000 

LF$ENB= 

000400 

A$$CPS= 

000000 

CS.DEV= 

000002 

C.NSP 

000004 

FS.REA= 

001000 

LF$MOP= 

001000 

At$PRI= 

000000 

CS.DIS= 

000040 

C.PRO 

000042 

FS.RET= 

000000 

LF$RSR= 

399999 

A$$TRP= 

000000 

CS.ENA= 

000001 

C.RSV 

000002 

FS.REZ= 

69^995 

LF.ACT= 

100000 

CB.CCB= 

000002 

CS.ENB= 

000020 

C.STA 

000007 

FS.RL8= 

002000 

LF.BRO= 

000400 

CB.DDM= 

000040 

CS.ERR= 

100000 

C.STS 

000012 

FS.RNG= 

011000 

LF.BWT= 

000007 

CB.OLC= 

000020 

CS.FTL= 

001000 

C.URM 

177776 

FS.RST= 

000000 

LF.ENA=: 

002000 

CB.RDB= 

OOOOOA 

CS.HCR= 

000001 

C.XACP 

000004 

FS.RTN= 

001000 

LF.LPB= 

001000 

CB.SDB= 

000010 

CS.HFE= 

002000 

C.XID 

000035 

FS.SET= 

005000 

LF.MDC= 

000100 

CB.SL1= 

000100 

CS.LST= 

040COO 

C.XLEN 

000044 

FS.SFC= 

005000 

LF.MFL= 

004000 

CB.XLB= 

000001 

CS.MTL= 

004000 

C.XPLI 

000040 

FS.SFR= 

006000 

LF.MTP= 

000020 

CCBGT  = 

»*t»tt  GX 

CS.RNG^ 

000010 

C.XPT 

000034 

FS.SFS= 

004000 

LF.PAC= 

000200 

CCBRT  = 

»•♦«*»  GX 

CS.R0V= 

000004 

C.XSVC 

000042 

FS.SPW= 

040000 

LF.RDY= 

040000 

CCPTBL 

000776R 

CS.RSN= 

010000 

C.XTC 

000037 

FS.STM= 

000000 

LF.REA= 

010000 

CC.LLC= 

000200 

CS.SHU= 

000001 

C.X25 

000036 

FS.STP= 

002000 

LF.SER= 

000040 

CE.ABO= 

100362 

CS.S1D= 

000002 

DEASSN= 

******   GX 

FS.STR= 

001000 

LF.nM= 

000010 

CE.DAO= 

100346 

CS.STR= 

000004 

D$$BUG= 

177514 

FS.TRM= 

003000 

LF.UNL= 

020000 

CE.DIS= 

100366 

CS.SUC= 

000001 

D$$ISK= 

000000 

FS.WLB= 

001000 

LF.X2P= 

000000 

CE.ERR= 

100370 

CS.TMO= 

020000 

D$$Ln  = 

000001 

FS.XKL= 

002000 

LLCRS  = 

****** 

CE.ILN= 

100350 

CS.XUR= 

000004 

D$$YNC= 

000000 

FS.XOF= 

010000 

LN.CLO= 

000000 

CE.LTO= 

100356 

CTLABO 

001142R 

D$$YNM= 

000000 

FS.XON= 

007000 

LN.DUM= 

000005 

CE.MOP= 

100372 

CTLASS 

000404R 

D.8IAS 

000000 

FS.ZER= 

002000 

LN.LOA= 

000004 

CE.NTE= 

100361 

CTLASl 

0004 '.OR 

D.SIZE 

000004 

F$$LVL= 

000001 

LN.L0O= 

000003 

CE.RTE= 

100376 

CTLCCP 

000742RG 

ENBX  = 

000002  G 

G$$TPP= 

000000 

LN.OAU= 

000003 

CE.SRC= 

100364 

CTLDEA 

000532R 

E$$XPR= 

000000 

G$$TSS= 

000000 

LN.0FF= 

000001 

CE.STP= 

100352 

CTLDu-1 

001106R 

FC.CCP= 

000020 

G$$TTK= 

000000 

LN.ON  = 

000000 

CE.TME= 

100354 

CTLDON 

001160R 

FC.CTL= 

000006 

6$$WRD= 

000000 

LN.00P= 

000004 

CE.TMO= 

100374 

CTLERR 

000400R 

FC.KCP= 

000016 

IE  ABO 

000344R 

LN.0PE= 

000001 

CE.UNS= 

100344 

CTLLST 

000646R 

FC.KIL= 

000004 

lEALC 

000360R 

LN.REF= 

000002 

CF.CHN= 

000001 

CTLOFF 

000500R 

FC.I»IAN= 

000024 

ENOD 

000374R 

LN.SER= 

000002 

CF.EOM= 

000004 

CTLOFl 

000554R 

FC.MLD= 

000026 

ERSU 

000366R 

LN.STA= 

000017 

CF.HDR= 

000020 

CTL0F2 

001116R 

FC.PCT= 

000030 

lEWLK 

000352R 

LN.SUB= 

000360 

CF.LB  = 

100000 

CTLDN 

000130R 

FC.PWR= 

000022 

IE.ABO= 

******   GX 

LN.TRI= 

000006 

CF.LIN= 

000002 

CTL0N1 

000452R 

FC.RCE= 

000002 

IE.ALC= 

******   GX 

LR$CTL= 

000003 

CF.SOM= 

000010 

CTLOWN 

000604R 

FC.RCP= 

000014 

IE.MOD= 

******   GX 

LR$DEA= 

000200 

CF .SVN= 

000040 

CTLREA 

000232R 

FC.TIM= 

000010 

IE.NOD= 

«««***  GX 

LR$DIS= 

000020 

CF.TRN= 

000100 

CTLREl 

001010R 

FC.XCP= 

000012 

IE.ONP= 

******   GX 

LR$STP= 

000010 

CLACT  = 

******   GX 

CTLRE2 

001152R 

FC.XME= 

000000 

IE.RSU= 

*.***»  GX 

LS$DAT= 

000004 

CM.CIR= 

000002 

CTLSER 

000172R 

FINDC  = 

******   GX 

IE.WLK= 

******  GX 

LS$ERR= 

000200 

CM.FMT= 

100000 

CTLSST 

000654R 

FINDL  = 

******   GX 

INIBF  = 

******   GX 

LS$FRE= 

000000 

CM.HRD= 

000002 

C$$CKP= 

000000 

FNCrSL 

000022R 

I  SALT 

000336R 

LS$IDL= 

000001 

CM.LIN= 

000000 

C$$0RE= 

000400 

FNDFR  = 

******   GX 

issue  = 

*«*»*»  GX 

LS$MSK= 

000037 

CM.LOO= 

000001 

C$$RSH= 

177564 

FNDPR  ^ 

******   GX 

IS.SET= 

******   GX 

LS$RST= 

000020 

CM.XLO= 

000004 

C.ADD 

000034 

FS.AST= 

000000 

IS.SUC= 

**»*»*  GX 

LS$STP= 

000010 

CP.DCF= 

000040 

C.8ID 

000003 

FS.C]e= 

002000 

$$RAR= 

000000 

LS$STR= 

000002 

rP.HDL= 

000007 

C.BUF 

000014 

FS.CRA= 

001000 

$$RDN= 

000000 

L$CTL 

000012 

CP.PS  = 

177400 

C.BUFl 

0000  4 

FS.DIS= 

013000 

I.FCN  = 

******   GX 

L$ERR 

000010 

CP.PSI= 

000200 

C.8UF2 

000024 

FS.DVC^ 

001000 

I.PRM  = 

»«»***  GX 

L$FLG 

000001 

CP.XCF= 

000100 

C.CNT 

000020 

FS.ENB= 

012000 

K$$CNr= 

177546 

LSFNC 

000014 

CP.2FR= 

000030 

C.CNT1 

000020 

FS.EXI= 

001000 

K$$CSR= 

177546 

LSLEN 

000026 

CS.ABO= 

000100 

C.CNT2 

000030 

FS.GET- 

006000 

K$$LDC= 

000000 

L$LIN 

000006 

CS.SRO= 

000002 

C.FLG 

000022 

FS.HLT^ 

000000 

K$$TPS= 

000074 

L$LST 

000000 

CS.BUF= 

000200 

C.FLGI 

000022 

FS.INI= 

000000 

LDIS  = 

000000  G 

LSLUN 

000024 

CS.CES= 

000002 

C.FLG2 

000032 

FS.KIL= 

000000 

LD$LP  = 

000000 

L$RCV 

000020 

CS.CHN= 

000010 

C.FNC 

000010 

FS.LCL= 

100000 

LENB  = 

000001  G 

LSRSR 

000002 

CS.CMP= 

000200 

C.LIN 

000006 

FS.LTM= 

001000 

LF$BRO= 

002000 

L$STT 

000007 

GX 
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152 

133 

13A 

135 

136 

137 

138  000000 

139 

lAO  OOOOOO 

K1 

H2 


000C01 


.SSTTL  Physical  link  access  block  storage 

This  area  is  automatically  extei 
channels  present  in  the  DLX  PDV 

.PSECT  $$$DLX 


This  area  is  automatically  extended  by  NTL  to  include  scace  for  all 
"LX  "-■■ 


PLAST:: 


Start  of  physical  Link  access  blocks 


.END 


^  ^  •■  -.      k  t 


MArnn    \i(\K    n7h    Cr-iH^v,    0H~  \ 
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DLXLIN  -  DLX  Line  control  routi 
Symbol  table 


ABORQ 

A$$CH<= 

A$$CPS= 

AS$PRI= 

A$$TRP= 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CCBGT  = 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

CF.EnM= 

CF.HDR= 

CF.LB  = 

CF.LIN= 

CF.50M= 

CF.SYN= 

CF.TRN= 

CM.CIR= 

CN.FHT= 

CM.HRD= 

CM.LIN= 

CM.LOO= 

CP.DCF= 
CP.HDL= 
CP.PS  = 
CP.PSI= 
CP.XCF= 
CP.2FR= 
CS.ABO= 
CS.8R0= 
C5.BUF= 
CS.CES= 
CS.CHN= 
CS.CMP= 
CS.DCR= 
CS.DEF= 
:S.DEV= 


000046RG 

OCOOOO 

000000 

000000 

000000 

000002 

000040 

000020 

000004 

000010 

000100 

000001 

******  Gx 

000200 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100344 

000001 

000004 

000020 

100000 

000002 

OOOCIO 

000040 

000100 

000002 

lOOOOC 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000030 

000100 

000002 

000200 

000002 

000010 

000200 

000400 

000004 

000002 


CS.DIS= 

CS.ENA= 

CS.ENB= 

CS.ERR= 

CS.FTL= 

CS.HCR= 

CS.HFE= 

CS.LST= 

CS.MTL= 

CS.RNG= 

CS.ROV= 

CS.RSN= 

CS.SHU= 

CS.SID= 

CS.STR= 

CS.SUC= 

CS.TMO= 

CS.XUR= 

C$$CKP= 

C$$ORE= 

C$$RSH= 

C.ADD 

C.8ID 

C.BUF 

C.BUFl 

C.8UF2 

C.CNT 

C.CNTl 

C.CNT2 

C.FLG 

C.FLG1 

C.FLG2 

C.FNC 

C.LIN 

C.LNK 

C.MOD 

C.NSP 

C.PRO 

C.RSV 

C.STA 

C.STS 

C.URM 

C.XACP 

C.XID 

C.XLEN 

C.XPLI 

C.XPT 

C.XSVC 

C.XTC 

C.X25 

DISRO 

DOFNC 

D$$BUG= 

t)$$ISK  = 

[)$$L11  = 

D$$rNC= 

D$$VNM= 
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000040 

D.BIAS  000000 

I$$RAR= 

000000 

L$LEN 

000026 

000001 

D.SIZE  000004 

I$$RDN= 

000000 

L$LIN 

000006 

000020 

E$$XPR=  000000 

K$$CN7= 

177546 

L$LST 

000000 

100000 

FC.CCP=  000020 

K$$CSR= 

177546 

L$LUN 

000024 

001000 

FC.CTL=  000006 

K$$LDC= 

000000 

L$RCV 

000020 

000001 

FC.KfP=  000016 

K$$TPS= 

000074 

L$RSR 

000002 

002000 

FC.KJL=  000004 

LDSLP  = 

000000 

L$STT 

000007 

040000 

FC.MAN=  000024 

LF$BRO= 

002000 

L$TCB 

000022 

004000 

FC.HLD=  000026 

LF$CHtJ= 

004000 

LSTIH 

000004 

000010 

FC.PCT=  000030 

LF$EN8= 

000400 

LSTIMl 

000005 

000004 

FC.PWR=  000022 

LF$M0P= 

001000 

L$TIP 

000003 

010000 

FC.RCE=  000002 

LF$RSR= 

100000 

L$XMT 

000016 

000001 

FC.RCP=  000014 

LF.ACT= 

100000 

L$$ASG= 

000000 

000002 

FC.T]M=  000010 

LF.eRO= 

000400 

L$$DRV= 

000000 

000004 

FC.XCP=  000012 

LF.BWT= 

000007 

L$$P11= 

000001 

000001 

FC.XME=  000000 

LF.ENA= 

002000 

L$$11R= 

000000 

020000 

FS.AST=  000000 

LF.LPB= 

001000 

L.COST 

000015 

000004 

FS.CIB=  002000 

LF.MDC= 

000100 

L.CIL 

000012 

000000 

FS.CRA=  001000 

LF.MFL= 

004000 

L.CVA 

177776 

000400 

FS.DIS=  013000 

LF.MTP= 

000020 

L.DDM 

000002 

177564 

FS.DVC=  001000 

LF.PAC= 

000200 

L.DDS 

000004 

000034 

FS.EN8=  012000 

LF.RDY= 

040000 

L.DLC 

000003 

000003 

FS.EXI=  001000 

LF.REA= 

010000 

L.DLM 

000006 

000014 

FS.GET=  006000 

LF.SER= 

000040 

L.DLS 

000010 

000014 

FS.HLT=  000000 

LF.TIM= 

000010 

L.FLG 

000000 

000024 

FS.INI=  000000 

LF.UNL= 

020000 

L.KRBA 

000016 

000020 

FS.K]L=  000000 

LF.X2P= 

000000 

L.LEN  = 

000022 

000020 

FS.LCL=  100000 

LN.CL0= 

000000 

L.MPF 

000022 

000030 

FS.LTMr  001000 

LN.DUM= 

000005 

L.NMST 

000020 

000022 

FS.MNT=  004000 

LN.LOA= 

000004 

L.NSTA 

000014 

000022 

FS.MSN=  014000 

LN.L0O= 

000003 

L.OWNR 

000021 

000032 

FS.KcA=  001000 

LN.OAU= 

000003 

L.UNT 

000013 

000010 

FS.RET=  000000 

LN.OFF= 

000001 

M$$CRB= 

000124 

000006 

FS.REZ=  003000 

LN.ON  = 

000000 

M$$CRX= 

000000 

000000 

FS.RLB=  002000 

LN.OOP= 

000004 

M$$FCS= 

000000 

000011 

FS.RNG=  011000 

LN.OPE= 

000001 

M$$MGE= 

000000 

000004 

FS.RST=  000000 

LN.REF= 

000002 

H$$NET= 

000000 

000042 

FS.RTN=  001000 

LN.SER= 

000002 

M$$OVR= 

000000 

000002 

FS.SET=  005000 

LN.STA= 

000017 

N$$ACC= 

000001 

000007 

FS.SFC=  005000 

LN.SUB= 

000360 

N$$BUF= 

000001 

000012 

FS.SFR=  006000 

LN.TRI= 

000006 

N$$LDV= 

000001 

177776 

FS.SFS=  004000 

LR$CTL= 

000003 

N$$MCP= 

000001 

000004 

FS.SPW=  040000 

LR$DEA= 

000200 

N$$MLL= 

000001 

000035 

FS.STH=  000000 

LR$DIS= 

000020 

N$$MOV= 

000010 

000044 

FS.STP=  002000 

LR$STP= 

000010 

N$$NCT= 

000001 

000040 

FS.STR=  001000 

LS$DAT= 

000004 

N$$PEM= 

000001 

000034 

FS.TRM=  003000 

LS$ERR= 

000200 

P$$P45= 

000000 

000042 

FS,WL8=  001000 

LS$FRE= 

000000 

P$$WRD= 

000000 

000037 

FS.XKL=  002000 

LS$IDL= 

000001 

Q$$OPT= 

000010 

000036 

FS.XOF=  010000 

LS$MSK= 

000037 

RCVAB  = 

***♦..  GX 

000066RG 

FS.XON=  007000 

LS$RST= 

000020 

R$$DER= 

000000 

OOOOOORG 

FS.ZER=  002000 

LS$STP= 

000010 

R$$K11= 

000001 

177514 

F$$LVL=  000001 

LS$STR= 

000002 

R$$SND= 

000000 

000000 

G$$TPP=  000000 

L$CTL 

000012 

R$$11M= 

000000 

000001 

G$$TSS=  000000 

L$ERR 

000010 

SF.ACT= 

000200 

000000 

G$$TTK=  000000 

LSFLG 

000001 

SF.ENA= 

000100 

000000 

G$$WRD=  000000 

L$FNC 

000014 

SF.LPB= 

000004 

LiAC  n7u 
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DLXQIO  -  ISSUE  1/C  TO  DLX 

MACKO  V05.03b  Saturday  2 

CONTEXT  AREA  OFFSET  DEFINITIONS 

;  Flags  word  bit 

•  Circuits: 

000001 

LSSCHN  = 

000002 

LSSCHB  = 

OOOOCA 

LSSCUS  = 

000010 

LSSDTE  = 

ooooao 

LS$MXR  = 

0000^0 

LSSMXW  = 

000100 

LSSNUM  = 

OCO'^CO 

LSSRET  = 

001000 

LSSBLK  = 

100000 

LPSNXC  = 

;  Lines: 

000400 

LSSHBT  = 

000002 

LSSLMB  = 

000020 

LSSMRT  = 

OOOOAO 

LSSMUN  = 

000200 

LSSNTI  = 

010000 

LSSPRO  = 

;  Common: 

020000 

LSSLCT  = 

;  Groupings: 

LSSPVC  = 

020053 

000362 

LiSSVC  = 

001004 

L5$DLM  = 

76 

12:2 
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Flags  word  bit  definitions  for  X.25  ciriuiti  and  lines  (LSFLX) 


1 
2 
li 

10 

20 

AO 

100 

200 

1000 

100000 

400 
LSSCMB 
LSSMXR 
LSSMXU 
LSSRET 
10000 

=  20000 


Set  PVC  channel 

Set  max ''mum  data 

Set  circuit  usage 

Set  DTE 

Set  maximum  recalls 

Set  maximum  window 

Set  DLM  number 

Set  recall  timer 

Set  blocking 

Circuit  is  a  new  X.25  circuit 

Set  holdback  timer 

Set  max  block 

Set  max  retransmits 

Set  max  window 

Set  retransmit  timer 

Set  line  protocol 

Set  counter  timer 


LSSCHN I LSSCMB I LSSDTE I LSSMXW! LSSLCT 
LSSCMB1LSSMXR!LSSMXW;lSSNUMI LSSRET 
LSSBLKILSSCUS 
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DLXSUB  -  DlX  subroutines 
Table  of  contents 
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s- 

42 

6- 

S'^ 

;'- 

lis 

a- 

169 

9- 

^?/ 

in- 

2/1 

11- 

M)9 

12- 

SA/ 

IV 

401 

U- 

41/ 

1S- 

492 

1ft- 

S^b 

^f- 

ft41 

18- 

/01 

14- 

/94 

20- 

88S 

21- 

91/ 

22- 

942 

2S- 

9/1 

24- 

99ft 

2S- 

1011 

2ft- 

104'' 

27- 

10/5 

Macro  definitions 

Assign  line  to  an  LLC  process 

Validate  optional  characteristics  buffer  and  relocate  aodress 

Convert  ASCII  to  RAD50 

Con^/ert  decimal  to  binary 

Validate  characteristics  buffer 

Compute  address  in  the  COMM/EXEC  databases 

reassign  line  from  an  LLC 

Oeassign  physical  link 

Allocate  and  fill  a  chain  of  large  data  buffers 

Find  a  free  broadcast  p^rt 

Validate  prijileged  user  and  search  for  <Line-id> 

Find  free  channel  in  process  mapping  table 

Scan  databases  for  <Line-id> 

Find  <Line-id>  in  the  COMM/EXEC  database 

Find  an  LLC  process  PDV  index 

Get  SLN  and  logical  tributary  # 

Compute  address  within  process  channel  mapping  table 

Check  if  process  is  loaded 

Release  a  chain  of  receive  dai.a  buffers 

Compute  address  of  physical  link  access  block 

Compute  address  of  network  management  state  byte 

Compute  address  of  the  system  line  table 
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Allocate  and  fill  a  chain  of  large  data  buffers 


A74  001076 

475  001102 

476  001106 
477 

478  001110 

479  001112 

480  001114 

481  001120 

482  001122 
483 

001124 
001126 
001130 


484 
485 
486 
487 
488 


060067  OOOOOOG 
160067  OOOOOOG 
001323 

012604 

042715  100000 
000241 


012604 
001402 


ADD 
SUB 
BNE 


RO,$VA 

RO.SevTES 

10§ 


MOV     (SP)+,R4 

RESRG   <R5> 

BIC     #LF$RSR,(R5) 

CLC 

RETURN 


001134 

489  001136 

490  001140 


000261 


100$: 


110$: 


MOV 
BEQ 
CALL 

RESRG 

SEC 

RETURN 


(SP) 
110$ 
RLSCHN 

<R5> 


R4 


Upd-jte  suurce  »/irtual  address 

ana  remaining  byte  count 
If  NE,  more  to  go 

Get  address  chain 

Restore  physical  link  block  address 
Show  no  allocation  failure 
Indicate  success 


Get  address  of  next  CC8  in  chain 
I  f  EQ,  no  more 
Release  the  chain 

Restore  physical  link  block  address 
Indicate  allocation  failure 
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DLXSUB  - 

DLX  su 

Droutines 

Check  if 

process  is  loaded 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

002416 

016700  000016G 

989 

002422 

990 

002426 

005762  000012 

991 

002432 

001003 

992 

002434 

012700  OOOOOOC 

993 

002440 

000261 

994 

002442 
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.SBTTL  Check  if  process  is  loaded 
*«-PRCLD-Check  if  process  is  loaded 

Test  if  the  specified  process  is  loaded. 


Inputs; 
R5 


PDV  and  Channel 


Outputs: 

RO  =  Error  code  (IE. MOD)  if  process  is  not  loaded 
'C  Clear  -  Process  is  loaded 
'C'  Set   -  Process  is  not  loaded 

Registers  modified: 
RO,  Rl,  R2 


PRCLD: 


MOV 

CALL 

TST 

BNE 

MOV 

SEC 

RETURN 


$P8LK+T$ASN,R0 

MAPAD 

Z.PC8(R2) 

10$ 

#IE.MOD&377,R0 


Get  the  PDV  and  Channel  assignment 

Compute  the  PDV  address 

Is  the  process  loaded? 

If  NE  yes 

Set  up  error  code 

Indicate  process  not  loaded 


F  U 


•»FILE««ID«'EVL 
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EEEEEEEEEE 

VV 

vv 

EEEEEEEEEE 

vv 

vv 

EE 

VV 

vv 

EE 

vv 

vv 

EE 

vv 

vv 

EE 

vv 

vv 

EEEEEEEE 

vv 

vv 

EEEEEEEE 

vv 

vv 

EE 

vv 

vv 

EE 

vv 

vv 

EE 

vv 

vv 

EE 

vv 

vv 

EEEEEEEEEE 

vv 

LLLLLLLLLL 

EEEEEEEEEE 

vv 

LLLLLLLLLL 

SSSSSSSS 

TTTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

SSSSS5 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

F    15 


E  16 

EVL  -  EVENT  LOGGER  PROCESS     MACRO  V05.03b  Friday  28-Jun-85  22:58  Page  12 

MAP  PDV  t   CHANNEL  TO  SLN  &   STATION  NUMBER 


381 
382 
383 
38A 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 

395  000636 

396  000640 

397  00064A 

398  000650 

399  000654 

400  000656 

401  000660 

402  000664 

403  000666 

404  000670 

405  000676 

406  000700 


.SBTTL  MAP  PDV  £  CHANNEL  TO  SLN  &  STATION  NUMBER 

••-MAPCHN-MAP  PDV  AND  CHANNEL  PAIR  TO  SLN  AND  STATION  NUMBER  PAIR 

LLC  PROCESSES  OPERATE  IN  TERMS  Of  CHANNEL  NUMBERS.  SINCE  LINES  MAY 
BE  DYNAMICALLY  SWITCHED  BETWEEN  LLC  PROCESSES,  WE  MUST  CONVERT  THIS 
PAIR  INTO  A  SLN  AND  STATION  NUMBER  PAIR. 


INPUTS: 
R3 


ADDRESS  OF    EVENT   RECORD 


REGISTERS  MODIFIED: 
R2 


116302     000025 

042702     177600 

067702     177156 

011202 

005001 

156301     000024 

006301 

060102 

016263  000020 


MAPCHN: 


000024 


SAVRG 

M0V8 

BIC 

ADD 

MOV 

CLR 

8ISB 

ASL 

ADD 

MOV 

RESRG 

RETURN 


<R1> 

E.LINt1(R3) 

#"C<177>,R2 

aPDVTA,R2 

(R2),R2 

R1 

E.LIN(R3),R1 

R1 

R1,R2 


R2 


Z.MAP(R2) 
<R1> 


,E.LIN(R3) 


GET  A  FREE  REGISTER 
GET  PROCESS'  PDV  INDEX 

AND  REMOVE  UNWANTED  BITS 
POINT  INTO  PDV  INDEX  TABLE 

AND  GET  ADDRESS  OF  PDV 
GET  CHANNEL  NUMBER 

FORM  WORD  OFFSET 
INTO  PDV  MAPPING  TABLE 
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Accept   incoitiing  connect  request 


F  1 

20:01  Pdge  8 


111 

112 

113 

1U 

115 

116 

117 

118 

119 

120 

121 

122 

125 

12A 

125 

126 

127 

128 

129  000056 

130  00006-!. 

131    000070 

132  000100 

133 

13A  00010^ 

004167 

OOOOOOG 

135   000110 

016 

136  000111 

050 

137  000112 

103424 

138 

139  0001 K 

116722 

OOOOOOG 

KO  000120 

112722 

000002 

HI    00012A 

017701 

OOOOOOG 

U2  000130 

116122 

000036 

K3  000134 

116122 

000037 

K4   OOOKO 

U5  OOOU'; 

U6  000154 

112713 

000004 

K7  000160 

000241 

148  000162 

149 

150  000164 

.SBTTL  Accept  incoming  connect  request 

**-SNDACC-Accept  incoming  connect  request 

This  r-outine  will  aLLocate  the  resources  to  transmit  a  connect 
confirm  message  to  accept  the  logical  link. 

Inputs: 

R3  =  Virtual  address  of  LLT 

R5  =  Address  of  database  descriptor 


Outputs: 

'C  Clear 
■C  Set 


Connect  confirm  message  sent 
Resource  allocation  failure 


Registers  modified: 
RO,  R1,  R2,  R4 


SNDACC::MAPLLT 
CALL 
CALLE 
CALL 

JSR 
.BYTE 
.BYTE 

BCS 

M0V8 

MOVB 

MOV 

MOVB 

MOVB 

CALL 

CALLE 

MUV8 

CLC 

RETURN 


SETREQ 
RTRSES 
SAVOPT 

RI.GETSDB 
NT$CC 

MF.CTLIMC.CC 
100$ 


$SRVCS,(R2)+ 

*CV$40,(R2)+ 

5)DECPT,R1 

D$SEG(R1),(R2)+  ; 

D$SEG+1 (R1),(R2)+ 

ADDOPT 

SNSESD 

#ST$CC,(R5) 


;  Map  to  the  LLT 

;  Set  up  connect  request  services 

;  Start  round  trip  timer 

;  Save  optional  data  in  the  LLT 

;  Allocate  a  small  message  buffer 

;  Connect  confirm  message   ' 


If  CS,  allocation  failure 

Fill  in  requested  services 

Fill  in  info  field  -  NSP  version  4.0 

Point  to  DEC  home  block 

Fill  in  segment  size 

Add  optional  data 

Transmit  the  data 

Set  state  to  connect  confirm  sent 

Indicate  success 


100$: 


CAlLR   REMLNK 


Remove  link  data  structures  and  return 
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SESUSR  -  Session  control  user  i  MACRO 
Complete  interrupt  message  processing 

581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
60A 
605 
606 
607 
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.S8TTL  Complete  interrupt  message  processing 

♦•-CMPINT-Complete  processing  of  an  interrupt  message 

The  interrupt  message  data  has  been  copied  into  the  user's  buffer, 
release  the  resources  associated  with  the  interrupt  message  and 
try  to  send  a  new  link  service  message  for  the  interrupt 
subchannel. 

Inputs: 

R4  =  Address  of  CCB 

C.STS  -  Physical  address  of  LLT 
R5  =  Address  of  database  descriptor 


Registers  modified: 

RO,  R1,  R2,  R3, 


R4 


OOUK  112764  000004  000011  CMPINT; 

001422  016403  000012 

001426 

001436 

001446  005263  000044 

001452 

001462 


:M0V8 
MOV 
CALLE 

CALLE 

INC 

CALLE 

RETURN 


*NT$INT,C.M0D(R4) 

C.SrS(R4),R3    ;  Get  physical  address  of  LLT 

FLSRES         ;  Flush  the  resources 

ACCLLT         ;  Gain  access  to  LLT 

L.LSFI(R3i      ;  Update  '/LS  flow  control  count 

CHKACK         ;  Try  to  send  the  link  service  message 
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Table  of  contents 

5-  42  Macro  definitions 

6-  53  Define  local  macros 

7-  60  Process  dispatch  table 

8-  11  Control  enable  processing 

9-  95  Start  o--  line  assignment 
10-  142  Line  shutdown 

Timeout  processing 
Transmit  complete  processing 
Receive  complete  processing 
Control  complete  processing 
Asynchronous  error  processing 
Enable  complete  processing 
Start  complete  processing 
Characteristics  complete  processing 
Stop  complete  processing 


11- 

18? 

12- 

2V 

1^- 

268 

14- 

^^S 

1S- 

^8/ 

16- 

409 

17- 

42/ 

1H- 

461 

19- 

481 
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Asynchronous  error  processing 


387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399  001012  120127  100366 

AOO  001016  00U05 

A01  001020  005765  000022 

402  001024  001A04 

403  001026 
404 

405  001032 

406 

407  001036 


.SBTTL  Asynchronous  error  processing 
**-ASVNCH-Asynchronous  error  processing 


This  routine  is  called  when  an  asynchronous  error  is  reported  by  the 
DLC  layer. 


Inputs: 
R1 


ASYNCH: 


10$: 
20$: 


Completion  status 
R2  =  Error  offset  for  characteristics  functions 
R5  =  Address  of  physical  link  access  block 


CMPB 

BEQ 

TST 

BEQ 

CALLR 

CALLR 

RETURN 


R1,*CE.DIS  ;  Is  this  a  disconnect  error? 

10$  ;  If  EQ,  yes  .   .  , 

L$TC8(R5)  ;  Is  there  an  active  user  for  this  link? 

20$  ;  If  EQ,  no 

STPRQ  ;  Force  error  on  channel 

DISRQ  ;  Force  a  disable  to  be  issued 
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OLXCEX 

CREA 

TED  BY  MACRO  ON  28- 

-JUN-85  AT  22 

53    P 

MACRO  CROSS 

REFERENCE 

C 

MACRO  NAME 

REFERENCES 

CALL 

8-88 

9-120 

9-121 

19-1^1 

12-264 

13-283 

13-311 

13-320 

19-493 

19-531 

19-534 

•9-550 

CALLR 

8-89 
18-477 

9-140 
19-542 

10-180 

12-266 

CCBDFS 

#5-45 

5-47 

CHRDFS 

#5-51 

5-51 

DLXDFS 

#5-45 

5-51 

MAP 

#5-44 

13-318 

PDVDFS 

#5-45 

5-48 

PLADFS 

#5-45 

5-49 

RESRG 

#5-44 

10-164 

13-316 

RETURN 

11-221 

13-333 

15-407 

16-425 

SAVRG 

#5-44 

10-160 

13-292 

SLTDFS 

#5-45 

5-50 

SDQPKT 

#6-55 

17-448 

18-475 

F  5 

PAGE  6 

CREF   04.00 


10-162 
13-322 

13-326 


10-179 
13-328 

14-367 


11-205 
14-357 

14-369 


11-214 
14-366 

15-403 


12-248 
16-423 

15-405 


12-260 
17-454 

17-457 


17-459 


18-479 


19-553 


«*F1LE«»1D««DLXCHR 


G  5 


DLXCHR 

CREATED   BY 

MACRO     ON  28 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

CC.ADR 

=  000100 

5-82 

CS.IGN 

=  000002 

5-80 

CS.SUC 

=  000001 

6-137 

C.ADD 

000034 

6-133 

C.BUf 

OOOOK 

8-200 

C.CHRL 

000010 

5-92 
10-285 

C.DATI 

000002 

5-91 

C.DATO 

000004 

*5-87 

C.NSP 

000004 

8-201 

C.PRO 

000042 

7-169 

C.STAT 

000006 

•  5-90 

FLSADR 

=  ****** 

GX 

0-286 

FLSPRO 

r    ****** 

GX 

1-310 

I.PRM 

=    ****** 

GX 

5-78 

KISAR6 

=     ****** 

GX 

♦8-200 

LFSBRO 

=  002000 

6-130 

N$$VCT 

z:     ****** 

8-200 

RCMAX 

=  000006 

5-85 

RCVADR 

000072 

R 

5-100 

RCVCHR 

000000 

RG 

#5-78 

RCVDAD 

000206 

R 

5-102 

RCVPRO 

000146 

R 

5-10^ 

RCVTBL 

000064 

R 

5-88 

XMMAX 

=  000004 

9-247 

XMTADR 

000400 

R 

9-261 

XMTCHR 

000314 

RG 

#9-240 

XMTPRO 

000446 

R 

9-262 

XMTTBL 

000374 

R 

9-249 

$ADR 

=      *♦*♦*• 

GX 

•10-283 

SFLAGS 

-      ■*•***** 

GX 

•10-286 

$PRO 

-      *♦  +  ***■ 

GX 

•  11-309 

9-244 
9-242 
7-171 
6-134 

•6-133 
11-309 
6-127 

•6-136 


•9-251 


5-93 

•8-208 

7-166 

8-208 

#5-103 

#6-127 

#8-197 
#7-163 
#5-100 
#9-263 
#10-280 

#11-306 
#9-261 
♦10-284 
•11-310 
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CREF       04.00 


8-217 
6-135 

♦6-134 

7-163 
•7-170 


8-208 


10-287 


♦6-135 

8-197 
•8-216 


9-240 


11-311 


•7-169 
9-252 


9-254 


8-210 
10-280 


9-253 
11-306 


10-283 


10-284 


5-103 


9-263 
•10-285 


CRFATFn   RV      MACRO      ON   28-JUN-85    AT    22:53 
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DLXCTL  -  DLX  control  QIO  functi  MACRO 
Common  error  routines 


246 
2A7 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
253 
259 
260 

261  000336 

262  000342 
263 

264  000344 

265  000350 
266 

267  000352 

268  000356 
269 

270  000360 

271  000364 
272 

273  000366 

274  000372 
275 

276  000374 
277 

278  000400 

279  000400 
280 

281 


012700  OOOOOOC 
000416 

012700  OOOOOOC 
000413 

012700  OOOOOOC 
000410 

012700  OOOOOOC 
000405 

012700  OOOOOOC 
000402 

012700  OOOOOOC 


f  7 
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.SBTTL  Common  error  routines 

*«-IEXXX-Common  error  returns 
*»-ISXXX-Alternate  success  returns 

Complete  the  I/O  requests  with  common  error  codes. 

Inputs: 

R3  =  Address  of  I/O  packet 

Registers  modified: 

RO,  R1,  R2,  R3,  R4,  R5 


.ENA8L  LS8 


ISALT:  MOV 
BR 

IE ABO:  MOV 
BR 

lEWLK:  MOV 
BR 

lEALC:   MOV 
BR 

lERSU:   MOV 
BR 

lENOD:  MOV 


10$: 

CTLERR:  CALLR   RQALT 

.DSABL  LS8 


#IS.SET8377,R0  ;  Set  alternate  success  status 
10$ 

#iE.AB0S377,R0  ;  Set  line  in  wrong  state 
10$ 

#IE.WLK8377,R0  ;  Set  access  denied 
10$ 

#IE.ALC&377,R0  ;  Set  allocation  error  status 
10$ 

#IE.RSU&377,R0  ;  Set  shared  resource  in  use 
10$ 

*IE.N00&377,R0  ;  Set  secondary  resource  allocation  failure 
;  Post  completion  on  1/0  packet 
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Symbol  table 


L$TCB 

000022 

M$$CRX= 

000000 

LtTIM 

000004 

M$$FCS= 

000000 

LSTIMI 

000005 

M$$MGE= 

000000 

L$TIP 

000003 

M$$NET= 

000000 

LlXMT 

000016 

M$$0VR= 

000000 

L$$ASG= 

000000 

NXCTL 

000044R6 

L$$DRV= 

000000 

NX.ASS= 

000000  G 

L$$pn  = 

000001 

NX.DEA= 

000006  G 

L$$nR= 

000000 

NX.DON= 

000010  G 

L.COST 

000015 

NX.OFF= 

000004  G 

L.rTL 

000012 

NX.REA= 

000002  G 

L.CVA 

177776 

N$$ACC= 

000001 

L.DDM 

000002 

N$$BUF= 

000001 

L.DDS 

000004 

N$$LDV= 

000001 

L.DLC 

000003 

N$$MCP= 

000001 

L.DLM 

000006 

N$$MLL= 

000001 

L.DLS 

000010 

N$$MOV= 

000010 

L.FLG 

000000 

N$$NCT= 

000001 

L.KRBA 

000016 

N$$PEM= 

000001 

L.LEN  = 

000022 

OFF   = 

000000  G 

L.MPF 

000022 

PRCLD  = 

****»»  GX 

L.NMST 

000020 

P$$P45= 

000000 

L.NSTA 

000014 

P$$WRD= 

000000 

L.OWNR 

000021 

QCCBL 

00071  ORG 

L.UNT 

000013 

Q$$OPT= 

000010 

MAPAD  = 

♦**♦»»  GX 

RQALT  = 

*»»»»♦  GX 

M$$CRB= 

000124 

RQDON  = 

******  GX 

.  AB5. 

177776 

noo 

(RW,I,GBL,ABS,OVR) 

001176 

001 

(RW,I,LCL,REL,CON) 

rors 

detected: 

0 

»*»  Assembler  statistics 

Work   f 

ite  reads 

45 

Work   1 

ile  writes 

53 

Size  0l 

work  file 

18719  Words 

{  74  Pages) 

Size  ol 

core  Bool 

17608  Words 

(  67  Pages) 

Operating  system 

RSX 

-IIM/PLUS 

R$$DER= 

Ri$Kn  = 

R$$SND= 

R$$11M= 

SFMAX  = 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SRCTBL 

STACT  = 

STNMST= 

STOP  = 

STRT  = 

S$$WRG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 


000000 
000001 
000000 
000000 
000022 
000200 
000100 
000004 
000040 
000020 
000010 
000001 
000002 
000040 
OOOOOOR 


000001 
000004 
000000 
007600 
000001 
000000 
000004 
000002 
000003 


GX 
GX 
G 

G 


TSTBF  = 

TSASN 

T$CTL 

T$DDM 

T$DLC 

T$FLG 

T$KRB 

T$LEN 

T$LIN 

T$NAM 

TSNMST 

TSNSTA 

T$PDV 

TSSFLG 

TSSLF 

T$SLN 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 

ZF.C0U= 

ZF.DDM= 

ZF.DIA= 

ZF.DLC= 

ZF.DVP= 

ZF.INI= 


«*«**»  GX 

000016 

000002 

000014 

000015 

000006 

000020 

000024 

000003 

000000 

000022 

000005 

000007 

000004 

000012 

000010 

000000 

000000 

001000 

000000 

001000 

000001 

004000 

000002 

100000 

040000 


ZF.KMX= 

ZF.LLC= 

ZF.LMC= 

ZF. MAN= 

ZF.MFL= 

ZF.MTM= 

ZF.MUX= 

ZF.PSE= 

ZF.SL]= 

ZF.TIM= 

ZF.X3P= 

ZS.ASN^ 

ZS.BSY= 

Z.AVL 

Z.DAT 

.DSP 

.FL6 

.LEN 

.LLN 


Z.MAP 


.NAM 

.PCB 
Z.SCH 
$DLXPD= 
$PBLK  = 
.$$$$.= 


000020 
000004 
000100 
020000 
000010 
000400 
000040 
002000 
010000 
000200 
000000 
100000 
140000 
000014 
000016 
000000 
000010 
000016 
000006 
000020 
000004 
000012 
000007 
****** 
****** 
00C034 


SYf^LXCTLlv2![131,134]DLXCTL/CR/-SP=SY:[1,nRSXMCM.SML/ML,ri30,110]NETLIB/ML,[130,10:RSXMCM/PA:1,[131,10]DLXCTL 


ni  xf  Ti 
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ACHt< 

A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

BLXIO 

rCBGT 

CC8RT 

CEMUL 

CMPDV 

C$$CKP= 

C$$ORE= 

C$$RSH= 

0$$BUG= 

D$$ISK= 

D$$L11= 

D$IYNC= 

D$$YNM= 

D.BIAS 

D.SIZE 

E$$XPR= 

FL$ADR= 

FL$PRO= 

F$$LVL^ 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

INIBF 

lOFIN 

I$$RAR= 

I$$RDN= 

KISAR6= 

KSAR6 

KSSCM:: 


000066RG 

000000 

000000 

000000 

000000 

000070RG 

000104RG 

000106RG 

00011  ORG 

0001 12RG 

000000 

000400 

177564 

1775U 

000000 

000001 

000000 

000000 

000000 

000004 

000000 

000001  G 

000002  G 
000001 
000000 
000000 

ooocoo 

000000 

000072RG 

000074RG 

000000 

000000 

**♦*♦*  GX 

000064RG 

177546 


K$$CSR= 

K$$LDC= 

K$$TPS= 

LDBGT 

LD$LP  = 

LF$BRO= 

LF$CHN= 

LF$ENB= 

LF$MOP= 

LF$RSR= 

LLCRQ 

LLCRS 

LLCTA 

LR$CTL= 

LR$DEA= 

LR$DIS= 

LR$STP= 

LS$DAT= 

LS$ERR= 

LS$FRE= 

LS$1DL= 

LS$MSK= 

LS$RST= 

LSSSTP= 

LSSSTR= 

L$CTL 

L$ERR 

L$FLG 

L$FNC 

LSLEN 

L$L1N 

L$LST 

LSLUN 

LSRCV 


177546 

000000 

000074 

000114RG 

000000 

002000 

004000 

000400 

001000 

100000 

000116RG 

0001 20RG 

0001 22R& 

000003 

000200 

000020 

000010 

000004 

000200 

000000 

000001 

000037 

000020 

000010 

000002 

000012 

000010 

000001 

000014 

000026 

000006 

000000 

000024 

000020 


.  ABS.  000026 
000142 
$$$DLX  000000 
Errors  detected: 


000 
001 
002 
0 


(RW,1,GBL,ABS,0VR) 
(RU,I,LCL,REL,C0N) 
fRW,l,LCL,REL,CON) 


»♦♦  Assembler  statistics 


ulork  file  reads: 
Work  file  writes: 
Size  cf  work  file; 
Size  of  core  pool ; 
Operating  system: 


0 

0 

10335  Words 

14440  Words 

RSa-HM/PLUS 


(  41  Pages) 
(  55  Pages) 


L$RSR 

000002 

RD8SZ 

0001 34RG 

L$STT 

000007 

RELOC 

OOOIOORG 

LSTCB 

000022 

R$$DER= 

000000 

LSTIM 

000004 

R$$Kn  = 

000001 

LSTJMI 

000005 

R$$SND= 

000000 

LSTIP 

000003 

R$$11M= 

000000 

L$XMT 

000016 

SLTMA 

000136RG 

L$$ASG= 

000000 

SLINM 

000140RG 

L$$DRV= 

000000 

S$$WRG= 

000000 

L$$P11= 

000001 

S$$YSZ= 

007600 

L$$11R^ 

000000 

TSTBF 

000102RG 

MAXOV 

000124RG 

T$ASN 

000016 

M$$CRB= 

000124 

TSCTL 

000002 

M$$CRX= 

000000 

T$DDM 

000014 

M$$FCS= 

000000 

T$DLC 

000015 

M$$MGE= 

000000 

T$FLG 

000006 

l«l$$NET= 

000000 

T$KRB 

000020 

M$$OVR= 

000000 

T$LEN 

000024 

N$$ACC= 

000001 

T$LIN 

000003 

N$$BUF= 

000001 

T$NAM 

000000 

N$$LDV= 

000001 

TSNMST 

000022 

N$$MCP= 

000001 

rSNSTA 

000005 

N$$MLL= 

000001 

T$PDV 

000007 

N$$MOV= 

000010 

TSSFLG 

000004 

N$$NCT= 

000001 

T$SLF 

000012 

N$$PEM= 

000001 

T$SLN 

000010 

PDVID 

000126RG 

T$$KMG= 

000000 

PDVTA 

000130RG 

T$$MIN= 

000000 

PLAS7 

OOOOOORG 

002  V$$CTR= 

001000 

P$$P45= 

000000 

X$$DBT= 

000000 

P$$WRD= 

000000 

SACESS 

0000:-ORG 

QUEBF 

000076RG 

$ACHCK= 

******  GX 

Q$$OPT= 

000010 

SADR 

000036RG 

RDBRT 

000132RG 

SBIAS 

000052RG 

SBIGBF 

SBIGSZ 

$BLXIO= 

SBUFFG 

SBYTES 

$CCB6T= 

$CCBRT= 

$CEHUL= 

$CMPDV= 

SDLXCH 

SDLXPD 

$DLXVL= 

SDLXVT 

SFLAGS 

$INI8F= 

$IOFIN= 

$IOS 

$LDBGT= 

$LLCRQ= 

$LLCRS= 

$LLrTA= 

$MAXOV= 

$PBLK 

$POVID= 

$PDVTA= 

$PRO 

$QUEBF= 

$RDBRT= 

$RD8SZ= 

$RELOC= 

$SLTi1A= 

$SLTNM= 

$TSTBF= 

$VA 


000024RG 
000030RG 
******  GX 
000032RG 
000056RG 
******  GX 
******  GX 
******  GX 
******  GX 
000033RG 
000034RG 
000027  G 
000062RG 
000046RG 
******  GX 
******  GX 
000060RG 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
OOOOOORG 
******  GX 
******  GX 
000044RG 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
000054RG 


5vtDLXDAr.v2;[13i,134]DLXDAT/CR/-SP  =  SY:[1,1]RSXI*ICM.SML/ML,[130,110]rjETLlB/ML,[130,10]RSXMCM/PA:1,[131,10]L)LX[)AT 
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SF  MFL=  000040 

S.LEN 

000004 

TSPDV 

000007 

INI  = 

040000 

ZS.8SY= 

140000 

SF .PAC=  000020 

S.NMST 

000002 

TSSFLG 

000004 

KMX= 

000020 

Z.AVL 

000014 

SF .REA=  000010 

S.OWNR 

000003 

TSSLF 

000012 

LLC= 

000004 

Z.DAT 

000016 

SF.SER=  000001 

T$ASN 

000016 

TSSLN 

000010 

LMC  = 

000100 

Z.DSP 

000000 

SF.SVC=  000002 

T$CTL 

000002 

T$$KMG= 

000000 

MAN= 

020000 

Z.FLG 

000010 

3F .UNL=  OOOOAO 

TSDDM 

OOOOU 

T$$MIN= 

000000 

MFL= 

000010 

Z.LEN  = 

000016 

STOPC  =  *♦»**«  GX 

T$OLC 

000015 

v$$crR= 

001000 

MTM= 

000400 

Z.LLN 

000006 

STPCHN  0001 56RG 

T$FLG 

000006 

XMTAB  = 

***»«♦  GX 

MUX= 

000040 

Z.MAP 

000020 

STPRQ   000074RG 

rSKRB 

000020 

X$$D8T= 

000000 

PSE  = 

002000 

Z.NAM 

0000C4 

STRCMN  000250RG 

T$LEN 

000024 

ZF.COU= 

001000 

SLJ  = 

010000 

Z.PCB 

000012 

S$SWRG=  000000 

TSLIN 

000003 

ZF.DDM= 

000001 

riM= 

000200 

Z.SCH 

000007 

S$$YSZ=  007600 

TSNAM 

000000 

Zf.DIA= 

004000 

X3P= 

000000 

$LLCRQ= 

****** 

S.COST  000001 

TSNMST 

000022 

ZF.DLC= 

000002 

ASN= 

100000 

.$$$$.= 

000034 

S.FLG   000000 

TSNSTA 

000005 

ZF.DVP= 

100000 

.  ABS.  177776 

000 

(RW,I,G8L,ABS,0VR)   . 

00053A 

001 

(RW,I,LCL,REL,CON) 

Errors  detected: 

r 

*♦*  Assembler  statistics 

Work  file  reads 

51 

Work   tile  writes 

59 

Size  of  work  f i le 

18796  Words 

(  11-   Pages) 

Size  of  core  cool 

17608  Words 

'  6)  Pages) 

Operatir,g  system 

RbX- 

-11M/PLUS 

GX 


SY:^LXLIN!v2i[°3i?i34]DLXLIN/CR/-SP=SY:[1,13RSXMCM.SML/ML,C130,110]NETLIB/ML,[130,10]RSXMCM/PA:1,C131,10]DLXLlN 


roc  ATcri    Dv 
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DLXQIO  -  ISSUE  1/0  TO  DLX 
ERROR  NlESSAGE  STRINGS 

78 
7^ 
80 
81 
82 
83 
8A 
85 

86  OOOOOA 

87  000005     lOA 

88  00G020 
89 


1U 
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.SBTTL   ERROR  MESSAGE  STRINGS 
I  ERROR  MESSAGE  STRINGS 

.ENABL  LC 
■;  NOTE:  THE  NEXT  THREE  LINES  MUST  REMAIN  CONTIGUOUS 

;  BUFFER  FOR  DLX  STRING  LENGTH 
;  BUFFER  FOR  DLX  ERROR  CODE 


130 


DLXMSG 
DLXTXT 
DLXERR 


.8LKB 
.ASCII 
.BLKB 
.EVEN 


/DLX  error  */ 
6 


MATon  wnc;  n^k  c: at- 
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1 
2 
3 
4 
5 
6 

7 

8 
9 

10 
11 

:2 

13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
57 
38 
39 
40 
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.TITLE  DLXSUB  -  DLX 
.IDENT  /V05.00/ 
.ENABL  LC 


iubroutines 


Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  above  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  By  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  fupplied  by  DEC. 

Module  description 

DLX  subroutines 

Ident  history: 

4.00  07-N0V-83 

DECNET-llM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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DLXSUB  -  DLX  subroutines 
Find  a  tree  broadcast  port 


MAC 
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495 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508  001142 

116100 

000014 

509  001146 

001414 

510 

511  001150 

116702 

00001 OG 

512  00115; 

006302 

513  001156 

067702 

OOOOOOG 

514  001162 

011202 

515  001164 

100005 

516 

517  001166 

006302 

518  001170 

005722 

519  001172 

001404 

520  001174 

521  001200 

000261 

522  001202 

523 

524  001204 

116102 

000014 

525  001210 

160002 

526  001212 

110267 

00001 IG 

527  001216 

006302 

528  001220 

006302 

529  001222 

060102 

530  001224 

116267 

000022  000004G 

531  001232 

016267 

000024  000022G 

532  001240 

005067 

000016G 

533  001244 

.SSTIL  Find  a  free  broadcast  port 

♦«-FND8R-f ind  a  free  broadcast  port 

Find  an  unused  port  on  the  specified  broadcast  channel  <Line-id>. 

Inputs: 

R1  =  Address  of  the  system  line  table 

Outputs: 

'C  Clear  -  Free  port  found 

'C'  Set   -  No  free  ports  available 

Registers  modified: 
RO,  R2 


FND8R: 


10$: 
20$: 
30$: 


M0V8 
BEQ 

MOVB 

ASL 

ADD 

MOV 

BPL 

ASL 
7ST 
BEQ 
SOB 
SEC 
RETURN 

MOVB 

SUB 

MOVB 

ASL 

ASL 

ADD 

MOVB 

MOV 

CLR 

RETURN 


L.NSTA(R1),R0 
20$ 

$PBLK+T$SLN,R2 

R2 

aLLCTA,R2 

(R2),R2 

20$ 

R2 

(R2)t 
30$ 
R0,10$ 


Get  #  of  entries  to  scan 
if  EQ,  none! 

Get  the  system  line  * 
Compute  address  of  reverse 
mapping  table  for  this 
<Line-id> 
If  PL,  not  set  up  as  multi-point 

Form  word  address 

Is  this  a  free  entry? 

If  EQ,  yes 

Check  all  entries 

Indicate  no  ports  available 


Compute  the  Logical  tributary  # 


L.NSTA(R1),R2 

R0,R2 

R2,$PBLKtT$SLN+1 

R2 

R2 

R1,R2 

L.MPF(R2),$PBLK*T$SFLG  ;  Save  flags 


and  store  in  the  parameter  block 
Form  a  double  word  index 

Offset  into  system  line  table 


L.MPF+S.NMST(R2),$PBLK+T$NMST  ;  Save  network  management  state 
$PBLK+T$ASN     ;  No  current  PDV  and  channel  assignment  (Clears  C-bit) 


iiAC  n7k  t:  . 
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DLXSUB  - 
Release 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

lOOA 

1005 

1006 

1007 

1008 

1009 
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a  chain  of  receive  data  buffers 


0024AA  011AA6 

002m'.6 

002A52  01260A 

00245A  001373 

002456 


.SBTTL  Release  a  chain  of  receive  data  buffers 

•*-RLSCHN-Release  a  chain  of  receive  data  buffers 

Return  a  possible  chain  of  receive  data  buffers  to  the  pool. 

Inputs; 

R4  =  Address  of  first  CCB  in  the  chain 


RLSCHN::M0V 
CALL 
MOV 
BNE 
RETURN 


(R4),-(SP)  ;  Save  the  link  word 

aRDBRT  ;  Return  this  buffer 

(SP)  +  ,R4  ;  Recover  the  link  word 

RLSCHN  ;  Loop  till  all  returned 
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EVL  -  EVENT  LOGGER  PROCESS     MACRO  V05.05b  Friday  28-Jun-85  22:58 
Table  ot  contents 

Macro  ciefinitions 

DEFINE  LOCAL  MACROS 

DISPATCH  TABLE  FOR  COMM/EXEC  ENTRY 

EXEC  entry  point  sector  table 

LOG  NETWORK  EVENT 

TIMER  SERVICE 

ALLOCATE  BUFFER  FOR  EVENT 

MAP  PDV  &  CHANNEL  TO  SLN  £  STATION  NUMBER 

MAP  FORT  NUMBER  TO  PVC  OR  DLM  NAME 

QUEUE  EVENT  TO  COLLECTOR  TASK 


s- 

4<5 

6- 

fiS 

,'- 

/S 

8- 

Hi 

9- 

lift 

10- 

2('H 

11- 

iiv 

12- 

m 

H- 

4  OR 

1^- 

4^6 

6  15 
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MAP  PORT  NUMBER  TO  PVC  OR  DLM  NAME 

.SBTTL  MAP  PORT  NUMBER  TO  PVC  OR  DLM  NAME 
»*-MAPORT-MAP  PORT  #  TO  PVC  OR  DLM  NAME 


AGS 

4C9 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421  000702 

422  000706 

005063 

000044 

423 

424  000712 

017-02 

177116 

425  000716 

001502 

426  000720 

016246 

000020 

427  000724 

428  000730 

005002 

429  000732 

156302 

000040 

430  000736 

006302 

431  000740 

062602 

432  000742 

011246 

433  000744 

434  000750 

012602 

435  000752 

001464 

436 

437  000754 

105762 

000022 

438  000760 

100424 

439 

440  000762 

132762 

000001 

441  000770 

001455 

442 

443  000772 

017702 

177036 

444  000776 

062702 

000006 

445 

446  001002 

011263 

000044 

447  001006 

011246 

448  001010 

449  001014 

012602 

450  001016 

001442 

451  001020 

126362 

000040 

452  001026 

001365 

453  001030 

000435 

454 

455  001032 

116202 

000022 

456  001036 

042702 

177600 

457  001042 

010263 

000024 

458  001046 

006302 

459  001050 

0o7702 

176762 

460  001054 

011202 

461 

■■.62  001056 

t65  001064 

0'6202 

000010 

464  001070 

062702 

000012 

MAP  THE  PORT  #  SUPPLIED  IN  THE  EVENT  RECORD  TO  A  PVC  BLOCK  OR 
TO  A  SLN  8  STA  fOR  DATA  LINK  MAPPING  CIRCUITS. 


INPUTS: 


R3  -  ADDRESS  OF  EVENT  RECORD 


REGISTERS  MODIFIED: 
R2 


000015 


000014 


MAPORT:  SAVMAP 
CLR 

MOV 

BEQ 

MOV 

CALL 

CLR 

BIS8 

ASL 

ADD 

MOV 

CALL 

MOV 

BEQ 


TST8 
BMI 

BITS 
BEQ 

MOV 
ADD 

MOV 

MOV 

CALL 

MOV 

BEO 

CMP8 

BN. 

BR 

110  ve 

BIC 
MOV 
ASL 
ADD 
MOV 

M«P 
MOV 
ADD 


10$: 


20$: 


E.PVC(R3) 

aPSIPT,R2 

60$ 

H$PT8(R2),-(SP) 

aCEACC 

R2 

E.PORT(R3),R2 

R2 

(SP)+,R2 

(R2),-(SP) 

aCEACC 

(SP)t,R2 

60$ 

X$USR(R2) 
20$ 

#XT$PVC,X$TYP(R2) 
60$  ; 

aPSIPT,R2 
#H$PVC,R2 

(R2),E.PVC(R3) 

(R2),-(SP) 

aCEACC 

(SP)+,R2 

60$ 

E.P0RT(R3),C$P0RT(R2) 


SAVE  CURRENT  MAPPING 
ASSUME  NOT  A  VALID  PVC 

GET  POINTER  TO  PSI  HOME  BLOCK 

IF  EQ,  NOT  LOADED!! ! 

GAIN  ACCESS  TO  THE  PORT  TABLE 

COMPUTE  OFFSET  IN  THE  PORT  TABLE 


COMPUTE  ADDRESS  OF  XCB  POINTER 
GAIN  ACCESS  TO  THE  XCB 


IF  EQ,  NO  XCB!  !  ! 

IS  THIS  A  DATA  LINK  MAPPING  CIRCUIT? 
IF  MI,  YES 


IF  EQ,  NOT  A  PVC 

GET  ADDRESS  OF  PVC  LIST  HEAD 


SAVE  ADDRESS  OF  PVC  BLOCK 
GAIN  ACCESS  TO  PVC  BLOCK 

GET'pOINTER  TO  PVC  BLOCK 
IF  EQ,  END  OF  LIST 


10$ 
60$ 

X$USR(R2),R2 

#"C<177>,R2 

R2,E.LIN(R3) 

R2 

aSLTMA,R2 

CR2),r5 

L.DLM(R2) 

L.DLS(R2),R2 

#0$ACHD,R2 


IF  NE,  NO  MATCH  ON  THE  PORT 
ALL  DONE 

GET  SLN  FOR  THIS  CIRCUIT 

SAVE  IN  EVENT  RECORD 

FORM  WORD  OFFSET 

POINT  INTO  SYSTEM  LINE  INDEX  TABLE 

GET  ADDRESS  OF  SYSTEM  LINE  TABLE 

MAP  DLC  LINE  TABLES 

GET  POINTER  TO  DLC  LINE  TABLE 

POINT  TO  ACTIVE  STATION  LIST  HEAD 
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SESUSR  -  Sessicn  control  user 
Outgoing  connect  request 

152 

153 

15^ 

155 

156 

157 

158 

159 

160 

161 

16^ 

163 

16A 

165 

166 

167 

168 

169 

170 

171 

172 

173  000170 

17^  000174 

175 

176  000176 

177  000202 

178  00020A 

179  000210 

180  0002U 

181  000222 

182  000224 

183  000230 

184  000236 
185 

186  000240 

187  000244 

188  000246 
189 

190  000252 

191  000256 

192  000260 

193  000262 
194 
195 
196 
197 
19S 
199 
200 

201  000264  010163  000006 

202  000270  11271i  000002 

203  000274 
204 

205  000304 
206 

2{}7   000310 
208 
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.SBTTL  Outgoing  connect  request 
**-SNDC0N-0utgoing  connect  request 


This  routine  will  allocate  logical  link  resources  and  transmit  a 
connect  initiate  message. 


Inputs: 

r:: 


Address  of  database  descriptor 


Outputs: 

'C  Clear  -  Connect  initiate  message  transmitted 
'C  Set   -  Unable  to  Tansmit  message 
N$ERRC(R5)  -  Error  code 

Outputs: 

R3  =  Virtual  address  of  LLT 

Registers  modified 


RO,  Rl,  R2.  R4 


103505 

005065 
005002 
017704 
016546 
132767 
001406 
012702 
016465 
000405 

021664 
001002 
012702 


012601 
103453 
050213 


000016 

OOOOOOG 

000012 

000001 

001000 
000014 


000014 
000400 


OOOOOOG 
000012 


SNDC0N::CALL 
BCS 

CLR 

CLR 

MOV 

MOV 

BITS 

BEQ 

MOV 

MOV 

BR 


MAPNAM 
120$ 


Map  node  name  to  node  address 
If  CS,  no  mapping  present 


10$: 


20$: 


N$SLA(R5) 

R2 

aDECPT,R4 

N$SN0D(R5),-(SP) 

#1,$FLAGS 

loi 

*LT.LPL*400,R2  .  ._ 

D$LNUM(R4),N$SNOD(R5) 

20$ 


Set  up  link  address  for  transmission 
Assume  normal  logical  link 
Point  to  the  DEC  home  block 
Recover  destination  node  address/channel  # 
Is  it  a  loopback  node  ? 
If  EQ,  Its  not  a  loopback  node  address 
Mark  this  as  a  loopback  logical  link 
Copy  the  local  node  number 


CMP 
BNE 
MOV 

CALL 
MOV 
BCS 
BIS 

.IF  DF 

BIS8 

.ENDC 

MOV 

Move 

CALLE 
CALL 

CALL 


(SP),D$LNUM(R4) 

20$ 

#LT.LCL*400,R2 

ADDLNK 
(SP)+,R1 
120$ 
R2,(R3) 


Is  this  a  local  logical  link? 

If  NE,  no 

Mark  this  as  a  local  logical  link 

Try  to  add  a  new  logical  link  database 
Recoi/er  remote  node  address/channel  * 
If  CS,  allocation  failure 
Set  up  logical  link  type 


N$$SL! 

$LTVPE,L.TVP(R3);  Set  logical  link  type 


R1,L.REM{R3) 
#ST$CIS,(R3) 
RTRSES 

SAVOPT 

SETREQ 


and  remote  no_<?  address/channel  # 
Set  state  to  connect  initiate  sent 
Start  round  trip  timer  for  CI  message 

Save  optional  data  in  the  LLT 

Set  up  connect  request  services 
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Complete  interrupt  message  processing 


609 
610 
611 
612 
613 
6U 
615 
616 
617 
618 
619 
620 
621 
622 
623 

624  000000 

625  000000 

626  000004 

627  000010 
628 

629  000012 

630  000016 

631  000022 

632  000026 

633  000030 

634  000034 

635  000040 
636 

637  000042 

638  000044 

639  000046 

640  000050 
"  000052 


641 
642 
643 


000054 


644  000056 

645  000060 


«*-CHKADD-Check  node  name  for  all  numerics  and  convert  to  binary  if 
all  numerics 

Inputs: 

R5  =  ECL's  ddb  address 

Outputs: 

'C  clear  -  ASCI!  node  address  supplied 
N$SN0D(R5)  -  binary  node  address 
'C  set  -  Node  name  is  not  an  ASCII  node  address 

Registers  modi  tied: 
R2,  R3 


012702  OCOOOOG 
122712  000066 
103413 

005065  000012 

012703  000054' 

103404 

012703  000042' 


000004 
001750 
000144 
000012 
000001 

000002 
024000 
002000 


.PSECT 
CHKADD:  MOV 
CMPe 
BLO 


CLR 

MOV 

CALL 

BCS 

MOV 

CALL 

RETURN 

.WORD 
.WORD 
.UORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 


10$: 
CVTADD 


CVTARE: 


SHIGH 

#$DSN0D,R2 
#'6,(R2) 
10$ 

N$SN0D(R5) 

#CVTARE,R3 

ASCBIN 

10$ 

#CVTADD,R3 

ASCeiN 


4 

1000. 

100. 

10. 

1 


2 

10240. 

1024. 


Get  address  of  specified  node  name 
Is  address  in  range? 
BR  if  no  (check  overflow  for  first 
multiply  -  ASCBIN  will  check  others) 
Initialize  node  address 
Get  area  conversion  table 
Convert  area  to  binary 
BR  if  invalid  area 
Get  address  conversion  table 
Convert  address  to  binary 


Address  conversion  table  (4  words) 


Area  conversion  table  (2  words) 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 


.TITLE  DLXCEX  -  DLX/CEX  interface  routines 
.IDENT  /V05.00/ 
.ENA8L  LC 


iopyright   (C)  1982,  1983 
Digital  Equipment  Corporation 


1985  by 

Maynard, 


MASS. 


This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  above  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  aarees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  By  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

DLX/CEX  interlace  routines 

Ident  history: 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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Enable  complete  processing 


409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 

421  001040 

422  001044 

423  001046 
424 

425  001052 


132715 
001402 


000001 


.SBTTL  Enable  complete  processing 
**-ENBLC-Enable  complete  processing 


If  the  link  is  in  the  idle  state, 
otherwise  ignore  this  completion. 


issue  a  start  request  on  the  channel 


Inputs: 
R1 


Completion  status 
R2  =  Error  offset  for  characteristics  functions 
R5  =  Address  of  physical  link  access  block 


ENBLC: 


10$: 


SITB 

BEQ 

CALL 

RETURN 


#LS$1DL,(R5) 

10$ 

STRCHN 


Is  the  link  idle? 

If  EQ,  no  ...  must  be  shutdown  in  progress 

Start  operation  of  the  channel 
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♦♦FILE»*ID«»DLXCHR 
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MACRO  CROSS  REFERENCE  CREF   04.00 


MACRO  NAME 

REFERENCES 

CALL 

5-88 

9-249 

CC8DFS 

#4-46 

4-48 

CHRDFt 

*4-46 

4-49 

MAP 

#4-45 

8-200 

8-208 

PLADFS 

#4-46 

4-50 

RESRG 

#4-45 

RETURN 

5-95 

0-139 

7-173 

SAVRG 

#4-45 

**F1LE»*ID>»DLXCTL 


8-219  9-256  10-289  11-313 
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DLXCTL  -  DLX  control  QIO  functi 
Assign  <Line-id>  to  another  LLC 


28? 
23A 
285 
286 
287 
288 
289 
290 
291 
292 
293 
29A 
295 
296 
297 

298  OOO^OA 

299  OOOAIO 
300 

301  000A12 

302  000A16 

303  000'!.20 

304  000424 
305 

306  000426 

307  000432 
308 

309  000434 
310 

000440 
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.SBTTL  Assign  <Line-id>  to  another  LLC 

**-CTLASS-Assign  <Line-id>  to  another  LLC 

This  routine  is  called  to  change  the  <:Line-id>  and  process  assignment 
for  a  line  which  is  not  currently  assigned. 

Inputs: 

R1  =  Address  of  system  line  table 
R3  =  Address  of  I/O  packet 

I.PRM+6  -  RAD50  name  uf  the  target  LLC 


005767  00001 6G 
001366 


103770 
103765 

103760 

016702  000010G 


Registers  modified: 

RO,  R1,  R2,  R3, 


R4,  R5 


CTLASS: 


311 

312 

313  000444 

314 

315  000452 

316  000460 

317  000466 

318  000474 


012764  000002  000012 


112764  000010 
016764  000016G 
012764  001006 


000004 
000006 
000010 


CTLAS1 


CTLOMI: 


TST 
8NE 

CALL 
BCS 
CALL 
BCS 

CALL 
BCS 

MOV 

CALL 

MOV 

M0V8 
MOV 
MOV 
CALLR 


$P8LK+T$ASN 
lERSU 

FNDPR 
CTLERR 
FNDFR 
CTLERR 

aCCBGT 
lENOD 

$PBLKtT$SLN,R2 

ASSIGN 


Is  <Line-id>  assigned  to  an  LLC? 
If  NE,  yes 

Find  the  target  process 

If  CS,  no  such  process 

Find  a  free  channel  on  destination  process 

If  CS,  none  available 

Allocate  a  CC8 

If  CS,  allocation  failure 

Get  SLN  and  logical  tributary 

Modify  system  database 


#EN8XILDIS,C.STS(R4) 

#NX.D0N,C.NSP(R4) 

$PBLK+T$ASN,C.LIN(R4) 

#FC.CTL!FS.STR,C.FNCtR4) 

QCCBL         ;  Queue  CCB  to  specified  LLC 
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DLXCTL     CREATED  BY  MACRO  ON  28-JUN-85  AT  22:5A 
SYMBOL  CROSS  REFERENCE 
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SYMBOL  VALUE 


ASSIGN 

CCBGT 

CCBRT 

CCPTBL 

CLACT 

CTLABO 

CTLASS 

CTLAS1 

CTLCCP 

CTLDEA 

CTLDEl 

CTLDON 

CTLERR 

CTLLST 

CTLOFF 

CTLOFl 

CTL0F2 

CTLON 

CTLONl 

CTLOWN 

CTLREA 

CTLRE1 

CTLRE2 

CTLSER 

CTLSST 

C.BUF 

C.BUF2 

C.CNT 

C.FL6 

C.FNC 

C.LIN 

C.NSP 

C.STS 

DEASSN 

ENBX 

FC.CTL 

FINDC 

FINDL 

FNCTBL 

FNDFR 

FNDPR 

FS.STP 

F5.STR 

IE  ABO 

lEALC 

lENOD 

lERSU 

lEWLK 

IE. ABO 

lE.ALC 

IE. MOD 


=  ****** 
=  ****** 


GX 
GX 
GX 

000776  R 
******  GX 
001U2  R 
000A04  R 
0004A0  R 
000742  RG 
000532  R 
001106  R 
001160  R 
000400  R 

000646  R 
000500  R 
000554  R 
001116  R 
000130  R 
000452  R 
000604  R 
000232  R 


001010 

001152 

000172  R 

000654  R 

000014 

000024 

000020 

000022 

000010 

000006 

000004 

000012 

*■#  +  *  ** 

000002 
000006 
*■**♦♦♦ 

♦*♦*♦♦ 
000022  R 

****** 
002000 
001000 
000344 
000360 
000374 
000366 
000352 


GX 
G 

GX 
GX 

GX 
GX 


~   ****** 


R 

R 

R 

R 
GX 
GX 
GX 


REFERENCES 

13-311 

10-170 

23-614 

19-504 

22-585 

20-550 

8-104 

11-238 
#19-497 

8-105 

19-512 

19-513 

9-132 

16-393 

8-107 

8-102 

14-343 

19-511 

8-101 

10-176 

8-106 

8-103 

19-509 

19-510 

8-109 

8-108 
•18-468 
*11-237 
*18-470 
•18-471 
*11-242 
•11-241 
♦11-240 
•10-175 

21-567 
#7-78 

11-242 

8-87 

8-85 
#8-101 

11-229 

11-224 

11-242 

13-317 

11-205 

10-166 

10-171 
#12-273 

11-208 

12-264 

12-270 

16-392 


20-537 
11-232 

#19-509 

21-565 
#13-298 
#13-311 

#15-359 

#21-565 

21-568 

9-136 

#17-418 
#14-334 
#15-367 
#22-583 
#10-165 
#13-315 
#16-388 
#11-224 
#20-534 
#23-609 
#11-198 
#17-436 
•18-469 
20-538 
19-500 
19-501 

•  13-317 

•  13-316 
•13-315 
•11-243 

13-313 
13-317 
8-88 
8-86 
9-149 
13-303 
13-301 
15-369 
20-544 
#12-264 
#12-270 
11-233 
13-299 
#12-267 
23-605 


2:54 

PAGE  1 

CREF   04.00 

13-306 

14-339    15-362 

19-509 

19-510    19-511 

22-583 

#23-605 

22-589 
10-169 


19-498 
23-609 


•15-369 
•15-368 
•14-342 
•13-313 

20-546 
15-369 
8-89 


16-391 


14-335 
#12-276 


19-512 


19-513 


#23-612 
11-225 


11-230        #12-279 


13-302 


13-304 


14-338 


19-499 


•20-544 

19-497 

•15-365 

•15-370 


20-544 
8-90 


20-543 


•20-543 

♦18-467 

19-503 


8-91 


•20-542 
•20-545 


8-92 


•20-546 


8-93 


13-307 


14-340 


15-363 


DLXCTL 
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DLXDAT  CREATED  BY     MACRO     ON  28-JUN-85  AT   22:54 

SYMBOL    CROSS  REFERENCE 

SYMBOL      VALUE  REFERENCES 
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PAGE   1 

CREF       OA.OO 


ACHCK 

000066  RG 

#7-96 

3LXI0 

000070  RG 

#7-97 

CCBGT 

000104  RG 

#7-115 

CCBRT 

000106  RG 

#7-116 

CEMUL 

OOOnO  RG 

#7-117 

CMPDV 

000112   RG 

#7-118 

aSADR 

=  000001      G 

#6-63 

FLSPRO 

=  000002     G 

#6-64 

INIBF 

000072  RG 

#7-98 

lOFIN 

000074   RG 

#7-99 

■;ISAR6 

=   *»»*•»*     GX 

7-95 

KSAR6 

000064   RG 

#7-95 

LDBGT 

000114   RG 

#7-119 

LLCRQ 

000116  RG 

#7-120 

LLCRS 

000120  RG 

#7-121 

LLCTA 

000122  RG 

#7-122 

MAXOV 

000124  RG 

#7-123 

PDVID 

000126  RG 

#7-124 

PDVTA 

000130  RG 

#7-125 

PLAST 

000000  RG 

#8-140 

QUEBF 

000076  RG 

#7-105 

RDBRT 

000152  RG 

#7-126 

RDBSZ 

000134   RG 

#7-127 

RELOC 

0C01OO  RG 

#7-106 

R$$MPL 

=      ****** 

6-75 

SLTMA 

000136  RG 

#7-128 

SLTNM 

000140  RG 

#7-129 

TSTBF 

000102  RG 

#7-111 

T$LEN 

000024 

6-52 

SACESS 

000050  RG 

#6-66 

SACHCK 

r     »*»**«        GX 

7-96 

$ADR 

000036  RG 

#6-60 

SBIAS 

000052  RG 

#6-68 

SBIGBF 

000024   RG 

#6-54 

SBIGSZ 

000030  RG 

#6-55 

SBLXIO 

-   t«*t»*      GX 

7-97 

SBUFFG 

000032  RG 

#6-56 

SBYTES 

000056  RG 

#6-70 

SCCBGT 

=   »*»«»♦      GX 

7-115 

SCCBRT 

=   »»*»**      GX 

7-116 

SCEMUL 

=   ».♦»*»      GX 

7-117 

imPD\J 

=   ******      GX 

7-118 

SDLXCH 

000033  RG 

#6-57 

SDLXPD 

000034   RG 

#6-58 

SDLXVL 

=  000027     G 

#7-130 

SDLXVT 

000062  RG 

#7-93 

SFLAGS 

000046  RG 

#6-62 

SINIBF 

=    ******      GX 

7-98 

SiOFIN 

r     ******        GX 

7-99 

$IOS 

000060  RG 

#6-71 

SLDBGT 

=   *•*.•♦     GX 

7-119 

SLLCRQ 

r    ..*.**      GX 

7-120 

7-101 


7-107 


7-112 


7-130 


rcicATcn    Dv 


i-lM     5H-  IIIM-S";     iT     PPrSi 
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SYMBOL  CROSS  REFERENCE 
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CREF   0^.00 


SYMBOL  VALUE 


ABORQ 

CCBGT 

CF.CHN 

C.FLG 

C.FNC 

C.LIN 

DISRQ 

DOFNC 

FC.CTL 

FS.DIS 

FS.ENB 

FS.MNT 

FS.STP 

FS.STR 

I$$AS 

LFSBRO 

LFSCHN 

LFSENB 

LFSMOP 

LFSRSR 

LF.ACT 

LF.BRO 

LF.BUT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

I  N.TRI 

LRSDIS 

LRSSTP 

LSSDAT 


000046  RG 

r  ******   GX 

=  000001 

000022 

000010 

000006 

000066  RG 

000000  RG 
=  000006 
=  013000 
=  012000 
=  OOAOOO 
=  002000 
=  001000 
=  ****** 

=  002000 
=  004000 
=  OOOAOO 
=  001000 
=  100000 
=  100000 
=  OOOAOO 
=  00000  r- 

=  002oro 
=  001 ouo 
=  000100 
=  004000 
=  000020 
=  000200 
=  040000 
=  010000 
=  000040 
=  000010 
=  020000 
=  000000 
=  000000 
=  000005 
=  000004 
=  000003 
=  000003 
=  000001 
=  000000 
=  000004 
=  000001 
=  000002 
=  000002 
=  000017 
=  000360 
=  000006 
=  000020 
=  000010 
=  000004 


REFERENCES 

#7-98 

6-69 

6-74 
•  6-74 
*6-72 
*6-73 
#7-116 
#6-69 

7-165 

7-172 

8-200 

8-209 

7-165 

8-206 

5-50 

7-99 

8-196 

7-134 

8-207 

6-79 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
7-101 
7-116 
7-138 


7-166 
7-172 


7-173 
8-200 


-201 
-206 


8-211 
8-209 


7-176 


8-197 


8-203 


7-116 
7-131 


7-136 
7-140 


7-170 
7-163 


7-175 
7-168 


rocsTPn    nv      MirBn      nw   ?«- IIIN-RS    AT    22.-SS 
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DLXQIO  -  ISSUE  I/O  TO  DLX       MACRO 
DLXQIO  -  ISSUE  I/O  REQUEST  TO  W. 


91 
92 
93 
9A 
95 
96 
97 
98 
99 
100 
101 
102 
103 
10^ 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
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.SBTTL  DLXQIO  -  ISSUE  I/O  REQUEST  TO  NX: 

*»-DLXQI0-lSSUE  I/O  REQUEST  TO  DLX 

THIS  ROUTINE  IS  CALLED  TO  ISSUE  A  DLX  REQUEST. 

INPUTS: 

RO  =  FUNCTION  CODE 
R1  =  PI  (OPTIONAl ) 
R4  =  ADDRESS  Of  CONTEXT  BLOCK 

OUTPUTS: 

IF  CC,  OPERATION  SUCEEDED 

ELSE,  OPERATION  FAILED,  ERROR  CODE  FILLED  INTO  DLXMSG  STRING 

REGISTERS: 

NO  REGISTERS  MODIFIED 


000026 
000026 


000032  010403 

000034  062703  000166 


000040 


000042 


000046 

000050  112302 


DLXQIO:: 

CALL    SSAVAL 

FORMAT  LINE-ID  STRING  FOR  DLX 
.IF  NDF  M$$ACP 


MOV 
ADD 

.IFF 

MOV 
MOV 
ADD 
ADD 


R4,R3 
#L$SCR,R3 

;NDF  M$$ACP 

CURCTX,R3 
R3,R5 
#C$L0C,R3 
#C$STAT,R5 


.IFTF  ;NDF  M$$ACP 

SAVRG  <R3> 

.IF  DF  S$$8AS  I  R$$RTR 

CALL  FMTLN2 


SAVE  ALL  REGISTERS 


COPY  THE  CONTEXT  AREA  POINTER 
POINT  TO  THE  SCRATCH  BUFFER 


COPY  THE  CONTEXT  AREA  POINTER 

POINT  TO  THE  SCRATCH  BUFFER 
...  AND  THE  I/O  STATUS  BLOCK 


SAVE  R3 


FORMAT  PHYSICAL  LINE-ID 


.IFF 

CALL 

FMTLIN 

;  FORMAT  A  LINE-ID  STRING 

.ENDC 

;  DF  S$$BAS 

R$$RTR 

RESRG 
MOVB 

<R3> 
(R5)+,R2 

;  RESTORE  LINE-ID  POINTER 
;  GET  STRING  LENGTH 

ISSUE 

I/O 
.IFT 

;NDF  M$$ACP 

T  cci  ic     I  /n    rn    rvi  v 
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DLXSUB  -  DLX  subroutines 
Macro  definitions 

45 
44 
45 
46 

47  000000 

48  000000 

49  000000 

50  000000 

51  000000 
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.SBTTL  Macro  definitions 

.MCALL  SAVR6,RESRG,MAP,SAVMAP,RESMAP 
.MCALL   CC8DF$,PDVDF$,PLADF$,SLTDF$,CHRDF$ 


CC8DF$ 
PDVDFS 
PLADFS 
SLIDFS 
CHRDFS 


Define  CC8  offsets 
Define  PDV  offsets 
Define  PLA  offsets 
Define  SLT  offsets 
Defii.e  characteristics  symbols 


MArOn     l/A";     n7K     Cr-lfJav     5»-  I 


H  12 

-8S    5?-5i<,       Pane    A 


DLXSUB  - 
Validate 

535 

556 

537 

558 

539 

5A0 

5A1 

5A2 

5A5 

5^4 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

538 

589 

590 

591 
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privileged  user  and  search  for  <Line-id> 


.SBTTL  Validate  pri\/ileged  user  and  search  for  <Line-id> 

^ 

♦♦-FJNDC-Validate  privileged  user  and  search  for  <Line-id> 


Validate  that  this  request  comes  from  a  privileged  task  and  then 
search  (or  the  specified  <Line-id>. 


Inputs: 
R2 


Dynamic  assignment  flag 

0    -  Dynamically  assign  broadcast  ports 
<>0  -  Do  not  dynamically  assign  broadcast  ports 
R5  =  Address  of  I/O  packet 

I.PRM   -  Bias  of  <Line-id>  string 

I.PfiM+2  -  Virtual  address  of  <Line-id>  string 

I.PRM+4  -  Length  of  <Line-id>  string 


Outputs: 
RO 


Error  code  (if  applicable) 

lE.Pfil  -  Privilege  violation 
lE.NSF  -  No  such  <Line-id>  in  system 
lE.OFL  -  Device  offline  (RSX-1 IM-Plus  only) 
R1  =  Address  of  system  line  table 
'C  Clear  -  <Line-id>  successfully  found 
'1'   Clear  -  <Line-id>  is  assigned 
'I'   Set   -  No  current  assignment 
'C  Set   -  Error  (RO  contains  error  code) 

Registers  modified: 
RO 


001246  016300 
001252  032760 
001260  001424 


OOOOOOG 
OOOOOOG  OOOOOOG 


.ENABL  LS8 

FINDC::  MOV  I.TCB(R3),R0    ; 

BIT  #T3.PRV,T.ST3(R0) 

BEQ  30$ 


Get  TCB  address  of  issuing  task 

If  EQ,  issuing  task  is  not  privileged 


**-FINDL-Search  for  <Line-id> 

Search  the  COMM/EXEC  databases  for  the  specified  <Line-id>. 

Inputs: 

R2  =  Dynamic  assignment  flag 

0    -  Dynamically  assign  broadcast  ports 

<>0  -  Do  not  dynamically  assign  broadcast  ports 

R3  =  Address  of  I/O  packet 

I.PRM   -  Bias  of  <Line-id>  string 

I.PRMt2  -  Virtual  address  of  <Line-id>  string 

I.PRM+4  -  Length  of  <Line-id>  string 

Outputs: 

RO  =  Error  code  (if  applicable) 

lE.PRI  -  Privilege  violation 

lE.NSF  -  No  such  <Line-id>  in  system 

lE.OFL  -  Device  offline  (RSX-1 IM-Plus  only) 

R1  =  Address  ?f  system  Line  table 

'C  Clear  -  <Line-id>  successfully  found 


i/n^:  n7h  Cr 
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DLXSUB  - 
ConiDute 

1011 

1012 

1013 

10U 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

103- 

1052 

1033 

1034 

1035 

1036 

1037 

1038 

1039 
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address  of  physical  link  access  block 


002460  116400 


002464 
002470 


042700 
110046 


002472  012701 

002476 

002502  010105 

002504  062705 

002510  112665 

002514 


000006 
177400 

000026 


OOOOOOG 
000006 


.SBTTL  Compute  address  of  physical  link  access  block 

**-STLNK-Compute  address  of  physical  link  access  block 
♦*-STLNA-Alternate  entry 

Compute  the  address  of  the  physical  link  access  block  gi\/en  a  channel 
number. 


Inputs: 


RO  =  Channel  #  (STLNA  only) 
R4  .    -^   . 

Outputs: 


Address  of  a  CCB 


only) 
with 


a  channel  *  in  C.LIN  (STLNK  only) 


R5  =  Address  of  the  physical  link  access  block 


Registers  modified: 
RO,  R1 


StLNK:; 
STLNA:; 


M0V8 

BIC 
MOVB 

MOV 

CALL 

MOV 

ADD 

MOVB 

RETURN 


C.LJN(R4),R0 

#*C<377>,R0 
R0,-(SP) 

#L$LEN,R1 

aCEMUL 

R1,fi5 

#PLAST,R5 

(SP)t,L$LlN(R5) 


Extract  the  channel  # 

Isolate  the  channel  # 
and  save  for  later 

Set  length  of  a  physical  access  block 

Compute  offset 

Compute  address  in  the  table 

Initialise  the  channel  # 


H  K 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AG 
41 
42 
43 
44 
45 
46 
47 
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.TITLE   EVL  -  EVENT  LOGGER  PROCESS 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1980,  1981,  1982,  1983,  1985  Br 
DIGITAL  "EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A 
SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR 
ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR  OTHERWISE 
MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR  USE  ON  SUCH 
SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  lERMS.  TITLE 
TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN 
IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE  WITHOUT 
NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL 
EQUIPMENT  CORPORATION. 


DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 

MODULE  DESCRIPTION 

DRIVER  INTERFACE  TO  EVENT  LOGGER  PROCESS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   31-JAN-80 

2.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

OECnet-IIM/S  V4.2 
DECnet-IIM-Pius  V3.0 
DECnet-Micro/RSX  Vl.O 


OF 
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MAP  PORT  NUMBER  TO  PVC  OR  DLM  NAME 

466  001074  011202               30$:    MOV  (fi2),R2        ;  GET  POINTER  TO  NEXT  STATION  TABLE 

467  001076  00K12                     BEQ  60$           ;  IF  EQ,  NO  MORE 

468  001100  126362  000040  000003         CMPB  E.PORT (R3)  ,0$P0RT(R2) 

469  001106  001372                     BNE  30$           ;  IF  NE,  NO  MATCH  ON  PORT 

470  001110  116263  000002  'J0025         MOVB  0$STN(R2>  ,E.LIN+HR3) 

471  001116  142763  000200  000020        BIC8  #EV.PRT ,E .CTL (R3) 
472 

473  001124  60$:    RESMAP  ;  RESTORE  MAPPING 

474  00 '130  RETURN 
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Outgoing  connect  request 


209  0003U 

004167 

OOOOOOG 

210  000320 

000 

211  000321 

030 

212  000322 

103430 

213 

2U  00032^ 

116722 

OOOOOOG 

215  000330 

112722 

000002 

216  000334 

017701 

OOOOOOG 

217  0003A0 

116122 

000036 

?;8  00C3A4 

116122 

000037 

219  000350 

220  000354 

103411 

221 

222  000356 

223  000364 

224  000374 

000241 

225  000376 

226 

227  000400 

228  000404 

229  000410 

100$ 
110$ 
120$ 


JSR 
.BYTE 
.8YTE 

BCS 

Move 

MOVB 

MOV 

MOVB 

MOVB 

CALL 

BCS 

C0UNT$ 
CALLE 
CLC 
RETURN 

CALL 
CALL 
RETURN 


RI.GETLDB 
NT$C0N 
MF.CTLIMC.CI 
110$ 

$SRVCS,(R2)+ 

#CV$40,(R2)t 

aDECPT,R1 

D$SEG(R1),(R2)+ 

D$SEGt1(R1),(R2) 

BLDSES 

100$ 

E$NCS 
SNSESD 


SLD8RT 
REMLNK 


Allocate  a  large  data  buffer 
This  is  a  connect  message 
Connect  message  flags 
If  CS,  allocation  failure 

Fill  in  requested  services 

FiU  in  info  field  -  NSP  version  4.0 

Point  to  the  DEC  home  block 

Fill  in  segment  size 

Build  session  control  portion  of  message 
If  CS,  format  error 

Count  connect  requests  sent 
Transmit  the  CI  message 
Indicate  success 


Release  the  large  data  buffer 
Remove  the  link  database 


I  1 
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Complete  interrupt  message  processing 


647 

6A8 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664  000062 

665  000062 

666  000064 

012304 

667  000066 

012301 

668  000070 

005000 

669  000072 

152200 

670  000074 

162700  000060 

671  000100 

002413 

672  000102 

022700  000011 

673  000106 

103410 

674 

675 

676 

677 

678 

679 

680 

681  000110 

682 

683 

684 

685  000114 

060165  000012 

686  000120 

103403 

687  000122 

688  000126 

005727 

689  000130 

000261 

690  000132 

691  000134 

692 

693 

000001 

**-ASC81N-Con\/ert  ASCII  to  binary  and  accumulate  result 

Inputs: 

R2  =  Next  character  in  node  name  string 

R3  =  Address  of  conversion  table 

R5  =  Address  of  ECL's  ddb 

Outputs: 

'C  clear  -  valid  conversion 

N$SN0D(R5)  -  updated  binary  node  address 

R2  =   address  of  next  byte  in  node  name  string 

'C  set  -  Node  name  is  not  an  ASCII  node  address 

Registers  modified: 
RO,  R3,  R4 


.PSECT 

SHIGH 

ASCBIN:  SAVRG 

<R1> 

MOV 

(R3)+,R4 

10$:    MOV 

CR3)+,R1 

CLR 

RO 

BIS8 

(R2)+,R0 

SUB 

*60,RO 

BLT 

20$ 

CMP 

#9.,R0 

BLO 

20$ 

.IF  DF 

R$$EIS 

MUL 

RI.RO 

•  IFF 

CALL 

aCEMUL 

.ENDC 

ADD 

R1,N$SN00(R5) 

BCS 

20i 

SOB 

R4,10$ 

TST 

(PC)  + 

20$: 


SEC 

RESRG 

RETURN 

.END 


<R1> 


Save  a  register 

Get  number  of  bytes  to  convert 

Get  multiplicand 

Get  next  character 

Convert  to  binary 
BR  if  non-numeric 
Is  it  0-9? 
BR  if  no 


Accumulate  the  result 


Accumulate  the  result 


Update  binary  node  address 
BR  if  overflow 
Convert  all  digits 
Indicate  valid  conversion 
Indicate  non-numeric  node  address 
Restore  register 
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Macro  definitions 


U2 
1,1 
44 
45 
46 

47  000000 

48  000000 

49  000000 

50  000000 

51  000000 


.SBTTL  Macro  definitions 

.MCALL   SAVRG,RESRG,MAP 

.MCALL   CC8Df$,PDVDF$,PLADF$,SLTDF$,DLXDF$ 


CCBDFS 
PDVDFS 
PLADF$ 
SLTDFS 
DLXDFS 


Define  CCB  offsets 

Define  PDV  offsets 

Define  PLA  offsets 

Define  SLT  offsets 

Define  DLX  symbols 
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Start  complete  processing 

.SSTTL  Start  complete  processing 

h 

**-STRTC-Start  complete  processing 


427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439  001054 

132715 

000002 

440  001060 

001426 

441 

442  001062 

032715 

002000 

443 

444 

445  001066 

001402 

446  001070 

052715 

004000 

447 

448  001074 

449  001102 

103411 

450  001104 

012700 

OOOOOOC 

451  001110 

032715 

002000 

452  001114 

001402 

453  001116 

052700 

000400 

454  001122 

455 

456  001126 

112715 

000004 

457  001132 

458 

459  001136 

Inputs: 


STRTC: 


10$: 


20$: 
30$: 

40$: 


If  the  link  is  in  the  starting  state,  complete  the  outstanding  control 
request  and  initiate  data  transmission. 

s: 

R1  =  Completion  status 

R2  =  Error  offset  for  characteristics  functions 

R5  =  Address  of  physical  link  access  block 


BITS 
BEQ 

BIT 


BEQ 
BIS 

$DQPKT 

BCS 

MOV 

BIT 

BEO 

BIS 

CALL 

Move 

CALLR 
RETURN 


#LS$STR,(R5) 
40$ 

#LF$8R0,(R5) 


Is  the  link  starting? 

If  EQ,  no  ...  must  be  shutdown  in  progress 

For  the  moment  only  support  chaining 
on  broadcast  devices  -  later  change  to 
deuice/DLC  dependant  support 
If  EQ,  non-broadcast  device 
Indicate  DLC  supports  chaining      . 


•C$ 
.;l,'$chn,(R5) 

FNC  ;  Dequeue  the  start  request 

30$  ;  If  CS,  none  present 

#IS.SUC8377,R0  ;  Assume  non-broadcast  channel 

#LF$BR0,(R5)  ;  Is  this  a  broadcast  link? 

20$  ;  If  EQ,  no 

*<XV.8RO*400>,RO;  Tell  user  this  is  a  broadcast  channel 

RQALT  ;  Complete  the  start  function 


#LS$DAT,(R5) 
I  TRANS 


Set  state  to  data 
Initiate  data  transmission 
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DLXCHR  -  DLX  AuxiUiary 
Table  of  contents 


H  5 

charact  MACRO  V05.05b  Friday  28-Jun-85  22:53 


s- 

s? 

(S- 

10S 

!- 

U1 

8- 

MS 

9- 

7A 

10- 

^A") 

11- 

291 

Process  receive  auxiUiary  characteristics 

Retrieve  Ethernet  adciress 

Retrieve  Ethernet  protocol 

Retrieve  destination  Ethernet  address 

Process  transmit  auxiUiary  characteristics 

Define  Ethernet  address  for  transmit 

Define  Ethernet  protocol  for  transmit 
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♦*F1LE««1D«*DLXCTL 


DDDDDDDD 

LL 

XX      XX 

cccccccc 

TTTTTl 

TTTT 

DDDDDDDD 

LL 

XX      XX 

cccccccc 

TTTTTl 

TTTT 

DD      DD 

LL 

XX      XX 

DD      DD 

LL 

XX      XX 

DD      DD 

LL 

XX   XX 

DD      DD 

LL 

XX   XX 

DD      DD 

LL 

XX 

DD      DD 

LL 

XX 

DD      DD 

LL 

XX  XX 

DD      DD 

LL 

XX  XX 

DD      DD 

LL 

XX      XX 

DD      DD 

LL 

XX      XX 

DDDDDDDD 

LLLLLLLLLL 

XX      XX 

cccccccc 

LLLLLLLLLL 

DDDDDDDD 

LLLLLLLLLL 

XX      XX 

cccccccc 

LLLLLLLLLL 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

lL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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OLXCTL  - 
Tjrn  <Li 

320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
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ne-id>  oft 

.SBTTL  Turn  <Line-id>  off 


000500  005767  00001 60 

000504  001725 

000506 

000512  103732 

000514 

000520  103725 

000522  112764  000004  000004 

000530  000411 


**-CTLOFF-Turn  <Line-id>  off 

This  routine  is  called  to  stop  the  operation  of  the  LLC  process 

assigned  to  the  <Line-id>. 

Inputs: 

R1  =  Address  of  system  line  table 

R3  =  Address  of  I/O  packet 

Registers  modified: 

RO,  R1,  R2,  R3,  R4,  R5 


CTLOFF:  TST 
BEQ 

CALL 
BCS 
CALL 
BCS 

MOVB 
BR 


$PBLK+T$ASN  ;  Is  <Line-id>  assigned  to  an  LLC? 

lEALC  ;  If  EQ,  no 

PRCLD  ;  Is  the  target  process  Loaded? 

CTLERR  ;  If  CS,  no 

aCCBGT  ;  Allocate  a  CCB 

lENOD  ;  If  CS,  allocation  failure 

*NX.0FF,C.NSP(R4) 

CTL0F1  ;  Enter  common  code 
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SYMBOL  CROSS  REFERENCE  CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

IE. NOD 

r  ****** 

GX 

12-276 

lE.ONP 

-  ****** 

GX 

9-130 

lE.RSU 

::  ****** 

GX 

12-273 

lE.WLK 

r  ****** 

GX 

12-267 

INIBF 

-  ****** 

GX 

9-144 

ISALT 

000336 

R 

11-201 

11-203 

issue 

-   ****** 

GX 

•  6-399 

17-445 

IS. SET 

r  ****** 

GX 

■2-261 

IS. sue 

=:     ****** 

GX 

23-613 

I$$AS 

=  ****** 

5-50 

I.FCN 

=  ****** 

GX 

9-127 

*9-143 

I.PRM 

~     ****** 

GX 

11-207 

16-388 

LDIS 

=  000000 

G 

#7-76 

13-313 

LENB 

=  00000-' 

G 

tt7-77 

20-545 

LF.ACT 

=  100000 

#5-52 

LF.BRO 

=  000400 

#5-52 

LF.BWT 

=  000007 

#5-52 

LF.ENA 

=  002000 

#5-52 

LF.LPB 

=  001000 

#5-52 

LF.MDC 

=  000100 

#5-52 

LF.MFL 

=  004000 

#5-52 

LF.MTP 

=  000020 

#5-52 

LF.PAC 

=  000200 

#5-52 

LF.RDY 

=  040000 

#5-52 

LF.REA 

=  010000 

#5-52 

LF.SER 

=  000040 

#5-52 

LF.TIM 

=  000010 

#5-52 

LF.UNL 

=  020000 

#5-52 

LF.X2P 

=  000000 

#5-52 

LLCRS 

-    ****** 

GX 

18-472 

LN.CLO 

=  000000 

#5-52 

LN.DUM 

=  000005 

#5-52 

LN.LOA 

=  000004 

#5-52 

LN.LOO 

=  000003 

#5-52 

LN.OAU 

=  000003 

#5-52 

11-202 

LN.OFF 

=  000001 

#5-52 

22-588 

LN.ON 

=  000000 

#5-52 

11-204 

LN.OOP 

=  000004 

#5-52 

LN.OPE 

=  000001 

#5-52 

LN.REF 

=  OO0CO2 

#5-52 

LN.SER 

=  000002 

#5-52 

n-200 

LN.STA 

=  000017 

#5-52 

11-199 

LN.SUB 

=  000360 

#5-52 

17-436 

LN.TRl 

=  000006 

#5-52 

L.COST 

000015 

#5-52 

L.CTL 

000012 

#5-52 

L.CVA 

177776 

#5-52 

L.DDM 

000002 

#5-52 

L.DDS 

000004 

#5-52 

L.DLC 

000003 

#5-52 

l.dlm 

000006 

#5-52 

L.DLS 

000010 

#5-52 

11-228    #12-261     15-360 


17-441 


17-418    22-587 
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DLXDAT 

CREATED  BY 

MACRO  ON  28-JUN-85  AT  22:54 

PAGE  2 

SYMBOL 

CROSS  REFERENCE 

CREF   04.00 

SYMBOL 

VALUE 

REFERENCES 

SLLCRS 

:r  *♦**%* 

6X 

7-121 

SLLCTA 

-  ****** 

GX 

7-122 

SMAXOV 

-  *■***»♦ 

GX 

7-123 

SPBLK 

000000 

RG 

#6-52 

$pdv;d 

-  *♦♦*** 

GX 

7-124 

SPDVTA 

r  ****** 

GX 

7-125 

$PRO 

00OOA4 

RG 

#6-61 

SQUEBF 

-   ****** 

GX 

7-105 

SRDBRT 

=   ****** 

GX 

7-126 

SRDBSZ 

~      ****** 

GX 

7-127 

SRELOC 

-   ****** 

GX 

7-106 

SSLTMA 

-   ****** 

GX 

7-128 

SSLTNM 

-   ****** 

GX 

7-129 

STSTBF 

-   ****** 

GX 

7-111 

$VA 

00005^ 

RG 

#6-69 
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H  10 

PAGE   2 

CREF       OA.OO 


SYMBOL  VALUE 


LSSERR 

LSIRST 

LSSSTP 

LS$STR 

L$LIN 

LSRSR 

LSTIP 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

N$$VCT 

RCVAB 

R$$11D 

R$$11M 

R$$11S 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

STOPC 

STPCHN 

STPRQ 

STRCHN 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

XMTAB 

X$$MCB 

ZF.COU 

7F.DDM 

ZF.DIA 

ZF.DLC 


=  000200 

=  000020 

=  000010 

=  000002 

000006 

000002 

000003 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

=  000022 

000022 

000020 

OOOOU 

000021 

000013 

-   ****** 

=  ****** 

=  ****** 

=  000000 

r  ****** 


GX 


000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

*♦*«**     GX 

000156  RG 

000074  RG 

000250  RG 

000001 

000000 

000004 

000002 

000003 


GX 


001000 
000001 
004000 
000002 


REFERENCES 

7-152 

7-132 

7-98 

7-138 

6-73 
»6-75 

7-147 
*5-52 
#5-52 
*5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 

6-76 

7-146 

5-50 

5-50 

5-50 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 

7-180 
#7-163 
#7-131 
#8-196 
#5-52 
#5-52 
#5-52 
#5-52 
#5-52 
7-149 
5-50 
#5-50 
#5-50 
#5-50 
#5-50 


8-213 
*7-143 


7-163 


»7-168 


7-170 


*7-175 


5-50 
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DLXQIO  -  ISSUE  I/O  REQUEST  TO  NX: 


K8 

K9  000052 

150 

151 

152 

153 

154 

155 

156 

157  000116 

10$: 

QI0W$S 

RO,#$TMLUN,* 

.IFF 

;NDF  M$$ACP 

10$: 

0I0$S 

RO,/»$TMLUN,, 

.IFTF 

;NDF  M$$ACP 

103010 

BCC 

20$ 

158  000120 

026727 

OOOOOOG 

OOOOOOG 

CMP 

$DSW,*IE.UPN 

159  000126 

001C23 

BNE 

40$ 

160  000130 

WSIG$S 

161  000136 

000745 

BR 

10$ 

16?  OOOKO 

20$: 

163 
164 
165  OOOUO 

.IFT 

;NDF  M$$ACP 

116701 

177634 

MOVB 

I0S8,R1 

166 

167 

168 

.IFF 

;NDF  M$$ACP 

169 

170 

CALL 

FORK 

171 
172 
173 

MOVB 

STATUS, R1 

.ENDC 

;NDF  M$$ACP 

174 

175  000144 

003014 

BGT 

40$ 

176  000146 

012700 

000020' 

MOV 

#DLXERR,RO 

177  000152 

005002 

CLR 

R2 

178  000154 

CALL 

$CBDSG 

179  000160 

012701 

000005- 

MOV 

#DLXTXT,R1 

180  000164 

160100 

SUB 

RI.RO 

181  000166 

11004! 

MOVB 

R0,-(R1) 

182  000170 

010164 

000056 

MOV 

R1,L$MSG(R4) 

183  000174 

000261 

SEC 

184  000176 

40$: 

RETURN 

,#I0Se,,<R3,R2,Rl>  ;  ISSUE  I/O 


,R5,#DLXAST,<R3,R2,R1>  ;  ISSUE  I/O 


IF  CC,  DIRECTIVE  SUCCEEDED 
ELSE  WAS  IT  A  RESOURCE  ERROR 
IF  NE,  NO  -  REAL  ERROR 
ELSE,  WAIT  AROUND  A  WHILE 
AND  TRY  IT  AGAIN 


GET  STATUS  RETURN 


FORK  AND  WAIT  FOR  QIO  COMPLETION 
GET  THE  STATUS  RETURN 


IF  GT,  SUCCESS 

POINT  TO  ASCII  ERROR  CODE  BUFFER 

ENABLE  ZERO  SUPRESSION 

CONVERT  IT  TO  SIGNED  DECIMAL 

POINT  TO  ERROR  TEXT 

CALC  STRING  LENGTH 

SET  STRING  LENGTH 

SET  ERROR  MESSAGE  ADDRESS 

ELSE,  NO 


ni  ynin  -   is<;iif    l/n  TD  ni  x 
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DLXSUB  -  DLX  subroutines 
Assign  line  to  an  LLC  process 

53 

5A 

55 

56 

57 

58 

59 

60 

61 

62 

63 

6A 

65 

66 

67 

68 

69  000000 

70 

71  000004 

72  000006 

73  000010 
7k  OOOOU 
75  000016 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 

90  000020 
'  000022 
/2 

93  000026 

94  000032 

95  000036 
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.SBTIL  Assign  tine  to  an  LLC  process 
••-ASSIGN-Assign  line  to  an  LLC  process 


004567  000522 

010015 

010211 

042711  100000 

005702 

100431 


96 

97  000040 

98  000042 

99  000046 

100  000050 

101  000052 

102  000054 
103 

104  000062 

105  000064 
106 

107  000066 

108  000072 

109  000076 


052715  100000 
105765  000014 
001411 

000302 

042702  177700 

006302 

006302 

060205 

152765  000200 


100406 


142715     000017 
152715     000000 


Inputs 


The  COMM/EXEC  databases  are  updated  to  reflect  the  new  line  assignment 
and  the  system  line  and/or  tributary  are  marked  active. 

RO  =  Target  PDV  and  Channel 

R1  =  Address  of  channel  entry  in  target  PDV 

R2  =  SLN  and  logical  tributary  #  or  the  <Line-id> 

Bit  15=0  -  Set  LF.ACT  and  network  management  state  to  'ON' 
Bit  15=1  -  Leaue  LF.ACT  and  network  management  state  alone 


.ENA8L  LSB 
ASSIGN: :JSR     R5,C0A$N 


MOV 

R0,(R5) 

MOV 

R2,(R1) 

BIC 

tfZS.ASN, 

(HI) 

TST 

R2 

BMI 

20$ 

Compute  address  in  reverse  mapping  table 

Store  new  PDV  and  Channel  in  reverse  mapping  table 
Store  new  SLN  and  ti'ibutary  in  channel  mapping  table 
Hake  sure  channel  is  no  longer  a-^'-.ignable 
Should  we  change  LF.ACT  etc? 
If  MI,  no 


»*-STACT-Set  sy  .m  line  and/or  tributary  active 

Mark  the  system  line  and/or  the  tributary  active. 

Inputs:  .   .  , 

R2  =  SLN  and  logical  tributary  #  of  the  <Line-id> 

Bit  15=0  -  Set  network  management  state  to  'ON' 
Bit  15=1  -  Leave  network  management  state  alone 

Registers  modified: 
R5 


STACT: 


000022 


10$: 


SAVRG 
CALL 

BIS 

TST8 

BEQ 

SWAB 

BIC 

ASL 

ASL 

ADD 

BISB 

RESRG 
BMI 

CALL 
BIC8 

Bise 


<R2> 

STSLT 

#LF.ACT,(R5) 

L.NSTA(R5) 

10$ 

R2 

#*C<77>,R2 

R2 

R2 

R2,R5         , 

#SF.ACT,L.MPF(R5) 

'R2>  ; 

20$ 

STNMST 

#LN.STA,(R5) 

#LN.0N,(R5) 


Save  SLN  and  tributary  # 
Compute  acidress  of  the  SLT 

Mark  the  line  active 

Is  this  a  multipoint  master  or  broadcast? 

If  EQ,  no 

Isolate  tributary  # 

Form  double  word  offset 

Compute  address  in  SLT 


Recover  SLN  and  tributary  # 

If  Ml,  leave  network  management  state  alone 

Compute  address  of  network  management  state 
Clear  out  current  state 
Set  new  state  to  'ON' 


MATDn     \/n^     n'^h     Fn'HAv     ?R- 
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103422 

132767 
00U16 
032767 
00K12 
052767 
001006 


DLXSUB  -  DLX  subroutines 
Validate  oriuileged  user 

592 
593 
594 
595 
596 
597 
598 

599  001262 

600  001266 

601  001272 
602 

603  001274 
60A  001302 

605  001304 

606  001312 

607  001314 

608  001322 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 

622  001324 

623  001330 
624 
625 
626 
627 
628 
629 
650 
631 

632  001332 

633  001336 
654 

635  001340 

636  001544 
657  001346 
638 
639 


MACRO  V05.g3b 
and  search  for  <Line 


Reg 

010267  OOOOOOG        FINDL 
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-id> 

'Z'  Clear  -  <Line-id>  is  assigned 
'Z'  Set   -  No  current  assignment 
'C  Set   -  Error  (RO  contains  error  code) 

isters  modi  tied: 
RO 


000001  000006G 
040000  000012G 
020000  00001 2G 


005767  000016G 


012700 
000402 

012700 
000261 


OOOOOOC 
OOOOOOC 


10$: 


20$: 


50$: 


40$: 
50$: 


MOV 

CALL 

BCS 

81T8 

BEQ 

BIT 

BEQ 

BIT 

BNE 

.IF  DF 

MOV 

BIT 

BNE 

TSTB 

BEQ 

BIT 

BEQ 

.ENDC 

TST 
RETURN 


R2,$ACESS 

FNDLN 

40$ 


Save  dynamic  assignment  flag 
Search  databases  for  <Line-id> 
If  CS,  not  found 


#ZF.DDM,$PBLK+T$FLG 


40$ 


#LF.RDY,$PBLK+T$SLF 


Was  this  really  a  <Line-id>? 


40$ 


#LF.UNL,$PBLK+T$SLF 
40$ 

R$$MPL 


Make  sure  <Line-id>  is  ready 


and  not  waiting  for  unload 


$P8LK<-T$ICRB,R0     ; 

#KS.OFL,K.STS(R0) 

20$ 

aNCPU 

10$ 

K.URM(RO),aURMST 

20$ 


$P8LK+T$ASN 


Get  pointer  to  KRB 

If  NE,  controller  is  offline 

Is  this  a  multi-processor  system? 

If  EQ,  no 

Is  the  bus  currently  online? 

If  EQ,  no 


Set  condition  code  according  to  assignment 


.If  DF   R$$MPL 


MOV 
BR 

.ENDC 

MOV 
BR 

MOV 
SEC 
RETURN 


.DSABL  LSe 


#IE.OFLS577,R0 
50$ 


#IE.PRIS577,R0 
50$ 

#IE.NSF8577,R0 


Set  device  offline 


Set  privilege  violation 


Set  no  such  <Line-id> 
Indicate  error 


rii  vc:i  in   -   ni  V 


ihrni  It  1  no 


1  13 
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L. 


DLXSUB  ■ 
Compute 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 


H  U 
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address  of  network  management  state  byte 


002516 
002520 

002524  062705 

002530  032765 

002536  001007 

002540  032765 

002546  001413 

002550  105765 

002554  001410 

002556  000302 

002560  042702 

002564  006302 

002566  006302 

002570  060205 

002572  062705 

002576 
002600 


000020 
000400 
000020 
177774 

177700 

000004 


.SBTTL  Compute  ' 
»*-STNMST-Conipute  addr 


ess  of  network  management  state  byte 
of  network  management  state  byte 


Compute  the  address  of  the  network  management  state  byte  for  the 
specified  <Line-id>. 


Inputs: 
R2 


SLN  and  logical  tributary  * 


Outputs: 

R5  =  Address  of  the  network  management  state  byte 


1 77760 
177760 


STNMST::SAVRG 
CALL 
ADD 


SIT 

BNE 

BIT 

BEQ 

TSTB 

BEQ 

SWAB 

BIC 

ASL 

ASL 

ADD 

ADD 


5$: 


10$: 


<R2>  ;  Save  SLN  and  logical  tributary  It 

STSLT         ;  Compute  address  of  the  SLT 
#L.NMST,R5      ;  Assume  line  is  not  multipoint 

#LF.BR0,L.FLG-L.NMST(R5)  ;  Is  line  a  broadcast  line? 

5$  ;  BR  if  yes 

#LF.MTP,L.FLG-L.NMST(R5) 

10$  ;  If  EQ,  line  is  not  multipoint 

L.NSTA-L.NMST(R5) 

10$  ;  If  EQ,  line  is  not  a  multipoint  master 


R2 

#*C<77>,R2 

R2 

R2 

R2,R5         ;  Compute  address  in  tributary  extension 

#L.MPF-L.NMST+S.NMST,R5 


Isolate  tributary 

Form  double  word  offset 


RESRG 
RETURN 


<R2> 


Restore  SLN  and  logical  tributary  It 


tf  Cl  ID   _  fM 


I  K 
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EVL 

-  EVENT  LOGGER  PROCESS 

Macro  de 

ti'nit  ions 

A9 

SO 

SI 

s,^ 

s^ 

SA 

ss 

S(S 

000000 

s^ 

000000 

SH 

000000 

S9 

000000 

60 

000000 

61 

000000 

6^ 

000000 

65 

000000 

H  15 
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.SBTTL  Macro  definitions 


.MCALL   SLTDF$,EVLDF$,PDVDF$,CC8DF$,INHI8$,ENA8L$,SAVRG,RESRG,MAP 
•MCALL   SAVMAP.RESMAP 

.MCALL  PH8DF$,XCBDF$,PVCDF$,DLMDF$ 


PH8DF$ 
XCBDFS 
PVCDFI 
DLMDFS 
SLIDES 
EVLDFS 
PDVDFS 
CC8DF$ 


DEFINE  PSI  HOME  BLOCK  OFFSETS 

DEFINE  XCB  OFFSETS 

DEFINE  PVC  OFFSETS 

DEFINE  DLM  LINE  TABLE  OFFSETS 

DEFINE  SrSTEM  LINE  TABLE  OFFSETS 

DEFINE  EVENT  LOGGER  OFFSETS 

DEFINE  PDV  OFFSETS 

DEFINE  CCB  OFFSETS 


or  Ti  .  CO 


I  15 


EVL  -  evENT  LOGGER  PROCESS 

QUEUE  EVENT  TO 

COLLECTOR  TASK 

476 

477 

478 

479 

480 

481 

482 

483 

484 

48S 

485 

487 

488 

489 

490 

491 

001132 

492 

001136 

010301 

493 

001140 

062701 

000004 

494 

001144 

016700 

176642 

495 

001150 

162700 

000014 

496 

497 

000006 

498 

499 

500 

501 

001170 

005013 

502 

001172 

010375 

000002 

503 

001176 

010365 

000002 

504 

001202 

505 

001206 

506 

507 

000001 

H  16 
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.SBTTL  QUEUE  EVENT  TO  COLLECTOR  TASK 

••-QUEUE-QUEUE  EVENT  TO  THE  COLLECTOR  TASK 

TIME  STAMP  THE  EVENT  RECORD  AND  QUEUE  IT  TO  THE  COLLECTOR  TASK. 
NOTE  THAT  THIS  ROUTINE  ASSUMES  THAT  IT  IS  INTERLOCKED  WITH  THE 
DEVICE  DRIVERS. 

INPUTS: 

R3  -  ADDRESS  OF  EVENT  RECORD 

R5  -  POINTER  TO  EVENT  LOGGER  PROCESS  DATABASE 


REGISTERS  MODIFIED: 
R2,  R3 


QUEUE: 


SAVRG 

MOV 

ADD 

MOV 

SUB 

.REPT 

MOV 

.ENDR 

CLR 

MOV 

MOV 

RESRG 

RETURN 

.END 


<R0,R1> 
R3,R1 

#E.TIME,R1 
TTNS.RO 
#14, RO 


(R0)+,(R1)+ 


(R3) 

R3,aE$EVTSt2(R5) 
R3,E$EVTS+2(R5) 
<R1,R0> 


GET  SOME  FREE  REGISTERS 
copy  ADDRESS  OF  EVENT  RECORD 
AND  POINT  TO  TIME-STAMP  AREA 
POINT  TO  CELLS  IN  EXEC 


TIME-STAMP  THE  EVENT 


CLEAR  OUT  LINK  WORD 

QUEUE  EVENT  TO  THE  COLLECTOR  TASK 


RESTORE  REGISTERS 


I  16 


o  c  m . CO 


SESUSR  -  Session  control 
Build  session  control  po 

232 
233 
234 
235 
236 
237 
238 
239 
2A0 
2A1 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 

253  000412 

254  000414  012765 
255 

256  000422  012700 

257  000426 

258  000432  103435 
259 

260  000434  012700 

261  000440 

262  000444  103430 
263 

264  000446  112722 

265  000452  012700 

266  000456  004367 

267  000462  000020 

268  000464  103420 
269 

270  000466  012700  . 

271  000472  004367 

272  000476  C00010 

273  000500  103412 

2/3  000502  012700 

276  000506  004367 

277  000512  000020 

278  000514  103404 
279 

280  000516  011605 

281  000520 

282  000524  000241 
283 

284  000526 

285  000530 


I  1 
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rtion  of  connect  initiate  message 

.SBTTL  Build  session  control  portion  of  connect  initiate  message 

**-BLDSES-8ui Id  session  control  portion  of  connect  initiate  message 

Build  the  session  control  portion  of  the  connect  initiate  message 
indicating  the  source  and  destination  process  indentif ications. 

Inputs:  .   ,        ^  _ 

R2  =  Pointer  to  next  available  byte  in  the  message  buffer 
R3  =  Virtual  address  of  LLT 
R4  =  Address  of  CCB 
R5  =  Address  of  database  descriptor 

Outputs: 

R2  =  Pointer  past  last  byte  used  in  message  buffer 
'C  Clear  -  Valid  message  built 
'C  Set   -  Format  error 

N$ERRC(R5)  -  ERSFMT 


Registers  modified: 
RO,  R1 


000005  000022 
OOOOOOG 

OOOOOOG 


000003 

OOOOOOG 

000126 


OOOOOOG 
000112 


OOOOOOG 
000076 


BLDSE3:  SAVRG 
MOV 

MOV 

CALL 

BCS 


MOV 

CALL 

BCS 

MOVB 

MOV 

JSR 

.WORD 
BCS 

MOV 
JSR 

.WORD 
BCS 

MOV 
JSR 

.WORD 
BCS 

MOV 

CALL 

CLC 

RESRG 
RETUR^J 


<R5>  ; 

#ER$FMT,N$ERRC{R5) 

#$DSDFH,RO 

BLDDSC 

100$ 

#$SfiDFM,R0 

BLDDSC 

100$ 


Get  a  free  register 


Point  to  destination  descriptor 

Build  destination  process/task  descriptor 

If  CS,  format  error 

Point  to  source  descriptor 

Build  source  process/task  descriptor 

If  CS,  format  error 


#CL.MUl ICL.MU2,(R2)+ 

#$REQID,RO 

R3,8LDIMG 

lo. 

100$ 


#$PASSW,RO 
R3,BLDIMG 


Build  image  mode  field 
Max  lengtFi  =  16.  bytes 
If  CS,  format  error 


100$: 


100$ 

#$ACCNT,RO 
R3,BLDIMG 
16. 
100$ 

(SP),R5 
ADDOPT 


<R5> 


Build  image  mode  field 
Max  lenqtFi  =  8.  bytes 
If  CS,  format  error 


Build  image  mode  field 
Max  lenqtFi  =  16.  bytes 
If  CS,  format  error 

Recover  address  of  database  descriptor 
Add  optional  data  to  message 
Indicate  success 


J      1 
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Build  c-ocess/task   descriptor 
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Symbol  table 


ACCLLT  = 

ADDLNK= 

ADDMAI= 

A00OPT= 

ASCBIN 

A$SCHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

A.ACC 

A.LNK 

A.NAM 

A.  PUD 

A. REM 

A.UCB 

BLDDSC 

BLDIMG 

BLDSES 

CB.ACN 

CB.AfT 

CB.CCB= 

CB.DDM= 

CB.DFM 

CB.DGR 

CB.DLC=^ 

CB.DL1 

CB.DL2 

CB.DOB 

CB.DR1 

CB.DR2 

CB.DUS 

CB.LGT 

CB.NOD 

CB.OPD 

CB.OPT 

CB.PSL 

CB.PSW 

CB.RDB= 

CB.RQD 

CB.RQi 

CB.SDB= 

CB.SEM 

CB.SGR 

CB.SLI= 

CB.SLI 

CB.SL2 

CB.SOB 

CB.SRl 

CB.SR2 

CB.SUS 

CB.XLB= 

CC.LLC= 

CEACC  = 

CEMUL  = 

CE.ASO= 

CE. DAO= 

CE.DIS= 


000062R 

000000 

000000 

000000 

000000 

000020 

000000 

000002 

000010 

000012 

000010 

000532R 

00061  OR 

0OOA12R 

0001  U 

000112 

000002 

000040 

000006 

000010 

000020 

000010 

oooou 

000007 

000012 

000016 

000012 

000156 

000000 

000134 

000136 

000100 

000102 

000004 

000056 

000060 

000010 

000032 

000034 

000100 

000034 

000040 

000033 

000036 

000042 

000036 

000001 

000200 

».».*♦  I 

******  ( 

100362 

100346 

100366 


GX 
GX 
GX 
GX 


CE.ERR= 
CE.ILN= 
CE.LTO= 
CE.MOP= 
002  CE.NTE= 
CE.RTE= 
CE.SRC= 
CE.STP= 
CE.TME= 
CE.TMO= 
CE.UNS= 
CF.CHN= 
CF.EOM= 
CF.HDR= 
CF.LB  = 
CF.LIN= 
CF.SOM= 
CF.SYN= 
CF.TRN= 
CHKACK= 
CHKADD 
CHKNAM 
CL$MFL= 
CL$SFL= 
CL$TYP= 
CL.MU1= 
CL.MU2= 
CL.RES= 
CMPINT 
CM.CIR= 
CM.CON= 
CM.FMT= 
CM.HRD= 
CM.L1N= 
CM.LDO= 
CM.XLO= 
CP.DCF= 
CP.HDL= 
CP.PS  ■= 
CP.PS1= 
CP.XCF= 
CP.2FR= 
CS.ABD= 
CS.BRO= 
CS.BUF= 
CS.CES= 
CS.CHN= 
CS.CMP= 
CS.DCR= 
CS.DEF= 
CS.DEV= 
CS.DIS= 
CS.ENA= 
CS.ENB= 
CS.ERR^ 
CS.FrL= 
CS.HCR= 


100370 

CS.HFE= 

002000 

DSAMXC 

000072 

100350 

CS.LST= 

040000 

DSAMXH 

000074 

100356 

CS.MTL= 

004000 

DSANN 

000000 

100372 

CS.RNG= 

000010 

DSBRPR 

000102 

100361 

CS.R0V= 

000004 

DSBRTM 

000100 

100376 

CS.RSN= 

010000 

DSDELF 

000045 

100364 

CS.SHU= 

000001 

DSDELU 

000046 

100352 

CS.SID= 

000002 

D$END  = 

000104 

100354 

CS.S7R= 

000004 

D$FNB 

000034 

100374 

CS.SUC= 

000001 

DSHIOR 

000024 

100344 

CS.TMO= 

020000 

DSHOST 

000022 

000001 

CS.XUR= 

000004 

DSINAC 

000044 

000004 

CTRSES= 

******  GX 

DSINCT 

000042 

000020 

CVTADD 

000042R 

002  D$IPL 

000051 

100000 

CVTARE 

000054R 

002  D$LID 

000020 

000002 

CV$MSK= 

000003 

DSLNAM 

000006 

000010 

CV$31  = 

000001 

DSLNUM 

000014 

000040 

CV$32  = 

000000 

D$LST 

000047 

000100 

CV$40  = 

000002 

DSMAXC 

000064 

»«**«*  GX 

CX.6DQ= 

000001 

DSMAXH 

000066 

OOOOOOR 

002  CX.REM= 

000020 

DSMAXV 

0'-  f^070 

001256R 

CX.REQ= 

000002 

D$MLL 

0  140 

000010 

CX.RU]= 

000040 

DSMNOD 

I  0041 

000004 

CX.SMC= 

000010 

D$NA 

000062 

000001 

CX.UNL= 

000004 

DSNBEA 

000056 

000001 

C$$ORE= 

000400 

DSNBRA 

000054 

000002 

C$$RSH= 

177564 

D$NEND= 

000054 

177774 

C.ADD 

000034 

DSNLN 

000030 

001414RG 

C.8ID 

000003 

DSNN 

000060 

000002 

C.BUF 

000014 

DSOUTT 

000043 

000200 

C.8UF1 

000014 

DSRETF 

000050 

100000 

C.8UF2 

000024 

D$RNN 

000002 

000002 

C.CNT 

000020 

DSRTMR 

000076 

000000 

C.CNT1 

000020 

D$SEG 

000036 

000001 

C.CNT2 

000030 

D$SER 

000032 

000004 

C.FLG 

000022 

DSSQRL 

000052 

000040 

C.FLG1 

000022 

D$$BUG= 

177514 

000007 

C.FLG2 

000032 

D$$ISK= 

000000 

177400 

C.FNC 

000010 

D$$L11= 

000001 

000200 

C.LIN 

000006 

D$$VNC- 

000000 

000100 

C.LNK 

000000 

D$$YNM= 

000000 

000030 

C.MOD 

000011 

ER$ABM= 

000010 

000100 

C.NSP 

000004 

ER$ABO= 

000046 

000002 

C.PRO 

000042 

ER$ABT= 

000011 

000200 

C.RSV 

000002 

ER$ACC= 

000042 

000002 

C.STA 

000007 

ER$CDI= 

000052 

000010 

C.SFS 

000012 

ER$COM= 

000047 

000200 

C.URM 

177776 

ER$FMT= 

000005 

000400 

C.XACP 

000004 

ER$MLB= 

000006 

000004 

C.XID 

000035 

ER$NNF= 

000012 

000002 

C.XLEN 

000044 

ER$NOD= 

000002 

000040 

C.XPLI 

000040 

ER$NSL= 

000013 

000001 

C.XPT 

000034 

ER$NSR= 

000003 

000020 

C.XSVC 

000042 

ER$RES= 

000001 

100000 

C.XTC 

000037 

ER$STA= 

000051 

001000 

C.X25 

000036 

ER$UOB= 

000004 

000001 

DECPT  = 

******  GX 

E$NBR 

000014 

ESNBS 

E$NCR 

E$NCS 

ESNIC 

ESNLEN 

ESNLLA 

ESNLNK 

E$NHL 

E$NMR 

E$NMS 

ESNNOD 

ESNRT 

ESNRTP 

ESNSEG 

ESNTIH 

ESNUSE 

ESSTRT 

E$i^PR= 

FC.CCP= 

FC.CTL= 

FC.KCP= 

FC.KIL= 

FC.MAN= 

FC.MLD= 

FC.PCT= 

FC.PWR= 

FC.RCE= 

FC.RCP= 

FC.TIM= 

FC.XCP= 

FC.XME^ 

FLSRES= 

FS.AST= 

FS.CIB= 

FS.CRA= 

FS.OIS= 

FS.DVC= 

FS.ENB- 

FS.EXl^ 

FS.GET^ 

FS.HLT= 

FS.INI= 

FS.KIL= 

FS.LCL= 

FS.LTM= 

FS.MNT= 

FS.MSN= 

FS.REA= 

FS.RET= 

FS.REZ= 

FS.RLB= 

FS.RNG= 

FS.RST= 

FS.RTN= 

FS.SET= 

FS.SFC= 

FS.SFR= 


000020 

000034 

000036 

000044 

000050 

000012 

000000 

000040 

000024 

000030 

000002 

000042 

000005 

000010 

000046 

000004 

000006 

000000 

000020 

00000  - 

000016 

000,04 

OOUl/24 

000026 

000030 

000022 

000002 

000014 

000010 

000012 

000000 

******  GX 

000000 

002000 

001000 

013000 

001000 

012000 

001000 

006000 

000000 

000000 

000000 

100000 

001000 

004000 

014000 

001000 

000000 

003000 

002000 

on  000 

000000 
001000 
005000 
005000 
006000 


SESUSR  -  Session  control  user 
Svmhol  table 
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Define  local  macros 

53  .SSTTL  Define  local  macros 

5^ 

55  .MACRO  SDOPKT, QUEUE 

56  JSR  RO.DQPKT 

57  .WORD  LS'OUEUE 

58  .ENDM   SDQPKT 
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Characteristics  complete  frocessing 


A61 
462 
463 
46A 
465 
466 
467 
468 
469 
470 
471 
472 

473  001140  010100 

474  001142  010201 

475  001144 

476  001152  103402 

477  001154 
478 

479  001160 


.SBTTL  Characteristics  complete  processing  $ 

♦♦-CHARC-Characteristics  complete  processing 

This  routine  is  called  when  the  DLC  has  completed  processing  of  a 
set  or  get  characteristics  function. 

Inputs: 

R1  =  Completion  status 

R2  =  Error  offset  for  characteristics  functions 

R5  =  Address  of  physical  link  access  block 


CHARC: 


10$: 


MOV 

R1,fi0 

MOV 

R2,R1 

SDQPKT 

FNC 

BCS 

10$ 

CALLR 

RQDON 

RETURN 


Set  up  register  conventions 

for  I/O  completion 
Dequeue  a  control  function 
If  CS,  none  available! 
Complete  the  request 
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1 
2 
5 

4 
5 
6 

7 
8 
9 

10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 

48  000000 

49  000000 

50  000000 


.TITLE  DLXCHR  -  DLX  AuxUliary  characteristics  processing 
.IDENT  /V05.00/ 
.ENA8L  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  above  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  by  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

DLX  auxilliary  characteristics  processing 

Distributed  Systems  Software  Engineering 

Ident  History: 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

OECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


.MCALL 
.MCALL 

CCBDFS 
CHRDFS 
PLADFS 


SAVRG,RESRG,MAP 
CCBDFS, CHRDFS, PLADFS 


Define  CCB  offsets 

Define  characteristics  symbols 

Define  PLA  offsets 
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DLXCTL  -  DLX  control  QIO  fundi  MACRO  V05.03b  Friday  28-Jun-85  22:5^ 
Table  of  contents 

Macro  definitions 

Define  local  macros 

LLC  to  LLC  control  functions 

Dispatch  tables 

Control  QIO  function  processing 

Turn  <Line-id>  on 

Reassign  <Line-id>  for  service  access 

Common  error  routines 

Assign  <Line-id>  to  another  LLC 

Turn  <Line-id>  off 

Deassign  <Line-id>  from  an  LLC 

Set  owner  for  <Line-id> 

Set  network  management  state  for  <Line-id> 

Set  network  management  substate  for  <Line-id> 

Queue  a  control  CCB  to  the  target  LLC 

Control  complete  processing 

Continue  with  reassignment 

Continue  with  deassign  operation 

Continue  with  off  processing 

Complete  the  control  request 


s- 

4A 

6- 

SA 

/- 

M 

H- 

HO 

4- 

111 

10- 

1S1 

11- 

1/H 

12- 

246 

1^- 

2H-; 

K- 

vo 

IS- 

•i^s 

1(S- 

w, 

1^- 

401 

U- 

421 

18- 

44V 

19- 

4/4 

20- 

S20 

21- 

SS2 

22- 

S/O 

23- 

b91 
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DLXCTL  - 
Deassign 

3A5 
346 
3A7 
3A8 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
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<Line-id>  from  an  LLC 

.SBTTL  Deassign  <Line-id>  from  an  LLC 
♦*-CTLDEA-Deassign  <Line-id>  from  an  LLC 


000532  005767  00001 6G 

000536  001677 

000540 

000544  103713 

000546  112764  000006  000004 

000554  016702  OOOOIOG 

000560  016764  000016G  000006 

000566  012764  002006  000010 

000574  005064  000012 
000600 


This  routine  is  called  to  deassign  the  <Line-id>  from  it's  owning 
LLC. 


Inputs 


R1  =  Address  of  system  tine  table 
R3  =  Aadress  of  I/O  packet 


Registers  modified: 

RO,  R1,  R2,  R3,  R4,  R5 


CTLDEA:  TSf 
BEQ 

CALL 
BCS 


CTL0F1: 


M0V8 

MOV 
MOV 
MOV 
CLR 
CALLR 


Check  line  assignment 
If  EQ,  line  not  assigned 

Allocate  a  CCB 

If  CS,  allocation  failure 


$P8LKtT$ASN 
ISALT 

aCCBGT 
lENOD 

#NX.DEA,C.NSP(R4) 

$PBLKtT$SLN,R2  ;  Get  SLN  and  logical  tributary 

$PBLK+T$ASN,C.LIN(R4) 

#FC.CTL:FS.STP,C.FNC(R4) 

C.STS(R4)      ;  Indicate  stop  and  disable  required 

QCC8L         ;  Queue  the  CCB  to  the  target  LLC 
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DLXCTL 

CREATED  BY 

MACRO  ON  28-JUN-85  AT 

22:54 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

L.FLG 

000000 

#5-52 

L.KRBA 

000016 

#5-52 

L.LEN 

=  000022 

#5-52 

L.MPF 

000022 

#5-52 

L.NMST 

000020 

#5-52 

L.NSTA 

OOOOH 

#5-52 

L.OWNR 

000021 

#5-52 

L.UNT 

000013 

#5-52 

MAPAD 

r  *t**t* 

fix 

20-539 

NXCTL 

00004A 

^G 

#9-127 

NX. ASS 

=  000000 

G 

11-240 

#19-509 

NX.DEA 

=  000006 

G 

15-365 

#19-512 

NX. DON 

=  000010 

G 

13-315 

#19-513 

NX. OFF 

=  OOOOOA 

fi 

14-342 

#19-511 

NX.REA 

=  000002 

G 

#19-510 

20-542 

N$$BUF 

=  000001 

9-138 

OFF 

=  000000 

G 

#7-66 

PRCLD 

~    ****** 

GX 

10-168 

14-337 

QCCBL 

000710 

RG 

11-244 

13-318 

15-371 

RQALT 

=    ****** 

GX 

12-279 

RODON 

r  ****** 

GX 

23-616 

RSSMPL 

=  ****** 

19-515 

R$$11D 

-  ****** 

5-50 

R$$11M 

=  000000 

5-50 

R$$11S 

=         ***!»■** 

5-50 

SFMAX 

=  000022 

#8-95 

9-131 

SF.ACT 

=  000200 

#5-52 

SF.ENA 

=  000100 

#5-52 

SF.LPB 

=  000004 

#5-52 

SF.MFL 

=  000040 

#5-52 

SF.PAC 

=  000020 

#5-52 

SF.REA 

=  000010 

#5-52 

SF.SER 

=  000001 

#5-52 

SF.SVC 

=  000002 

#5-52 

SF.UNL 

=  000040 

#5-52 

SRCTBL 

000000 

^ 

#8-85 

STACT 

=  ****** 

GX 

10-174 

STNMST 

-  ****** 

GX 

16-397 

STOP 

=  000001 

G 

#7-65 

STRT 

=  000004 

G 

#7-71 

S.COST 

000001 

#5-52 

S.FLG 

000000 

#5-52 

S.LEN 

000004 

#5-52 

S.NMST 

000002 

#5-52 

S.OWNR 

000003 

#5-52 

TSTBF 

=  *■****■« 

GX 

9-141 

T$ASN 

000016 

10-165 

TSNMST 

000022 

11-198 

TSSLN 

000010 

10-173 

X$$MC6 

-  ****** 

5-50 

ZF.COU 

-  001000 

#5-50 

ZF.DDM 

=  000001 

#5-50 

8-95 

17-439 

11-243 
10-175 


11-227 

11-236 
5-50 
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CREf        04.00 


#18-467 


20-547 


9-135 
22-586 


11-237 
13-309 


11-241 
15-367 


13-298 
16-596 


13-316 
17-4  58 


14-334 


15-559 


15-368 


DLXCTL 


CREATED  BY     MACRO     ON  28-JUN-85   AT   22:54 
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MACRO   CROSS  REFERENCE 
MACRO  MAME  REFEREfJCES 

PLADFS  #5-A6  5-A8 
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CREf       OA.OO 
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•♦F1LE'MD««DLXL1N 


DLXLIN 

CREATED 

BY 

MACRO     ON  28-JUN-85  AT   22:55 

PAG 

SYMBOL 

CROSS   REFERENCE 

CRE 

SYMBOL 

VALUE 

REFERENCES 

ZF.DVP 

=   100000 

#5-50 

ZF.INI 

=  OAOOOO 

#5-50 

ZF.KMX 

=  000020 

#5-50 

ZF.LLC 

=  000004 

#5-50 

ZF.LMC 

=  000100 

#5-50 

ZF.MAN 

=  020000 

#5-50 

ZF.MFL 

=  000010 

#5-50 

ZF.MTM 

=  OOOAOO 

#5-50 

ZF.MUX 

=  OOOOAO 

#5-50 

ZF.PSE 

=  002000 

#5-50 

ZF.SL! 

=  010000 

#5-50 

ZF.TIM 

=  000200 

#5-50 

ZF.X3P 

=  000000 

#5-50 

ZS.ASN 

=  100000 

#5-50 

ZS.BSY 

=  uoooo 

#5-50 

Z.AVL 

oooou 

#5-50 

Z.DAT 

000016 

#5-50 

Z.DSP 

000000 

#5-50               5-50 

Z.FLG 

000010 

#5-50 

Z.LEN 

=  000016 

#5-50 

Z.LLN 

000006 

#5-50 

Z.MAP 

000020 

#5-50 

Z.MAM 

000004 

#5-50 

Z.PCB 

000012 

#5-50 

Z.SCH 

000007 

#5-50 

tLLCRQ 

-    ****** 

GX 

6-76 

I  10 


CREF   04.00 
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DLXQIO  -  ISSUE  I/O  TO  DLX 
DLXLUN  -  ASSIGN!  A  LUN  TO  NX: 


186 
187 
188 
189 
190 
191 
192 
193 
19A 
195 
196 
197 
198 
199 
200 
201 
202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2U 
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.SBTTL  DLXLUN  -  ASSIGN  A  LUN  TO  NX: 

h 

**-DLXLUN-ASSIGN  A  LUN  TO  NX: 

THIS  ROUTINE  IS  CALLED  TO  ASSIGN  STMLUN  TO  NX:. 

OUTPUTS: 

If  CC,  NX:  IS  LOADED  AND  ALUN  SUCEEDED. 
ELSE,  NX:  NOT  PRESENT 

REGISTERS: 

NO  REGISTERS  MODIFIED 


000200 

000200 

000202 

000206 

000226  103415 

000230  062701  000166 

00023A 

000250  103A04 

000252  105761  000003 

000256  100401 

000260  000261 

000262 

000264 

000001 


DLXLUN: 


10$: 


SAVRG 

<R4> 

CALL 

DEALUN 

ALUNSS 

#$TMLUN,#"NX 

BCS 

10$ 

ADD 

#L$SCR,R4 

GLUNSS 

*$TMLUN,R4 

BCS 

10$ 

TSTB 

3(R';) 

BMI 

10$ 

SEC 

RESRG 

<R4> 

SAVE  R4 

DEASSIGN  THE  TEMPORARV  LUN 

TRY  TO  ASSIGN  A  LUN  TO  NX: 

IF  CS,  NOT  THERE 

POINT  TO  SCRATCH  BUFFER 

GET  LUN  INFORMATION 

IF  CS,  ASSUME  NO  DLX 

IS  THE  DRIVER  LOADED  ? 

IF  MI,  YES 

ELSE,  NO 

RESTORE  R4 


RETURN 
.END 
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DLXSUB  -  DLX  subroutines       MACRO  VO5.03b  Friday  28-Jun-85  22:56  Page  6-1 

Assian  line  to  an  LLC  process 


no 

111  000^02 

112 

113 


20$: 


RETURN 
.DSA8L   LS8 


Dl  y<;ilR  -  Dl  X  subroutines 
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DLXSUB  -  DLX  sub 
Find  free  channe 

6A1 
642 
6A3 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 

660  001350 

661  001352 

662  001356 

663  001364 

664  001366 

665  001372 
666 

667  001374 

668  001402 

669  001404 

670  001412 
671 


1  13 

routines       MACRO  V05.O3b  Friday  28-Jun-85  22:56  Page  17 
I  in  process  mapping  table 

.SBTTL  Find  free  channel  in  process  mapping  table 

♦«-FNDFR-Find  free  channel  in  process  mapping  table 

Scan  the  channel  mapping  table  at  the  end  of  the  PDV  to  find  an 
unused  entry. 

Inputs: 

R2  =  FDV  index  of  the  process 

Outputs: 

RO  =  PDV  and  Channel 

Error  code  on  failure: 

lE.RSU  -  Line  is  in  loopback 
IE. NOD  -  No  free  channels  available 
R1  =  Address  of  PDV  channel  entry 
'C  Clear  -  Free  channel  found 
'C'  Set   -  No  free  channels  available  c-  line  is  in  loopback 


012700 
032767 
001403 
105767 
001004 

032767 
000403 
032767 
001024 


OOOOOOC 
000020 

000005G 


FNDFR: 


00001 2G 


001000 
000004 


000012G  10$: 

000004G  20$: 
30$: 


SAVRG 

MOV 

BIT 

BEQ 

TSTB 

BNE 

BIT 
BR 
BIT 
BNE 


<R5>  ;  Get  a  free  register 

#1E.RSU8377,R0  ;  Assume  line  is  in  loopback 

#LF.MTP,$PBLK+T$SLF 

10$  ;  If  EQ,  not  a  multipoint  line 

$PBLK+T$NSTA    ;  Is  this  a  multipoint  master? 

20$  ;  If  NE,  yes 

#LF.LPB,$PBLKtr$SLF 

30$  ;  Enter  common  code 

#SF.LPB,$PBLK+T$SFLG 

70$  ;  If  NE,  line  or  tributary  is  in  loopback 


672  001414 

010201 

MOV 

673  001416 

067701 

OOOOOOG 

ADD 

674  001422 

011101 

MOV 

675  001424 

062701 

000020 

ADD 

676  001430 

005000 

CLR 

677  001432 

005005 

CLR 

678  001434 

156105 

177766 

BISB 

679  001440 

680 

681  001442 

001407 

BEG 

012146 

40$: 

MOV 

682  001444 

006326 

ASL 

683  001446 

103001 

BCC 

684  001450 

685 

686  001452 

100007 

BPL 

005200 

50$: 

INC 

687  001454 

SOS 

688 

689  001460 

012700 

OOOOOOC 

60$: 

MOV 

690  001464 

000261 

70$: 

SEC 

691  001466 

692 

693  001470 

000404 

BR 

000300 

80$: 

SWAB 

694  001472 

050200 

BIS 

695  001474 

000300 

SWAB 

696 

697  0014  76 

005741 

TST 

R2,R1 

aPDVTA.RI 

(R1),R1 

#Z.MAP,R1 

RO 

R5 

Z.LLN-Z.MAP(R1),R5 

60$ 

(R1)+,-(SP) 
(SP)  + 
50$ 
80$ 

RO 
R5,40$ 

#IE.NODS377,R0 

90$ 

RO 

R2,R0 

RO 

-(R1) 


Compute  address  of  entry  in 

PDV  index  table 
Get  pointer  to  the  PDV 
Point  to  the  channel  mapping  table 
Initialise  channel  # 
Get  It   of  channels  to  scan 
5 
If  EQ,  no  channels  for  this  process 

;  Get  next  entry 

;  Is  it  free  to  assign? 

;  If  CC,  no 

;  If  PL,  yes  ...  assign  it 

;  Update  channel  # 

;  Scan  all  channel  entries 

;  Set  up  error  code 
;  Indicate  error 
and  exit 

;  Merge  PDV  index  and  channel  # 

;  Backup  channel  entry  address  (Clears  C-bit) 


MAfDn  wn^  n^h  PriHav  ?ft- 
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DLXSUB  ■ 
Compute 

1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
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address  of  the  system  line  table 


002602 
00260A 
002610 
002612 
002616 
002620 


010205 
042705 
006305 
067705 
011505 


000001 


.S8TTL  Compute  address  of  the  system  line  table 
**-STSLT-Compute  address  of  the  system  line  table 


Compute  the  address  of  the  system  line  table  associated  with 
<Line-id>. 


Inputs: 
R2 


SLN  and  logical  tributary  # 


Outputs: 

R5  =  Address  of  the  system  line  table 


177400 
OOOOOOG 


STSlT: 


MOV 
BIC 
ASL 
ADD 
MOV 
RETURN 

.END 


R2,R5 

#"C<377>,R5 

R5 

5)SLTMA,R5 

(R5),r5 


Isolate  SLN 

Form  word  offset 

Point  into  system  line  index  table 

Get  address  of  system  line  table  entry 
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EVL  -  EVtNT  LOGGER  PROCESS 
DEFINE  LOCAL  MACROS 

65 
66 
67 
68 

69 
70 
71 
72 
73 
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.SBTTL  DEFINE  LOCAL  MACROS 

.MACRO  EVENT, CLASS, TVPE 

.WORD  <CLASS*100>tTYPE 

.ENDM  EVENT 

.MACRO  ENDEVENT 

.WORD  0 

.ENDM  ENDEVENT 


I,  AC  riTu 
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EVL  -  EVENT  LOGGER  PROCESS 
Symbol  table 
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AC$DNT= 

000002 

CL$XL3= 

013500 

C.BUF2 

000024 

EV$INF= 

000515 

E.LCN 

000042 

AC$X25= 

000001 

CL$X2S= 

013500 

C.CNT 

000020 

EV$LDL= 

000407 

E.LEN 

000216 

AESCIR= 

000003 

CM.C1R= 

000002 

C.CNT1 

000020 

EV$LDN= 

010416 

E.LIN 

000024 

AE$LIN= 

000001 

CM.FMT= 

100000 

C.CNT2 

000030 

EV$LDO= 

000411 

E.LNK 

OOOOOO 

AE$MOD= 

00000^ 

CM.HRD= 

000002 

C.FLG 

000022 

EV$LDS= 

000410 

E.MOD 

000036 

ALLOC 

000532R 

CM.LIN= 

000000 

C.FLG1 

000022 

EV$LSC= 

000500 

E.NOD 

000034 

A$tCHK= 

000000 

CM.LOO= 

000001 

C.FLG2 

000032 

EV$LUP= 

000412 

E.PDV 

000021 

AS$CPS= 

000000 

CM.XLO= 

000004 

C.FNC 

000010 

EV$NOL= 

000402 

E.PORT 

000040 

A$tPRI= 

000000 

CP.DCF= 

000040 

C.LIN 

000006 

EV$NRC= 

000416 

E.PRM 

000026 

A$$TRP= 

000000 

CP.HDL= 

000007 

C.LNK 

000000 

EV$NSC= 

000200 

E.PVC 

000044 

CB.CCB= 

000002 

CP.PS  = 

177400 

C.MOD 

000011 

EV$NUL= 

000401 

E.SIZ 

000022 

CB.DDM- 

OOOO-iO 

CP.PSI= 

000200 

C.NSP 

000004 

EV$NVR= 

000406 

E.TIME 

000004 

CB.DLC= 

000020 

CP.XCF= 

000100 

C.PRO 

000042 

EV$OPL= 

000403 

FC.CCP= 

000020 

CB.RDB= 

OOOOOA 

CP.2FR= 

000030 

C.RSV 

000002 

EV$PCC= 

81^829 

FC.CTL= 

000006 

CB.SDB= 

000010 

CS.ABO= 

000100 

C.STA 

000007 

EV$PCI= 

034001 

FC.KCP= 

000016 

CB.SLI= 

000100 

CS.8R0= 

000002 

C.STS 

000012 

EV$PCM= 

034002 

FC.KIL= 

000004 

CB.XLB= 

000001 

CS.BUF= 

000200 

C.URM 

177776 

EV$PFE= 

000404 

FC.MAN= 

000024 

CC.LLC= 

000200 

CS.CES= 

000002 

C.XACP 

000004 

EV$PPC= 

034003 

FC.»1LD= 

000026 

CEACC 

OOOOUR 

CS.CHN- 

000010 

C.XID 

000035 

EV$RCF= 

000517 

FC.PCT= 

000030 

CE.ABO= 

100362 

CS.CMP= 

000200 

C.XLEN 

000044 

EV$RDC= 

010001 

FC.PWR= 

000022 

CE.DAO= 

100345 

CS.DCR= 

000400 

C.XPLI 

000040 

EV$RDR= 

010002 

FC.RCE= 

000002 

CE.OIS= 

100566 

CS.DEF= 

000004 

C.XPT 

000034 

EV$RJE= 

035106 

FC.RCP= 

000014 

CE.ERR= 

100370 

CS.DEV= 

000002 

C.XSVC 

000042 

EV$RSC= 

929501 

FC.TIM= 

000010 

CE.ILN= 

100350 

CS.DIS= 

000040 

C.XTC 

000037 

EVSRUL^ 

000405 

FC.XCP= 

000012 

CE.LTO= 

100356 

CS.ENA= 

000001 

C.X25 

000036 

EV$SNA= 

035000 

FC.XME= 

OOOOOO 

CE.MOP= 

100372 

CS.ENB= 

000020 

DL$AST= 

000002 

EV$SNF=: 

929516 

FR$BCC= 

000007 

CE.NTE= 

100361 

CS.ERR= 

100000 

DL$HLT= 

000000 

EV$SPE= 

035001 

FR$CCF= 

000001 

CE.RTE= 

100376 

CS.FTL= 

001 OJO 

DL$IST= 

000001 

EV$XCE= 

034110 

FR$CDF= 

000002 

rE.SRC= 

100364 

CS.HCR= 

000001 

DL$MAI= 

000004 

EV$XDI= 

013600 

FR$DAO= 

000011 

CE.STP= 

100352 

CS.HFE= 

002000 

DL$0FF= 

000001 

£V$XGW= 

0341  il 

FR$EXC= 

OOOOOO 

CE.TME= 

100354 

CS.LST= 

040000 

DL$ON  = 

000000 

EV$XMX= 

000514 

FR$FRM= 

000010 

CE.TMO= 

100374 

CS.MTL= 

004000 

OL$RUN= 

000003 

EV$XRS= 

000512 

FR$FTL= 

000005 

CE.UNS= 

100344 

CS.RNG= 

000010 

OL$SHU= 

000002 

EV$XSC= 

000513 

FR$OPN= 

000004 

CF$BLK= 

000102 

CS.ROV= 

000004 

DL$SYN= 

000005 

EV$X2S= 

013500 

FR$RFD= 

000006 

CF.CHN= 

000001 

CS.RSN= 

010000 

D$$BUG= 

177514 

EV.CCB^- 

000001 

FR$SBU= 

000012 

CF.EOM= 

000004 

CS.SHU= 

000001 

D$$ISK= 

000000 

Ev.CIR= 

000020 

FR$SHO= 

000003 

CF.HDR= 

000020 

CS.SID= 

000002 

D$$Ln  = 

000001 

EV.LCB= 

000100 

FR$UBU= 

000013 

CF.LB  = 

100000 

CS.STR= 

000004 

D$$YNC= 

000000 

EV.LIN= 

000004 

FRSUPT^ 

000014 

CF.LIN= 

000002 

CS.SUC= 

000001 

D$$rNM= 

000000 

EV.mP= 

000002 

FS.AST= 

OOOOOO 

CF.SOM= 

000010 

CS.TMO= 

020000 

EF$ACT= 

000001 

EV.MOD= 

000040 

FS.CIB= 

002000 

CF.SYN= 

000040 

CS.XUR= 

000004 

EV$ACF= 

000201 

EV.NOD= 

000010 

FS.CRA= 

001000 

CF.TRN= 

000100 

c$dt: 

000012 

EV$ADR= 

000420 

EV.PRT= 

000200 

FS.DIS= 

013000 

CL$ASZ= 

010500 

C$FLG 

000015 

EV$ADU= 

000417 

EXRQN 

00001 6R 

FS.DVC= 

001000 

CL$DLL= 

000500 

CSGNAM 

000016 

EV$APL= 

000400 

ESDATA 

000020 

F'.ENB= 

012000 

CL$ECL= 

000300 

C$LCN 

000010 

EV$ARC= 

000421 

EIEVTS 

000000 

Fs.EXI= 

001000 

CL$LDN= 

010400 

C$LEN 

000016 

EV$AUC= 

000010 

ESLCN 

000016 

FS.GET= 

006000 

rL$MAN= 

000000 

CSLNK 

000000 

EV$AUS= 

000003 

ESLIN 

OOOOOO 

FS.HLT= 

OOOOOO 

CL$PAZ= 

034100 

CSNAM 

000002 

EV$CDF= 

000520 

E$MOD 

000012 

FS.INI= 

OOOOOO 

CLSPLH= 

034000 

C$NML 

000002 

EV$COZ= 

000011 

ESNOD 

000010 

FS.KIL= 

OOOOOO 

CL$PlL= 

000600 

C$P0RT 

000014 

EV$D8R= 

000302 

ESPORT 

000014 

FS.LCL= 

190999 

CLtPRT= 

034200 

C$$CKP= 

000000 

EV$GAS= 

035101 

E$PRM 

000002 

FS.LTM= 

001000 

CL$ROU= 

010000 

C$$ORE= 

000400 

EV$HCE= 

035114 

E$S7AT 

000006 

FS.MNT= 

004000 

CL$SES= 

000200 

C$$RSH= 

177564 

EV$HC1= 

035113 

E$TCB 

000004 

FS.MSN= 

014000 

CL$SGE= 

035000 

C.ADD 

000034 

EV$HFE= 

000506 

E$SXPR= 

999099 

FS.REA= 

0010C9 

CL$5S£= 

035100 

C.BID 

000003 

EV$IFL= 

000413 

E.CTL 

000020 

FS.RET= 

OOOOOO 

ntTfiN- 

000400 

C.BUF 

000014 

EV$IFO= 

000415 

E.DATA 

000045 

F5.REZ= 

003000 

CL$)(L2  = 

013700 

C.BUF1 

000014 

EV$IFS= 

000414 

E.EVT 

000002 

FS.RLB= 

002000 

"1 


r^r^    line  n7u 
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287 

288 

289 

290 

291 

292 

293 

29^; 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306  000532 

012701  000020 

307  000536 

112005 

308  0005A0 

110522 

309  000542 

112022 

310 

311  000544 

022705  000002 

312  000550 

103416 

:'5  000552 

005305 

314  000554 

100414 

5^5  000556 

001406 

315 

317  000560 

112022 

318  000562 

112022 

319  000564 

112022 

320  000566 

112022 

321  000570 

012701  000014 

322 

323  000574 

020110 

324  000576 

103403 

325  000600 

012001 

326  000602 

327 

328  000606 

.SBTTL  Build  process/task  descriptor 
y 
•*-BLDDSC-Build  process/task  descriptor 

Build  a  descriptor  for  the  source/destination  process/task  in  the 
message  buffer. 

Inputs: 

RO  =  Address  of  descriptor 

R2  =  Pointer  to  next  available  byte  in  message  buffer 


Outputs: 


R2  =  Pointer  past  last  byte  used  in  message  buffer 
"C  Clear  -  Valid  descriptor  built 
C  Set   -  Format  error 


Registers  modified: 
RO,  R1,  R5 


BLDDSC 


10$: 


20$: 


MOV 

M0V8 

MOVS 

Move 

CMP 
BLO 
DEC 
BMI 
BEQ 

MOVB 
M0V8 
MOVB 
MOVB 
MOV 

CMP 
BLO 
MOV 
CALL 

RETURN 


#16.,R1 
(R0)+,R5 
R5,(R2)+ 
(R0)+,(R2)+ 

#NC.FM2,R5 

20$ 

R5 

20$ 

10$ 

(R0)+,(R2)t 
(R0)+,(R2)+ 
CR0)t,(R2)* 
(R0)+,(R2)t 
#12.,R1 

R1,(R0> 
20i 

(R0)+,R1 
MOVIMG 


Set  max  length  of  field 
Get  the  format  type  code 
and  plant  in  the  buffer 
Copy  object  type 

Is  the  format  type  valid? 

It  LO,  no  (C-bit  set) 

Check  for  format  type 

If  MI,  type  0  -  all  done 

If  EO,  type  1  -  just  copy  image  data 

Copy  gr^  jp  code 

oy  1   .  code 

Set  new  max  length  of  field 

Is  the  field  too  long? 
If  LO,  yes  (C-bit  set) 
Get  length  of  field  to  copy 
Copy  the  field 
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FS.SFS= 

FS.SPW= 

FS.STM= 

FS.STP= 

FS.STR= 

FS.TRM= 

FS.WLB^ 

FS.XKL= 

FS.XOF= 

FS.XON= 

FS.ZER= 

F$$LVL= 

GETLDB= 

GETSDB= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WR()= 

HOST  = 

IN.OAT= 

IN.ILS= 

I$$RAR= 

I$$RDN= 

I.TCB  = 

KISAR6= 

K$$CNT= 

KJ$CSR= 

K$$LDC= 

|<;$$TPS  = 

LA.ACK= 

LA.CRS= 

LA.MSK= 

LA.NAK= 

LA.NMS= 

LA.RES= 

LA.WND= 

LDBRT  = 

LDSLP  = 

LF.DRD= 

LF.FRC= 

LF.HFO= 

LF.HMF= 

LF.HSF= 

LF.1RD= 

LF.MMF= 

LF.MSF= 

LOCAL  = 

LS.DLS= 

LS.FCC= 

LS.FCO= 

LS.FC1= 

LS.1LS= 

LS.MA<= 

LS.MNK= 

LS.RES= 

LS.RSV= 

LT.rCA= 


GX 
GX 


OOAOOO 
040000 
000000 
002000 
001000 
003000 
001000 
002000 
010000 
007000 
002000 
000001 

♦♦**** 

000000 
000000 
000000 
******  GX 

000400 

000001 

000000 

000000 

******  GX 

******  GX 

177546 

177546 

000000 

000074 

100000 

020000 

170000 

110000 

010000 

040000 

004000 

******  GX 

000000 

000004 

000001 

000010 

000040 

000020 

000002 

000200 

000100 


100000 
000004 
000001 
000002 
100000 
000020 
000040 
000360 
000300 
000020 


GX 


LT.D1R= 

LT.LCL= 

LT.LPL= 

LT.NOT= 

LT.RSU= 

LT.SLI= 

LT.TDA= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$nR= 

L.CSTA 

L.CTR 

L.DCR 

L.FLAG 

L.ILSQ 

L.ILTT 

L.LDA 

L.LIA 

L.LLA 

L.LNG 

L.LNO 

L.LPT 

L.LSA 

L.LSFD 

L.LSFI 

L.LTT 

L.MASQ 

L.MAST 

L.MASZ 

L.NIN 

L.NXN 

L.NXTH 

L.OPD 

L.OPDL 

L.REM 

L.RFC 

L.RLA 

L.RNO 

L.RTQ 

L.RTYD 

L.RTYI 

L.SEC 

L.SEGZ 

L.STA 

L.TC 

L.TIC 

L.TIPD 


TIPI 
TMRD 
TMRI 
TYP 
USA 
_  USTA 
L.VER 
L.WIND 
MAPNAM 


000010 

000001 

000002 

000040 

000200 

000004 

000100 

000000 

000000 

000001 

000000 

000037 

000074 

000100 

000014 

000052 

000066 

000032 

000034 

000002 

000124 

000026 

000065 

000030 

000046 

000044 

000062 

000070 

000073 

000072 

000020 

000016 

000010 

000103 

000102 

000006 

000050 

000004 

000022 

000060 

000055 

000057 

000064 

000076 

000000 

000042 

000043 

000013 

000012 

000054 

000056 

000001 

000024 

000036 

000015 

000040 

000642RG 


MA. CI  = 

MA. DA  = 

MA.IL  = 

MC.CC  = 

MC.CI  = 

MC.DC  = 

MC.Dl  = 

MC.NO  = 

MC.RC  = 

MD.BM  = 

MD.EM  = 

MD.ILS= 

MD.IM  = 

MF.ACK= 

MF.CTL= 

MF.DAT= 

MOVING 

M$$CRB= 

H$$CRX= 

M$$FCS= 

M$$MGE= 

M$$MUP= 

M$$NET= 

M$$OVR= 

M.MAIL 

M.MAX 

M.MBL 

M.NAST 

M.NEXT 

M.RESP 

M.SPA 

M.7ASK 

M.USE 

NC.FM0= 

NC.FH1= 

NC.F|V|2= 

NE$AeM= 

NE$AB0= 

NE$ACC= 

NE$ACT= 

NE$COM= 

NE$FCF=: 

NE$FMT= 

NE$GjN= 

NE$IFC= 

NE$ILS= 

NE$]MG= 

NE$MLB= 

NE$NNF= 

NE$NOD= 

NE$NSD= 

NE$NSL= 

NE$NSR= 

NE$RES= 

NE$SSR= 

NE$SSS= 

NE$rCN= 


000040 

000000 

000020 

000040 

000020 

000100 

000060 

000000 

000140 

000040 

000100 

000040 

000020 

000004 

000010 

000000 

000624R 

000124 

000000 

000000 

000000 

000000 

000000 

000000 

000014 

000011 

000020 

000007 

000002 

000016 

000012 

000004 

000010 

000000 

000001 

000002 

000010 

000046 

000042 

000042 

000047 

000050 

000005 

000007 

000030 

000043 

000042 

000006 

000012 

000002 

000003 

000013 

000003 

000001 

000000 

000045 

000040 


NE$TCO= 

NE$TPA= 

NE$UOB= 

NF$BLK= 

NF$DMO= 

NF$MOU= 

NF$RST= 

NF$SCN= 

NF$SHU= 

NF$TIM= 

NM$ARA= 

NM$NOD= 

NO.DrR= 

NO.FAL= 

N0.FA1= 

NO.NCU= 

NO.RTL= 

NO.TAS= 

N0.7CL= 

N0.TC1= 

NO.TLK= 

NS$DON= 

NS$SDI= 

NS$WDC= 

NT$AKD= 

NT$AKI= 

NT$CC  = 

NT$CON= 

NT$CTL= 

NT$DAT= 

NT$DC  = 

NT$DIS= 

NT$DLS= 

NT$]LS= 

NT$1MS= 

NT$INT= 

NT$RET= 

NT$ROU= 

Nr$RTR= 

NT$TSP= 

NT.ABO= 

NT.ABT= 

NT.CON= 

NT.DSC= 

NT.EVT= 

MT.INT= 

NT.MOP= 

NT.NSP= 

NT.VFY= 

N$ACQ 

NSACTL 

N$C1R 

N$OLA 

N$DLY 

NSELEN 

N$ENC 

NSERRC 


000006 
000010 
000004 
000100 
000010 
000040 
000002 
000020 
000004 
000200 
176000 
001777 
000077 
000021 
000001 
000023 
000022 
000000 
000017 
000005 
000020 
000000 
000002 
000004 
000020 
000022 
000016 
000000 
000000 
000002 
000012 
000014 
000006 
000010 
000002 
000004 
000032 
000024 
000030 
000026 
000005 
000004 
000001 
000003 
000006 
000002 
000010 
000010 
000007 
000000 
000032 
000034 
000020 
000014 
000054 
000042 
000022 


N$FLG 

N$FNC 

N$GENQ 

N$GTM 

NSHIGH 

N$LLT 

N$LLTM 

N$LVC 

NSHBXO 

NSPLLT 

N$SLA 

NSSNOD 

NSTIM 

N$VCB 

N$$ACC= 

N$$ACK= 

N$$EVL= 

N$$HDR= 

N$$LDV= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$OVR= 

N$$PEM= 

N$$SES= 

N.RAC 

N.RACC 

N.RDE 

N.RDEC 

N.RFM 

N.RGP 

N.RID 

N.RIDC 

N.RND 

N.RNM 

N.RNMC 

N.ROT 

N.RPS 

N.RPSC 

N.RQL  = 

N.RUS 

P$$P45= 

P$$WRD= 

Q$$OPT= 

REMLNK= 

RF.LOO= 

RTRSES= 

R$$DER= 

R$$K11= 

R$$5ND= 

R$$11M= 

R$$11S= 

R.ADD 

R.FLAG 

R.LEN 

R.LNK 

R.NAM 


000005 
000006 
000052 
000015 
000033 
000026 
000024 
000036 
000050 
000030 
000016 
000012 
000004 
000010 
000001 
000011 
000001 
000007 
000001 
000001 
000010 
000001 
000022 
000001 
000001 
000070 
000066 
000012 
000010 
000006 
000010 
000O34 
000u32 
000000 
000016 
000014 
000007 
000056 
000U54 

ooono 

000012 

000000 

000000 

000010 

******  GX 

100000 

******  GX 

000000 

000001 

000000 

000000 

000000 

000010 

000012 

000014 

000000 

000002 
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.S8TTL  Process  dispatch  table 

**-$DLXT8-Process  dispatch  table 


60 

61 

62 

6^ 

64 

6') 

66 

6/ 

000000 

00000 r 

6« 

000002 

000005' 

6V 

000004 

000005' 

m 

000006 

OOOC22' 

,'1 

000010 

000232' 

/? 

000012 

000352' 

I", 

OOOOU 

000444' 

fi, 

000016 

000017' 

7b 

000020 

000706' 

This  dispatch  table  provides  the  interface  between  the  COMM/EXEC  and 
the  DLX  process. 

Transmit  enable  (not  supported) 

Receive  enable  (not  supported) 

Kill  enable  (not  supported) 

Control  enable 

Timeout 

Transmit  complete 

Receive  complete 

Kill  complete  (not  supported) 

Control  complete 


DLXTB:  :.U0RD 

.+1 

.WORD 

.  +  1 

.WORD 

.+1 

.WORD 

CTLEN 

.WORD 

TMOUT 

.WORD 

XMTCP 

.WORD 

RCVCP 

.WORD 

.+1 

.WORD 

CTLCP 
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A81 
482 
483 
484 
485 
486 
487 
488 
48" 
490 
491 
492 

493  001162 

494  001166 

495  001172 
496 

497  001174 

498  001176 

499  001202 

500  001206 
501 

502  001210 

503  001214 

504  001216 

505  001224 

506  001226 

507  001232 
508 

509 
510 
511 
512 
513 


.SBTTL  Stop  complete  processing 
**-ST0PC-Stop  complete  processing 


This  routine  is  called  when  a  stop  requested  is  completed  by  the  DLC 
layer. 


Inputs: 
R1 


005765 
001076 

111500 
112715 
132700 
001056 

016503 
001415 
122763 
OOIOH 
016302 
005372 


000002 


000001 
000020 


000014 

000007 

OOOOOOG 
OOOOOOG 


STOPC:: 


000001 G 


514 

515 

516 

517 

518 

519  001236 

005073 

OOOOOOG 

520  001242 

005065 

000022 

521  001246 

000403 

522 

523  001250 

C05065 

000022 

524  001254 

000416 

525 

526  001256 

032715 

002000 

527  001262 

001005 

528  001264 

132763 

000200  OOOOOOG 

529  001272 

100005 

530  001274 

001002 

531  001276 

532 

533  001302 

005065 

000022 

534  001306 

535 

536  001312 

016504 

000012 

537  001316 

001412 

Completion  status 
R2  =  Error  offset  for  characteristics  functions 
R5  =  Address  of  physical  link  access  block 


CALL 

Tsr 

BNE 

MOVB 
MOVB 
BIT8 
BNE 

MOV 

BEQ 

CflPB 

BNE 

MOV 

DEC 


10$: 

MOV 
TST 
BNE 
MAP 

.END 

CLR 
CLR 
BR 

20$: 

CLR 
BR 

30$: 
40$: 

BIT 

BNE 

8IT8 

BPL 

BNE 

CALL 

50$: 
60$: 

CLR 
CALL 

70$: 

MOV 
BEQ 

XMTA8 

L$RSR(R5) 

100$ 

(R5),R0 
#LS$IDL,(R5) 
#LS$RST,RO 
80$ 

L$FNC(R5),R3 

20$ 

#7.I.FCN+1(R3) 

30§ 

I.UCB(R3),R2 

aU.VCB(R2) 


.IF  DF  R$$MPL 


I.TCB(R3),R2 

T.PC6(R2),R2 

P.HDR(R2) 

10$ 

P.REL(R2) 


Abort  any  pending  transmits 

Are  all  functions  and  transmits  complete? 

If  NE,  no 

Get  current  physical  link  state 

and  reset  it  to  idle 
Should  we  restart  the  link? 
If  NE,  yes 

Get  pending  control  I/O  packet 

If  EQ,  none 

Is  this  a  close  LUN  request? 

If  NE,  no 

Decrement  the  volume  use  count 


Get  task's  TCB  address 

then  PCB  address  for  task's  window  0 
Is  the  header  in  primary  pool? 
If  NE,  yes 
Map  to  the  task  header 


ai.LN2(R3) 

L$TC8(R5) 

30$ 

L$rC8(R5) 
70$ 

#LF$BR0,(R5) 

40$  ; 

#LR$DEA,I.FCN(R3) 

60$ 

50$ 

DSLIN 

L$TC8(R5) 
CTLDN 

L$CTL(R5),R4 
80$ 


Deaccess  the  link 
Mark  the  link  inactive 
and  enter  common  code 

Mark  the  link  inactive 
Enter  common  code 

Broadcast  channels  should  always 
be  deassigned 

If  PL,  no  deassign  -  leave  link  active 
If  NE,  no  deassign  -  set  link  inactive 
Deassign  the  physical  link 

Mark  link  access  block  free 
Complete  the  I/O  request 

Is  there  a  pending  control  CCB? 
If  EQ,  no 


K  4 

DLXCEX  -  DLX/CEX  interface  rout  MACRO  V05.03b  Friday  28-Jun-85  22:53  Page  19-1 


J  5 

DLXCHR  -  DLX  AuxiUiar);  charact  MACRO  V05.03b  Friday  28-Jun-85  22:53  Page  5 
Process  receive  auxilliary  characteristics 


52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 

n 

78  000000 
79 

80  000004 

81  000010 

82  000012 

83  000016 

84  000020 

85  000022 

86  000026 

87  000030 

88  000034 
89 

90  000040 

91  000044 

92  000050 

93  000054 

94  000060 

95  000062 
96 

97 
98 
99 

100  000064 

101  000066 

102  000070 
103 


016300 

012701 
011002 
162702 
002410 
006302 
020227 
103004 
005060 


010160 
066000 
062700 
020063 
103751 


00001 OG 

000002 

000100 

000006 
000004 


000006 
000002 
000010 
000014G 


.SBTTL  Process  receive  auxilliary  characteristics 
**-RCVCHR-Process  receive  auxilliary  characteristics 


Process  the  characteristics  present  in  the  auxilliary  characteristics 
buffer  on  the  receive  request. 


Inputs: 
R3 


R4 


000072' 
000146" 
000206' 
000006 


=  Address  of  the  I/O  packet 

I.PRM+6  -  Bias  of  the  characteristics  buffer 

I.PRM+10-  Virtual  address  of  the  characteristics  buffer 

I.PRM+12-  Length  of  the  characteristics  buffer 

I.PRMt14-  Virtual  address  of  byte  past  end  of  characteristics  buffer 
The  characteristics  buffer  is  mapped. 
=  Address  of  the  receive  CCB 

C.8UF   -  Bias  of  received  message 

C.8Uf+2  -  Virtual  address  of  received  message 

C.CNT   -  Length  of  received  message 

C.NSP   -  Virtual  address  of  Ethernet  header 

C.PRO   -  Protocol  type  from  message 

C.ADD   -  Source  address  from  Ethernet  message 
R5  =  Address  of  the  physical  link  access  block 

Registers  modified: 
RO,  R1,  R2 

RCVCHR:  :l*IOV     I  .PRM+10(R3)  ,R0  ;  Point  to  start  of  characteristics  buffer 

10$:    MOV    #CS.IGN,R1     ;  Assume  characteristic  will  be  ignored 

Get  next  characteristics  type  code 
Normalise  for  DLX  functions 
If  LT,  not  one  of  our  characteristics 
Form  word  offset 
In  range? 
If  HIS,  no 

Assume  no  data  available 
Dispatch  to  processing  routine 

20$:    MOV     R1,C.STAT(R0)   ;  Return  status  of  this  characteristic 

Point  to  next  characteristic 

Are  we  done  yet? 
If  LO,  no 


Receive  characteristics  dispatch  table 
RCVT8L 


MOV 

#CS.IGN,R1 

MOV 

(R0),R2 

SUB 

#CC.ADR,R2 

BLT 

20$ 

ASL 

R2 

CMP 

R2,#RCMAX 

BHIS 

20i 

CLR 

C.DATO(RO) 

CALL 

aRCVTBL(R2) 

MOV 

R1,C.STAT(R0) 

ADD 

C.DATI(RO),R0 

ADD 

#C.CHRL,RO 

CMP 

R0,I.PRM+14(R3)  , 

8L0 

loi 

RETURN 

.WORD   RCVADR 
.WORD   RCVPRO 
.WORD   RCVDAD 
RCMA.X   =.-RCVT8L 


Retrieve  Ethernet  address 

Retrieve  Ethernet  protocol 

Retrieve  destination  Ethernet  address 
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1 

2 

3 

A 

5 

6 

7 

8 

9 

10 

11 

12 

15 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 


.TITLE  DLXCTL  -  DLX  control  010  function  processing 
.IDENT  /V05.00/ 
.ENABL  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  above  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  By  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

DLX  control  QIO  function  processing 

Distributed  Systems  Software  Engineering 

Ident  history: 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
OECnet-Micro/RSX  VI. 0 
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DLXCTL  -  DLX  control  010  fundi  MACRO 
Set  owner  for  <Line-id> 


375 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
38A 
385 
586 
387 
388 
389 
390 
391 
392 
393 
394 
395 
596 
397 
398 
399 
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.SBTTL  Set  owner  for  <Line-id> 

**-CTLOWN-Set  owner  for  <Line-id> 

Set  up  the  owner  fieLd  of  the  network  management  word  for  the 
<Line-id>  to  the  specified  process. 

Inputs: 

R1  =  Address  of  system  tine  table 
R3  =  Address  of  I/O  packet 

I.PRM+6  -  RAD50  name  of  the  owner  LLC 


000604  016302  000006G 

000610  001405 

000612 

000616  012700  OOOOOOC 

000622  103666 

000624  110246 

000626  016702  00001 OG 

000632 

000636  112665  000001 

000642 


Registers  modified: 
RO,  R1,  R2,  R3, 


R4,  R5 


CTLOUN: 


10$: 


MOV 
BEQ 

CALL 

MOV 

BCS 

MOVB 

MOV 

CALL 

MOVB 

CALLR 


I.PRM+6(R3),R2 
10$ 

FNDPR 

*IE.MOD&377,R0 

CTLERR 

R2,-(SP) 
$PBLK+T$SLN,R2 
STNMST 
(SP)+,1(R5) 

issue 


Get  the  target  procr  s  name 
Zero  means  none 

Find  the  procer  ,-'DV  index 

Assume  it  does  ot  exist  in  the  system 

If  CS,  report  tl.>  error 

Save  PDV  index  for  jter 

Get  SLN  and  logical  tributary  # 

Compute  address  of  network  management  byte 

Set  up  tine  owner 

Complete  the  request  successfully 
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SYMBOL  CROSS  REFERENCE 
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PAGE  4 

CREF   OA.OO 


SYMBOL  VALUE 


ZF.DIA 

ZF.DLC 

ZF.DVP 

ZF.INI 

ZF.KMX 

ZF.LLC 

ZF.LMC 

ZF.MAN 

ZF.MFL 

ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSY 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

SDLXPD 

SPBL< 


=  004000 
=  000002 
=  100000 
=  040000 
=  000020 
=  000004 
=  000100 
=  020000 
=  000010 
=  000400 
=  000040 
=  002000 
=  010000 
=  000200 
=  000000 
=  100000 
=  140000 

000014 

000016 

000000 

000010 
=  000016 

000006 

000020 

000004 

000012 

000007 
=  ««»»*.  GX 
=  ♦»«***   GX 


REFERENCES 

#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 

18-467 

10-165 

13-316 


20-540 
11-235 


5-50 


10-173 
14-334 


11-198 
15-359 


11-227 
15-367 


11-236 
15-368 


11-237 
16-396 


11-241 
17-438 


13-298 


15-309 


DLXCTL 
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«*FILE"ID*«DLXL1N 


DDDDDDDD 

XX      XX 

IJIIIl 

NN      NN 

DDDDDDDD 

XX      XX 

iinii 

NN      NN 

DD      DD 

XX      XX 

1 

NN      NN 

DD      DD 

XX      XX 

I 

NN      NN 

DD      DD 

XX   XX 

II 

NNNN    NN 

DD      DD 

XX  XX 

II 

NNNN    NN 

DD      DD 

XX 

I 

NN  NN  NN 

DD      DD 

XX 

I 

NN  NN  NN 

DD      DD 

XX   XX 

I 

NN    NNNN 

DD      DD 

XX  XX 

II 

NN    NNNN 

DD      DD 

XX      XX 

II 

NN      NN 

DD      DD 

XX      XX 

II 

NN      NN 

DDDDDDDD 

LLLLLLLLLL 

XX      XX 

LLLLLLLLLL 

iiiiii 

NN      NN 

DDDDDDDD 

LLLLLLLLLL 

XX      XX 

LLLLLLLLLL 

iiiin 

NN      NN 

LL 

ssssssss 

TTTTT 

TTTTT 

LL 

ssssssss 

TTTTT 

TTTTT 

^L 

ss 

-L 

ss 

LL 

ss 

-L 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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OA.OO 


MACRO  NAME 

REFERENCES 

CALL 

6-69 

7-146 

CALLR 

7-180 

CCBDFS 

#5-47 

5-49 

MAP 

#5-46 

PDVDfS 

#5-47 

5-50 

PLADFS 

#5-47 

5-51 

RESRG 

#5-46 

RETURN 

6-77 

6-80 

SAVRG 

#5-46 

SLTDFS 

#5-47 

5-52 

SQDLC 

#5-46 

6-76 

7-149 


7-178 


7-166 


8-215 


7-173 


8-201 


8-211 


'FILE*MD««DLXQ10 
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OLXQIO 

-  ISSUE  1/0 

TO  DLX 

MACRO  V05.03b  Saturday  l 

Symbol 

table 

A$$CH<= 

000000 

LF$VR2= 

000010 

LS$NT1= 

A$$CPS= 

000000 

LF$ZER= 

000002 

LS$NTL= 

A$$PRI= 

000000 

LP$MPT= 

000010 

LS$NUM= 

A$$TRP= 

000000 

LP$MUX= 

000004 

LS$OWN= 

CS$CKP= 

000000 

LP$NXC= 

100000 

LS$PLT= 

C$$ORE= 

000400 

LP$TRB= 

000002 

LS$PRO= 

C$$RSH= 

17756A 

LP$UNT= 

000001 

LS$PVC= 

DEALUN= 

.*•«*»  GX 

LP$WCN= 

000040 

LS$RET= 

CLXERR 

000020R 

LP$WDV= 

000020 

LS$SER= 

DLXLUN 

000200RG 

LP$WLO= 

000360 

LS$STA= 

DLXMSG 

OOOOOAR 

LP$UTR= 

000200 

LS$SVC= 

DLXQIO 

000026RG 

LP$WUN= 

000100 

LS$TAD= 

DLXTXT 

000005R 

LS$ACT= 

000040 

LS$TH1= 

0$$BUG= 

1775U 

LS$BBT= 

010000 

LS$TH2= 

D$$ISK= 

000000 

LS$BLK= 

001000 

LS$TH3= 

D$$Ln  = 

000001 

LS$BSA= 

000001 

LS$XMT= 

D$$YNC= 

000000 

LS$BSD= 

000002 

L$ACT 

D$$YNM= 

000000 

LS$BSI= 

000004 

L$BBT 

E$$XPR= 

000000 

LS$CHN= 

000001 

L$BLK 

fMTLIN= 

*«»***  GX 

LS$CMB= 

000002 

L$BSA 

F$$LVL= 

000001 

LS$C0S= 

000004 

LSBSD 

G$$TPP= 

000000 

LS$CUS= 

000004 

L$BSI 

G$$TSS= 

000000 

LS$DDT= 

001000 

L$BUF 

G$$TTK= 

000000 

LS$DEA= 

000100 

LSCHN 

G$$WRD= 

000000 

LS$DLM= 

001004 

LSCMB 

G.LUCW= 

ooooo'; 

LS$DLT= 

002000 

LSCOS 

G.LUFB= 

000003 

LS$DTE= 

000010 

LSCTB 

G.LUNA= 

000000 

LS$HBT= 

000400 

LSCTL 

G.LUNU= 

000002 

LS$HTM= 

010000 

LSCUS 

IE.UPN= 

«.*«♦«  GX 

LS$INA= 

000010 

L$DDM 

lOSB 

OOOOOOR 

LS$IND= 

000020 

L$DDT 

I$$RAR= 

000000 

LS$1N]= 

000040 

LSDEA 

I$$RDN= 

000000 

LS$LCT= 

020000 

L$DLT 

K$$CNT= 

1775A6 

LS$LMB= 

000002 

LSDTE 

K$$CSR= 

1775A6 

LS$L00= 

040000 

LSDIEL 

K$$LDC= 

000000 

LS$MDT= 

020000 

L$D7EP 

K$$TPS= 

00007A 

LS$MRT= 

000020 

L$FLG 

LC$NTL= 

000200 

LS$MWN= 

000040 

L$FLX 

LC$OWN= 

000400 

LS$MXB= 

001000 

L$FL1 

LD$LP  = 

000000 

LS$MXR= 

000020 

L$FL2 

LF$MLr= 

040000 

LS$MXW= 

000040 

L$HBT 

LF$REA= 

000001 

LS$NMT= 

020000 

L$HTM 

LF$SEG= 

100000 

LS$NOR= 

100000 

LSINA 

LF$SKP= 

000004 

J  11 


Page  9-1 


.  ABS.   000264 
000266 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 


■*»  Assembler  statistics 


i./ork  tile  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  13960  Words   (  55  Pages) 

Size  of  core  pool:  15496  Words   (  59  Pages) 

Operating  system:  RSX-11M/PLUS 


000200 

LSIND 

000126 

L$TRB 

000040 

000001 

L$INI 

000127 

L$TYP 

000063 

000100 

L$LCT 

000224 

L$UNT 

000003 

000010 

L$LEN 

000264 

L$XCH 

000232 

004000 

L$LMB 

000234 

LSXMT 

000120 

010000 

LILTM 

000230 

L$$ASG= 

000000 

020053 

L$MRT 

000253 

L$$DRV= 

000000 

000200 

LSMSG 

000056 

L$$P11= 

000001 

100000 

LSMTYP 

000075 

L$$11R= 

000000 

000002 

L$MWN 

000252 

H$$CRB= 

000124 

000362 

L$MXB 

000133 

M$$CRX= 

000000 

000020 

LSMXR 

000253 

M$$FCS^ 

000000 

000100 

L$MXW 

000252 

M$$HGE= 

000000 

000200 

LSNAM 

000000 

M$$NET= 

000000 

000400 

L$NLEN= 

000020 

M$$OVR= 

000000 

040000 

L$NHT 

000116 

N$$ACC= 

000001 

000104 

L$NTI 

000256 

N$$BUF=: 

000001 

000114 

L$NTL 

000134 

N$$LDV= 

000001 

000262 

L$NUM 

000240 

N$$MCP= 

000001 

000122 

LSNUML 

000236 

N$$HLL= 

000001 

000123 

LSNXT 

000044 

N$$MOV= 

000010 

000124 

L$OPT 

000062 

N$$NCT= 

000001 

000060 

LSOUN 

000102 

N$$PEM= 

000001 

000054 

L$PAR 

000072 

P$$P45= 

000000 

000234 

LSPDV 

000055 

P$$WRD= 

000000 

000101 

LSPFG 

000041 

Q$$OPT= 

000010 

000053 

LSPLT 

000112 

R$$DER= 

000000 

000002 

LSPRO 

000075 

R$$Kn  = 

000001 

000260 

L$PVC 

000004 

R$$SND= 

000000 

000000 

L$RET 

000256 

R$$11M= 

000000 

000106 

L$SCN 

000020 

S$$WRG= 

000000 

000105 

LSSCR 

000166 

S$$YSZ= 

007600 

ooono 

LSSER 

000230 

T$$KMG= 

000000 

000240 

L$SLEN 

000074 

T$$MIN= 

000000 

000236 

L$SLT 

000042 

V$$CTR= 

001000 

000250 

L$SNH 

000046 

X$$DBT= 

000000 

000064 

L$STA 

000  00 

$CBDSG= 

******  GX 

000076 

LSTAD 

000  03 

$DSW  = 

»««»**  GX 

000066 

L$TH1 

000130 

$SAVAL= 

******  GX 

000070 

L$TH2 

000131 

$TMEFN= 

******  GX 

000254 

L$TH3 

000132 

$TMLUN= 

******  GX 

000226 

L$TNM 

000052 

$$$ARG= 

000002 

000125 

LSTPT 

000050 

$$$OST= 

000014 
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115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 

140  000104 

141  000110 
142 

143  000112 
1',4  000116 

145  000122 

146  000126 
147 


016300 
001007 

005063 
005063 
005063 


000006G 


000010G 
000012G 
000014G 


.SBTTL  Validate  optional  characteristics  buffer  and  relocate  address 

**-8UFCHK-Validate  optional  characteristics  buffer  and  relocate  address 

Check  the  optional  characteristics  buffer  supplied  on  transmit  and 
receive  functions  and  relocate  the  address. 

Inputs: 

R3  =  Address  of  I/O  packet  .   ,   ^  ^^ 

I.PfiM+6  -  Virtual  address  of  optional  characteristics  buffer 
I.PRMtIO-  Length  of  optional  cnaracteristics  buffer 

Outputs: 

RO  =  Error  code  if  buffer  is  invalid 

R3  =  Address  of  I/O  packet 

I.PfiM+6  -  Bias  of  optional  characteristics  buffer 

I.PRMtIO-  Virtual  address  of  optional  characteristics  buffer 

I.PRM+12-  Length  of  optional  characteristics  buffer 

I.PRM+14-  Virtual  address  of  byte  past  end  of  characteristics  buffer 

'C  Clear  -  Buffer  is  valid  or  not  supplied 

'C  Set   -  Buffer  is  invalid 


Registers  modified: 
RO,  R1,  R2 


148  000130 

016301 

00001 OG 

149  000134 

001427 

•50  000136 

020127 

017700 

•51  000142 

103024 

152 

153  000144 

010163 

00001 2G 

154  000150 

010163 

000014G 

155  000154 

156  000160 

103415 

157  000162 

158  000166 

010163 

000006G 

159  000172 

010263 

00001 OG 

160  000176 

060263 

000014G 

161  000202 

012700 

000006G 

162  000206 

163  000212 

103003 

164 

165  000214 

012700 

OOOOOOC 

166  000220 

000261 

167  000222 

BUFCHK. 

:M0V 

I.PRMt6(R3),R0 

BNE 

10$ 

CLR 

.PfiMt10(R3) 

CLR 

.PRMt12(R3) 

CLR 

I.PRM+14(R3) 

RETURN 

10$: 

MOV 

I.PRM+10(R3),R1 

BEQ 

20$ 

CMP 

R1, #8192. -64. 

BHIS 

20i 

MOV 

R1,I.PRMt12(R3) 

MOV 

R1,I.PRM+14(R3) 

CALL 

aACHCK 

BCS 

20$ 

CALL 

aRELOC 

MOV 

R1,I.PRM+6(R3) 

MOV 

R2,I.PRM+10(R3) 

ADD 

R2,I.PRM+14(R3) 

MOV 

#I.PRM+6,R0 

CALL 

CHKCHR 

BCC 

30$ 

20$: 

MOV 
SEC 

*IE.SPC&377,R0 

50$: 

RETURN 

Get  address  of  optional  buffer 
If  NE,  present 

Clear  remainder  of 
buffer  descriptor 


Get  buffer  length 
If  EQ,  illegal 
Is  it  too  large? 
If  HIS,  yes 

Return  byte  count  to  I/O  packet 
and  for  end  of  buffer  address 

Address  check  the  buffer 

If  CS,  illegal  buffer 

Relocate  buffer  address 

Store  bias  of  optional  buffer 
and  it's  virtual  address 

Compute  address  of  end  of  the  buffer 

Set  offset  to  characteristics  buffer 

Check  buffer  format 

if  CC,  buffer  format  is  valid 

Set  up  illegal  buffer  error  code 
Indicate  failure 


Hi  K    Qiihrniif  inpc; 
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DLXSUB  -  DLX  subroutines       MACRO  V05.03b  Friday  28-Jun-85  ?2:56  Page  17-1 
find  tree  channel  in  process  mapping  table 


698  001500 

699  001502 


90$: 


RESRG 
RETURN! 


<R5> 


Restore  register 


ni  v<;iin  -   ni  v 


ihrni  ir  1  noc 
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ACHCK  = 

ASSIGN 

A$$CHK= 

A$$CPS= 

A$$PR1= 

At$TRP= 

BLXIO  = 

BUFCHK 

CATS 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CC.ADR= 

CC.DAD= 

CC.DPA= 

CC.DST= 

CC.ECM= 

CC.ECS= 

CC.ELS= 

CC.EMC= 

CC.EPH= 

CC.EPR= 

CC.LCR= 

CC.LDM= 

CC.LLC= 

CC.LSA= 

CC.MCT= 

CC.NET= 

CC.PDC= 

CC.PRO= 

CC.SAD= 

CC.S1D= 

CC.SPL= 

CC.STM= 

CDTB 

CEMUL  = 

CE.ABO= 

CE.ACN= 

CE.DAO= 

CE.DIS= 

CE.DNF= 

CE.ERR= 

CE.ILC= 


.  INV= 
.  IUM= 


CE.LTO= 
CE.MCE= 
CE.MOP= 
CE.NMA= 
CE.NTE= 
CE.PCN= 
CE.RES= 


♦«*«»»  Gx 

OOOOOORG 

000000 

000000 

000000 

000000 

•*♦***  GX 

000104RG 

000224RG 

000002 

000040 

000020 

OOOOOA 

000010 

000100 

000001 

000100 

000102 

000302 

000200 

000311 

000310 

000304 

000300 

000303 

000301 

000004 

000306 

000200 

000307 

000201 

000000 

000006 

000101 

000010 

000305 

000002 

000312 

000346RG 

♦*»♦♦»  GX 

100362 

100012 

100346 

100366 

100005 

100370 

100006 

100350 

100002 

100013 

100356 

100007 

100372 

100014 

100361 

100011 

100010 


CE.RTE= 

CE.RTL= 

CE.RTS= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TM0= 

CE.UDF= 

CE.UNS= 

CF.CHN= 

CF.E0M= 

CF.HDR= 

CF.LB  = 

CF.L1N= 

CF.SOM= 

CF.SYN= 

CF.TRN= 

CHKCHR 

CLACT 

CM.CIR= 

CM.DM1= 

CM.DM2= 

CM.DM3= 

CM.FMT= 

CM.HRD= 

CM.LIN= 

CM.LOO= 

CM.L01= 

CM.LD2= 

CM.L03= 

CM.LT1= 

CM.LT2= 

CM.LT3= 

CM.RC1= 

CM.RC2= 

CM.RC3= 

CM.XLO= 

COASN 

CP.CON= 

CP.DCF= 

CP.DUM= 

CP.HDL= 

CP.LAT= 

CP.LOO= 

CP.PS  = 

CP.PS1= 

CP.ROU= 

CP.XCF= 

CP.2FR= 

CS.ABO= 

C5.BR0= 

CS.BUF= 

CS.CES= 

CS.CHN= 

CS.CMP= 

CS.DAO= 

CS.DCR= 


100376 

100003 

100004 

100364 

100352 

100354 

100374 

100001 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

000434RG 

000610RG 

000002 

000253 

000400 

000000 

100000 

000002 

000000 

000001 

000317 

000000 

000000 

oooon 

000053 

007400 

000253 

001000 

000000 

000004 

000526RG 

001140 

000040 

000540 

000007 

002140 

000220 

177400 

000200 

001540 

000100 

000030 

000100 

000002 

000200 

000002 

000010 

000200 

000003 

000400 


CS.DEF= 

000004 

CS.DEV= 

000002 

CS.DIS= 

000040 

CS.ENA= 

000001 

CS.ENB= 

000020 

CS.ERR= 

100000 

CS.FTL= 

001000 

CS.HCR= 

000001 

CS.HFE= 

002000 

CS.IGN= 

000002 

CS.LST= 

040000 

CS.MTL= 

004000 

CS.RNG= 

000010 

CS.ROV= 

000004 

CS.RSN= 

010000 

CS.SHU= 

000001 

CS.SJD= 

000002 

CS.STR:= 

000004 

CS.SUC= 

000001 

CS.TMO= 

020000 

CS.XUR= 

000004 

CVTSL 

000340R 

C$$CKP= 

000000 

C$$ORE= 

000400 

C$$RSH= 

177564 

C.ADD 

000034 

c.aiD 

000003 

C.BUF 

000014 

C.BUFl 

000014 

C.BUF2 

000024 

C.CHRL 

000010 

C.CNT 

000020 

C.CNT1 

000020 

C.CNT2 

000030 

C.DATI 

000002 

C.DATO 

000004 

C.FLG 

000022 

C.FLG1 

000022 

C.FLG2 

000032 

C.FNC 

000010 

C.LIN 

000006 

C.LNK 

000000 

C.MOD 

000011 

C.NSP 

000004 

C.PRO 

000042 

C.RSV 

000002 

C.STA 

000007 

C.STAT 

000006 

C.STS 

000012 

C.TYP 

000000 

C.URM 

177776 

C.XACP 

000004 

C.XID 

000035 

C.XLEN 

000044 

C.XPLI 

000040 

C.XPT 

000034 

C.XSVC 

000042 

C.XTC 

C.X25 

DEASSN 

DSLIN 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$yNM= 

D.BIAS 

D.SIZE 

E$$XPR= 

FC.CCP= 

FC.CTL= 

FC.KCP= 

FC.KIL= 

FC.MAN= 

FC.MLD= 

FC.PCT= 

FC.PWR= 

FC.RCE= 

FC.RCP= 

FC.TIM= 

FC.XCP= 

FC.XME= 

FILCHN 

FINDC 

FINDL 

FNDBR 

FNDFR 

FNDLA 

FNDLN 

FNDPR 

FS.AST= 

FS.CIB= 

FS.CRA= 

FS.DIS= 

FS.DVC= 

FS.ENB= 

FS.EXI= 

FS.GET= 

FS.HLT= 

FS.1NI= 

FS.KIL= 

FS.LCL= 

FS.LTM= 

FS.MNT= 

FS.MSN= 

FS.REA= 

FS.RET= 

FS.REZ= 

FS.RLB= 

FS.RNG= 

FS.RST= 

FS.RTN= 

FS.SET= 

FS.SFC= 


000037 

000036 

000576RG 

000716RG 

177514 

000000 

000001 

000000 

000000 

000000 

000004 

000000 

000020 

000006 

000016 

000004 

000024 

000026 

000030 

000022 

000002 

000014 

000010 

000012 

000000 

000726RG 

001246RG 

001262RG 

001142RG 

001350RG 

001504RG 

002026RG 

002254RG 

000000 

002000 

001000 

013000 

001000 

012000 

001000 

006000 

000000 

cooooo 

000000 
100000 
001000 
004000 
014000 
001000 
000000 
003000 
002000 
011000 
000000 
001000 
005000 
005000 


FS.SFR= 

FS.SFS= 

FS.SPW= 

FS.STM= 

FS.STP= 

FS.STR= 

FS.TRM= 

FS.WL8= 

FS.XKL= 

FS.XOF= 

FS.XON= 

FS.ZER= 

F$$LVL= 

GTSLN 

G$$TPP= 

G$$TSS= 

GSSTTK:: 

G$$WRD= 

IE.MOD= 

IE.NOD= 

IE.NSF= 

IE.PRI= 

IE.RSU= 

1E.SPC= 

I$$RAR= 

]$$RDN= 

I.PRM  = 

I.TCB  = 

KISAR6= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LDBGT  = 

LD$LP  = 

LF$BRO= 

LF$CHN= 

LF$ENB= 

LF$HOP= 

LF$RSR= 

LF.ACT= 

LF.BR0= 

LF.BWT= 

LF.ENA= 

LF.LPB= 

LF.MDC= 

LF.MFL= 

LF.MTP= 

LF.PAC= 

LF.RDY= 

Lf .REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LLCTA  = 

LN.CL0= 


****** 


006000 

004000 

040000 

000000 

002000 

001000 

003000 

001000 

002000 

010000 

007000 

002000 

000001 

002320RG 

000000 

000000 

000000 

000000 

******  GX 

******  GX 
GX 
GX 
GX 
GX 

000000 

000000 

******  GX 

******  GX 

******  GX 

177546 

177546 

000000 

000074 

******  GX 

000000 

002000 

004000 

000400 

001000 

100000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

******  GX 

000000 


MAfDn     ilD'i     nXh     PrlHau     PS' 


K  U 

liin-RS    ?P:S^      Panp    ?7-? 


JJ5 


EVL   -  EVENT   LOGGER   PROCESS  MACRO  V05.03b  Friday  28-Jun-85   22:58 
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75 

76 

77  000000 

78  000002 

79  000004 

80  000006 

81  000010 


.SBTTL  DISPATCH  TABLE  FOR  COMM/EXEC  ENTRV 


000042' 
000003' 
000005' 
000007' 
000A26' 


SEVLTB: 

-.WORD 

NELOG 

LOG  NETWORK  EVENT 

.WORD 

.tl 

TRANSMIT  ENABLE  (ILLEGAL) 

.WORD 

.*^ 

KILL  ENABLE  (ILLEGAL) 

.WORD 

.ti 

CONTROL  ENABLE  (ILLEGAL) 

.WORD 

NETIME 

TIMEOUT 

K   15 

ac      TT  .  CO 
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FS.RNG= 

FS.RST= 

FS.RTN: 

FS.SET= 

FS.SFC= 

FS.SFR  = 

FS.SFS  = 

FS.5PW= 

FS.STM= 

FS.STP= 

FS.STR= 

FS.TRM= 

FS.WLB= 

FS.XKL= 

FS.XOF= 

FS.XON= 

FS.ZER= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

HF$DLM= 

HF$GWY= 

HF$HOS= 

HF$XDF= 

H$CUG 

HSDST 

H$D29 

HSFLG 

HSGLEN 

HSGLT 

HSGNAM 


011000 
000000 
001000 
005000 
005000 
006000 
004000 
040000 
000000 
002000 
001000 
003000 
001000 
002000 
010000 
007000 
002000 
000001 
000000 
000000 
000000 
000000 
000002 
000010 
000004 
000020 
000010 
000012 
00001 4 
000000 
000104 
000044 
000050 


K1SAR6= 

KSAR6 

K$$CNT= 

K$$CSR= 

K$$LOC= 

K$$TPS= 

LD$LP  = 

LF.ACT= 

LF.BRO= 

LF.BUT= 

LF.ENA= 

LF.LPB= 

LF.MDC= 

LF.MFL= 

LF.MTP= 

LF.PAC= 

LF.RDY= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LGDDB 

LGPDV 

LGSTT 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP^ 


♦•«»*»  GX 

000020R 

177546 

177546 

000000 

000074 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000022R 

000024R 

000026R 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 


H$GNML= 

000020 

LN.0PE= 

000001 

HSGPT 

000046 

LN.REF= 

000002 

HSHITS 

000034 

LN.SER= 

000002 

HSHLEN 

000044 

LN.STA= 

000017 

H$LBDA 

000070 

LN.SU8= 

000360 

HSLBDN 

000072 

LN.TR1= 

000006 

HSLDTE 

000002 

L$$ASG= 

000000 

H$LEN 

000042 

L$$DRV= 

000000 

HSLOTS 

000052 

L$$P11= 

000001 

HSNETW 

000024 

L$$11R= 

000000 

HSNML  = 

000006 

L.COST 

000015 

HSNPT 

000022 

L.CTL 

000012 

H$PTB 

000020 

L.CVA 

177776 

H$PVC 

000006 

L.DDM 

000002 

HSRDTE 

000004 

L.DDS 

000004 

HSRNW 

000042 

L.DLC 

000003 

HSSVC 

000036 

L.DLM 

000006 

H$TRB 

000016 

L.DLS 

000010 

H$XAVL 

000100 

L.FLG 

000000 

HSXBIA 

000074 

L.KRBA 

000016 

H$X29C 

000040 

L.LEN  = 

000022 

IMFLG 

000530R 

L.MPF 

000022 

I$$RiR= 

OCOOOO 

L.NMST 

000020 

!$$RDN= 

000000 

L.NSTA 

000014 

L.OWNR 

L.UNT 

HAPCHN 

MAPORT 

HO$SAC= 

MO$SPR= 

MO$SSV= 

M0$25A= 

HO$25P= 

MOS25S= 

M0$29S= 

M$H1GH= 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$/«IGE  = 

M$$NET= 

M$$OVR= 

M$3100= 

M$3101= 

M$3102= 

M$3103= 

NELOG 

NETIME 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

0C$ACK= 

0P$INI= 

0P$TER= 

OSACHD 

OSCALO 

D$CLK 

OSCNTL 

OSLENG 

OSLINE 

OSTRHD 

OSWCT 

PDVID 

PDVTA 

PH$HDE= 

PH$LOC= 

PH$MTS= 

PH$UMP= 

PH$WCS= 

PR7   = 

PS 

PSIPT 

P$$P45= 

P$$WRD= 

QC$AC<= 

QC$ACT= 


000021 

000013 

000636R 

000702R 

000016 

000012 

000014 

000006 

000002 

000004 

000010 

000003 

000124 

000000 

000000 

000000 

000000 

000000 

000000 

000001 

000002 

000003 

000042R 

000426R 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000001 

000000 

000001 

000012 

000016 

000000 

000003 

000022 

000004 

000006 

000002 

000030R 

000032R 

000004 

000002 

000003 

000000 

000001 

******  GX 

******  GX 

000034R 

000000 

000000 

00C004 

000004 


QC$CIP= 

QC$ENB= 

QC$STP= 

QC$SVC= 

QF$EXT= 

QF$FAS= 

QF$NRS= 

QF$PKS= 

QF$RRS= 

QF$TPC= 

QF$USZ= 

QS$ACT= 

QS$APV= 

QS$CCO=: 

QS$CLC= 

QS$CLR= 

QS$CRQ= 

QS$CRV= 

QS$CUC= 

QS$DAT= 

QS$DPV= 

QS$RCO= 

QSSRSC^ 

QS$RSR= 

QS$RST= 

QS$RWC= 

QS$WAC= 

QS$WCA= 

QUEUE 

QSALNK 

Q$BUF2 

Q$CCB 

QSCCBQ 

QSCNTL 

Q$FLG 

QSLENG 

Q$LNK 

Q$PORT 

QSSBST 

Q$STE 

QfSTN 

QSTIMZ 

QSXABQ 

QSXPLI 

QSXWTO 

Q$$OPT= 

RE$ADC= 

RE$ADF= 

RE$ADR= 

RE$BLK= 

RE$CAF= 

RE$DAT= 

RE$DRP= 

RE$LDT= 

RE$LSN= 

RE$NML= 

RE$OPE= 


000001 

000001 

000002 

000002 

000377 

000001 

000144 

000102 

000300 

000002 

000103 

000016 

000002 

000030 

000022 

000026 

000004 

000020 

000024 

000000 

000032 

000012 

000004 

000002 

000010 

000006 

000014 

000000 

001132R 

000004 

000020 

000012 

000014 

000007 

000006 

000040 

000000 

000003 

000010 

000011 

000002 

000036 

000024 

000034 

000030 

000010 

000004 

000017 

000007 

000010 

000014 

000001 

000016 

000013 

000012 

000001 

000004 


RE$OPR= 

RE$RCV= 

RE$SED= 

RE$SKW= 

RE$STA= 

RE$SUH= 

RE$SYN= 

RE$TME= 

RE$TM0= 

RE$THR= 

RE$UPT= 

RE$URE= 

RE$VER= 

RE$VRQ= 

RT$INI= 

RT$0FF= 

RT$ON  = 

R$$OER= 

R$$K11= 

R$$SND= 

R$$11M= 

SC$0FF= 

SCSON  = 

SC$RST= 

SC$SHU= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC^ 

SF.UNL= 

SLTMA 

SV$DUM= 

SV$L0A= 

S$$WRG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OUNR 

TTNS 

T$$KMG= 

T$$MIN= 

V$$CTR= 

XA$NCO= 

XA$RR  = 

XA$UCL= 

XA$URE= 

XF$NCO= 

XF$OFF= 

XF$0R1= 

XF$OTI= 

XF$T1L= 


000000 

ooonoi 

000011 

000006 

000002 

000003 

000000 

000021 

000000 

000020 

000002 

000003 

000005 

000015 

000002 

000001 

000000 

000000 

000001 

000000 

000000 

000001 

000000 

000003 

000002 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

000036R 

000001 

000000 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

00001 2R 

000000 

000000 

001000 

000020 

000200 

000040 

000100 

000020 

000200 

000002 

000001 

000010 


K  16 

OC   -1-1  .  CO 


K  1 

SESUSR  -  Session  control  user  i  MACRO  VO5.03b  Friday  28-Jun-85  20:01  Page  12 
Bui  Id  image  mode  Held 


330 
331 
332 
333 
33A 
335 
336 
337 
338 
339 
3^0 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 

353  000610  012001 

354  000612  022301 

355  000614  103402 

356  000616 
357 

358  000622  000203 


.SBTTL  Build  image  mode  field 

**-BLDIMG-Build  image  mode  field 

Build  an  image  mode  field  in  the  message  buffer  after  checking  for 
valid  size. 

Calling  sequence: 
JSR 
.WORD 


P3,BLDIMG 

<Maximum  field  size> 


Inputs 


RO  =  Pointer  to  count  field  in  connect  block 

R2  =  Pointer  to  next  available  byte  in  message  buffer 

Outputs:  ,  ^^ 

R2  =  Pointer  past  last  byte  used  in  message  buffer 
'C  Clear  -  Valid  imege  field  built 
'C'  Set   -  Format  error 

Registers  modified: 
RO,  Ri 


BLDJMG:  MOV 
CMP 
BLO 
CALL 


10$: 


RIS 


(R0)+,R1 
(R3)+,R1 
10$ 
MOVIMG 

R3 


Get  length  of  the  field 
Is  the  field  too  large? 
If  LO,  yes  (C-bit  set) 
Move  image  field 


SESUSR  -  Session  control  user 
Move  imaqe  mode  field 
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Symbol  table 

TSNVR   000001  W.CIN:  000022 

TSRPRl  000040  W.CSND  000020 

T$SVC   000034  W.CTL   000000 

7$T5    000030  W.KAST  OOOOU 

T$T6    000032  W.LLT   000004 

T$$KMG=  000000  W.LUN   000003 

T$$MIN=  000000  W.MBOX  000012 

T.UCB  =  ******  GX  W.RCVQ  000024 

UISAR6=  ******  GX  W.SEGZ  000006 

USRINT  001346RG  U.SNDQ  000016 

US$CNF=  000002  W.STAT  000002 

US$DIS=  000006  W.TMP   000010 

US$DON=  000000  W.WBL   000026 

US$DSC=  000004  X$$D8T=  000000 

US$EAC=  000012  $ACCNT=  ****** 

US$WDS=  000010  $CALLX=  ****** 

VE.FAI=  Mim  $DSDFH=  ****** 

VS.NPV=  000001  $DSNOD=  ****** 

VS.PRV=  000002  $FLAGS=  ****** 

VZ.N\/D=  000000  $FLOW  =  ****** 

V$$CTR=  001000  $IOPKT=  ****** 

WK.ACK=  000001  $LTM  =  ****** 

WK.AST=  000200  $MAieX=  ****** 

WK.DIS=  000010  $PASSW=  ****** 

UK.INT=  000020  $REASN=  ****** 

UK.RCV=  000004  $REQID=  ****** 

WK.SND=  000002  $SRDFM=  ****** 

WS.DIP=  000010  $SRVCS=  ****** 

WS.INT=  000002  $$SHFT=  000001 

WS.KAS=  000004  .$$$$.=  000034 
US.STA^  000001 


SAVOPT= 

••***•  GX 

S$PSEG= 

000100 

SETREQ 

OOOOOOR 

SSREJ  = 

000004 

SNDACC 

000056RG 

SSSND  = 

000006 

SNDCON 

0001 70RG 

SSSNI  = 

000014 

SNDDIS 

001300RG 

SSTMDA= 

000002 

SNSESD= 

*♦**««  GX 

S$SWRG= 

000000 

STtCC  = 

000004 

S$SYSZ= 

007600 

ST$CIR= 

000006 

S.EABL= 

100200 

ST$CIS= 

000002 

S.EABM= 

100370 

ST$DAT= 

000010 

S.EABO= 

100367 

ST$DIP= 

000012 

S.EABS= 

100202 

ST$PNO= 

000014 

S.EACR= 

100336 

StABO  = 

000022 

S.ECBE= 

100204 

S$ACC  = 

000002 

S.EDB0= 

100206 

SSBUF  = 

000026 

S.EERR= 

100210 

SSCNR  = 

000000 

S.EIDM= 

100214 

SSCON  = 

000000 

S.EINF= 

100212 

SSDAT  = 

000002 

S.EIOF= 

100373 

S$DIS  = 

000020 

S.ELNS= 

100365 

StORQ  = 

000012 

S.ELST= 

100216 

SSDSR  = 

000006 

S.ELWS= 

100220 

SSGLN  = 

000024 

S.EMTL= 

100222 

SSINT  = 

000004 

S.ENOF= 

100224 

SSIRQ  = 

000016 

S.ENR0= 

100332 

SSMRQ  = 

000010 

S.ENSL= 

100327 

S$NCT  = 

000010 

S.ENUR= 

100331 

S$NTIF= 

000001 

S.EOTB= 

100372 

s$PBon= 

000040 

^.ERB0= 

100226 

S$PEOM= 

000100 

S.ERES= 

100377 

S$PMOM= 

000000 

S.ERNS= 

100375 

S$PMSG= 

000200 

S.ETMI= 

100230 

.  ABS. 

177776 

000 

(RW,!,GBL,ABS,0VR) 

001464 

001 

(RW,I,LCL,REL,CON) 

$HIGH 

000136 

002 

(RW,I,LCL,REL,CON) 

L-rrors 

detected: 

0 

♦*♦  Ass 

embler  statis. 

s 

Work   f 

Wf     reaas 

126 

Work   f 

lie  writes 

127 

SK'e  of 

work  file 

29925  Words 

(  117  Pages) 

Size  of 

core  pool 

1760S  Words 

(  67  Pages) 

Op-'ati'ng  s^'steni 

RSX- 

-IIH/PLUS 

S.EUNN= 

100376 

S.EUR0= 

100374 

S.SEOM= 

000003 

S.SSUC= 

000001 

TRMLNK= 

******  GX 

TSFLAG 

000044 

TSLIF 

000013 

TSLIFL 

000013 

TSLIFO 

000013 

TSLIFS 

000013 

TSLIN 

000000 

TSLIPS 

000006 

TSLLD 

000012 

TSLLDC 

000045 

TSLLDL 

000012 

TSLLDO 

000012 

TSLLDS 

000012 

TSLLEN 

000046 

TSLOPR 

000002 

TSLTCL 

000024 

TSLTIM 

000026 

TSLTPR 

000014 

TSLTPS 

000020 

TSNAPL 

000004 

TSNFE 

000000 

TSNLEN 

000010 

TSNNUL 

000002 

TSNOPL 

OC0006 

TSNRNI 

000042 

TSNRPL 

000005 

TSNRUL 

000007 

GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
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DLXCEX 
Confol 

77 
78 
79 
80 
81 
82 
83 
8^ 
85 
86 
87 
88 
89 
90 
91 
92 
93 
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■  DLX/CEX  interface  rout  MACRO  V05.03b  Friday  28-Jun-85  22:53  Page  8 
enable  processing 

.SBTTL  Control  enable  processing 

h 

**-crLEN-Control  enable  processing 


000022 
000026 

000032  000033' 
00003i  OOOOAC 
000036  000132' 


This  routine  is  entered  from  the  COMM/EXEC  when  a  control  enable 
request  is  dispatch  to  this  process. 


Inputs^ 

CTLEM:: 
CTLDSP: 


R3  =  Subfunction  code 

R4  =  Address  of  the  control  enable  CCB 


CALL  STLNK  ;  Compute  address  of  the  phys:cal  link  access  block 

CALLR  atTLDSP(R3)  ;  Dispatch  to  processing  routine 

.WORD  .+1  ;  Reserved 

.WORD  START  ;  Start  or  line  assignment 

.WORD  SHUT  ;  Shutdown 
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OLXCEX  -  DLX/CEX  interface  rout  MACRO  V05.03b  Friday  28-Jun-85  22:53  Page  19-1 
Stop  complete  processing 


538  001320 

005065 

000012 

539  001324 

116500 

000001 

540  001330 

042700 

177776 

541  001334 

042715 

000400 

542  001340 

543 

544  001344 

016546 

000014 

545  001350 

005065 

000014 

546 

547  001354 

012603 

548  001356 

001404 

549  001360 

011346 

550  001362 

551  001366 

000772 

552 

553  001370 

554 

555 

000001 

CLR  L$CTL(R5)      ;  None  present  now 

M0V8  L$FLG(R5),R0    ;  Get  current  state  of  link  enable 

BIC  *»C<LF$ENB/4OO>,R0 

BIC  #LF$ENB,(R5)    ;  Lose  all  knowledge  of  enable  state 

CALLR  CCBDN         ;  Complete  the  stop  request 

Save  pending  control  function  queue 
and  reset  the  listhead 

Get  next  I/O  packet 
If  EQ,  all  done 

Save  address  of  next  I/O  packet 
and  reinitiate  it 


80$: 

MOV 
CLR 

L$FNC(R5),-(SP) 
L$FNC(R5) 

90$: 

MOV 

BEQ 

MOV 

CALL 

BR 

(SP)+,R3 

100$ 

(R3),-(SP) 

NXINA 

90$ 

100$: 

RETURN! 
.END 

DLXCEX 


■svmhn  I  t  j^h  I  p 
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Retrieve  Ethernet  address 


105 
106 
10/ 
108 
109 
110 

in 

112 
113 
IK 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 

127  000072 

128  000100 
129 

130  000102 

131  000106 
132 

133  000110 

134  000116 

135  00012A 

136  000132 

137  0001A0 
138 

139  0OOK4 


026027 
103421 

032715 
00U16 

016460 
016460 
016460 
012^60 
012701 


.SBTTL  Retrieve  Ethernet  address 
•♦-RCVADR-Retrieve  Ethernet  address 

Retrieve  the  Ethernet  source  address  for  this  received  message. 

Inputs: 

RO  =  Address  of  characteristics  block 

R1  =  Default  status  (CS.IGN  =  Characteristic  ignored) 

R3  =  Address  of  the  I/O  packet 

R4  =  Address  of  the  receive  CCB 

C.3UF   -  Bias  of  received  message 

C.BUF+2  -  Virtual  address  of  received  message 

C.CNT   -  Length  of  received  message 

C.NSP   -  Virtual  address  of  Ethernet  header 

C.PRO   -  Protocol  type  from  message 

C.ADD   -  Source  address  from  Ethernet  message 

R5  =  Address  of  the  physical  link  access  block 


Outputs: 
R1 


Status  to  return  for  characteristic 


000002  000006  RCVADR 
002000 


000034  000010 

000036  000012 

000040  000014 

000006  000004 
000001 


10$; 


CMP 
BLO 

BIT 
BEQ 

MOV 
MOV 
MOV 
MOV 
MOV 

RETURN 


C.DATI(R0),*6   ;  Are  there  at  least  6  bytes  available? 
10$  ;  If  LO,  no 

*LF$8R0,(R5)    ;  Is  this  a  broadcast  channel? 
10$  ;  If  EQ,  no 

C.ADD(R4),C.CHRL(R0) 

C.ADD+2(R4),C.CHRLt2(R0) 

C.ADD+4(R4),C.CHRL+4(R0) 

*6,C.0ATO(R0)   ;  Fill  in  Ethernet  address  and  it's  siz 

*CS.SUC,R1      ;  Return  successful  completion 
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Macro  deti nit  ions 


44 
45 
46 
47 
48 

49  000000 

50  000000 

51  000000 

52  000000 


.S8TTL  Macro  definitions 

.MCALL   SAVRG.RESRCMAP 

.MCALL   CCBDF$,PDVDF$,PLADF$,SLTDF$ 


CCBDFS 
PDVDFS 
PLADFS 
SLTDFS 


Define  CCB  offsets 

Define  PDV  offsets 

Define  PLA  offsets 

Define  SLT  offsets 
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01270A 
000402 


DLXCTL  -  DLX  control  Ql 
Set  network  management 

401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 

418  000646 

419  000652 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 

436  000654 
437 

438  000660 

439  000664 

440  000670 

441  000672 

442  000676 

443  000700 

444  000702 

445  000704 
446 
447 
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state  for  <Line-ict> 


000017 


012704 

016702 

040415 
016302 
005104 
040402 
050215 


000360 
000010G 

000006G 


.S8TTL  Set  network  management  state  for  <Line-icl> 

**-CTLLST-Set  network  management  state  for  <Line-id> 

Set  up  the  network  management  state  field  of  the  network  management 
word  for  the  <Line-id>  to  the  specified  process. 


Inputs 


R1  =  Address  of  ?ystem  line  table 
R3  =  Address  of  I/O  packet 

I.PRri+6  -  Network  management  state 


Registers  modified: 

RO,  R1,  R2,  R3,  R4, 


R5 


.ENA8L  LS8 


CTLLST: 


MOV 
BR 


#LN.STA,R4 
10$ 


Set  up  mask  for  bit  field 
Enter  common  code 


.S8TIL  Set  network  management  substate  for  <Line-id> 

**-CTLLST-Set  network  management  substate  for  <Line-id> 

Set  up  the  network  management  substate  field  of  the  network  management 
word  for  the  <Line-id>  to  the  specified  process. 

Inputs: 

R1  =  Address  of  system  line  table 
R3  =  Address  of  I/O  packet 

I.PRM+6  -  Network  management  substate 

Registers  modified: 

RO,  R1,  R2,  R3,  R4,  R5 

Set  up  mask  for  bit  field 

Get  SLN  and  tributary  pair 

Compute  address  of  network  management  byte 

Clear  out  the  bit  field 

Get  new  bit  field  value 

Isolate  new  bit  field 

Set  new  network  management  state/substate 
Complete  the  request  successfully 


CTLSST: 

MOV 

*LN.SUB,R4 

10$: 

MOV 

$P6LK*T$SLN,R2 

CALL 

STNMST 

BIC 

R4,(R5) 

MOV 

I.PRMt6(R5),R2 

COM 

R4 

BIC 

R4,R2 

BIS 

R2,(R5) 

CALLR 

issue 

.DSA8L 

Lse 
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MACRO   CROSS   RFFEREMCE  CREF        OA.OO 
MACRO  NAME              REFERENCES 

CALL                           9-135  9-141             9-U4             10-168           10-170           10-174           11-224           11-229           11-?32           U'lU 

"^^-                          13-303  13-306           13-311           14-33°           14-339           15-362           16-391           16-397           17-439          20-537 

CALLR                          9^-T49'  11:244           ?i:279           ?3-1l8           'I'-Z?'           16-399           17-445            18-472           19-504           20-547 
23-616 

OISP^*                     #6:56  19-509           19-510           19-511            19-512           19-513 

MAP  #5-46 

PDVDFS                     #5-47  5-50 

PLADFS                       #5-47  5-51 

RESRG                         #5-46  9-145 

SAVRG                       #5-46  9-140 

SLTDFS                       #5-47  5-52 


••F1lE«»1D««DLXDA1 
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Table  of  contents 

5-  4A    Macro  definitions 

6-  SA    Issue  control  request  to  DLC 

7-  82    Stop  ooeration  ot  a  physical  channel 

8-  18A    Start  operation  of  a  physical  channel 
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000000 

LL 
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LL 
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Symbol    table 
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DLXSUB  -  DLX  subroutines 
Conuert  ASCII  to  RAD50 


169 
170 
171 
172 
173 
17A 
175 
176 
177 
178 
179 
180 
181 
182 
183 
18A 
185 

186  000224 

187  000230 

188  000232 
189 

190  000236 
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.SBTTL  Convert  ASCII  to  RAD50 
I- 
**-CAT5-Conuert  ASCII  to  RAD50 

Conuert  an  ASCII  process  name  to  RAD50  (3  characters). 

Inputs:  ... 

RO  =  Address  of  first  byte  in  the  <Line-id>  string 

R3  =  Legal  terminating  character 

R4  =  Address  of  the  end  of  the  string  ■'■1 

Outputs: 

RO  =  Address  of  next  byte  in  the  <Line-id>  string 

R1  =  Converted  result 

'C  Clear  -  Successful  conversion 

'C  Set   -  Illegal  character  in  the  string 


191  000240 

192  000242 
193 

194  000244 

195  000250 

196  000252 

197  000256 
198 

199  000260 

200  000264 

201  000270 

202  000272 

203  000274 

204  000300 

205  000302 
206 

207  000306 

208  000312 

209  000314 

210  000316 

211  000320 
212 

213  000322 

214  000324 

215  000326 

216  000330 

217  000332 

218  000336 
219 

220 
221 
222 

223  000340 

224  000342 

225  000344 


000340' 


000132 
000101 


005001 
012702 

112005 
020400 
103431 

122705 
103424 
122705 
101021 


162705  000100 

012200 
010501 

060116 


020227  000346' 

103751 

112005 

020400 

103402 

120305 
001001 
005727 
000261 


003100 
000050 
000001 


CAT5::  SAVRG  <R2,R5>  ;  Get  some  free  registers 

CLR  R1  ;  Clear  accumulation 

MOV  #CVT8L,R2  ;  Point  to  conversion  table 

10$:    M0V8  (R0)+,R5  ;  Get  next  character 

CMP  R4,R0  ;  Reached  end  of  the  string  yet? 

BLO  30$  ;  If  LO,  yes 

CMPB  *'Z,R5  ;  Is  it  alphabetic,  below  Z? 

BLO  20$  ;  If  LO,  no 

CMPB  #'A,R5  ;  Is  it  above  A? 

BHI  20$  ;  If  HI,  no 

SUB  #100, R5  ;  Scale  to  RAD50 

SAVRG  <R0,R1>  ;  Save  some  registers 

MOV  (R2)+,R0  ;  Get  next  scale  factor 

MOV  R5,R1  ;  Copy  character 

CALL  aCEMUL  ;  Multiply  it  out 

ADD  RI.(SP)  ;  Accumulate  result 

RESRG  <r1,R0>  ;  Recover  registers 

CMP  R2,#CVTBL+6  ;  Have  we  converted  enough  characters? 

BLO  10$  ;  If  LO,  no 

M0V8  (R0)+,R5  ;  Get  terminating  character 

CMP  R4,R0  ;  Reached  the  end  of  the  string? 

BLO  30$  ;  If  LO,  yes 

20$:    CMPB  R3,R5  ;  Is  this  a  legal  terminator? 

BNE  40$  ;  If  NE,  no 

30$:    TST  (PC)+  ;  Return  success  status 

40$:    SEC  ;  Indicate  illegal  character  seen 

RESRG  <R5,R2>  ;  Restore  registers 

REIURM 


Conversion  control  table 

CVT8L:   .WORD   50*50 
.WORD   50 
.WORD   1 
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016702  OOOOOOG 
103543 


DLXSUB  -  DLK  subroutines 
Scan  databases  for  <Line-id> 


701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
7M, 
715 
716 
717 

718  001504 

719  001510 

720  001514 
721 

722  001516 

723  001522 

724  001526 

725  001530 

726  001534 
727 

728  001540 

729  001544 

730  001546 

731  001552 
732 

733  001554 

734  001560 
735 

736  001564 

737  001566 

738  001570 

739  001576 

740  001600 

741  001606 

742  001610 

743  001616 
744 

745  001620 

746  001624 

747  001626 
748 

749  001630 

750  001634 

751  001642 

752  001650 
753 

754  001656 

755  001662 

756  001664 
757 
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.S8TTL  Scan  databases  for  <Line-id> 
I- 
**-fNDLA-Scan  databases  for  <Line-id> 

Using  the  contents  of  the  common  parameter  block,  scan  the  COMM/EXEC 
databases  for  the  specified  <Line-id>  and  return  further  information 
in  the  parameter  block. 

Outputs:  . 

Rl  =  DDM:       Address  of  system  line  table 

DLC  or  LLC:  Address  of  process  PDV 
'C  Clear  -  <Line-id>  found  in  databases 
'C  Set   -  <Line-icl>  not  present  in  databases 


110267 
067702 
011201 
116100 
110067 

132700 
001126 
132700 
001525 

017700 
017702 

012201 
001414 
126167 
001010 
126167 
001004 
126167 
001404 


000261 
000476 

011167 
016167 
016167 
016167 

017702 
160002 
110267 


000002 
000012 
000013 


Registers  modified: 
RO,  R2 


FNDLA:: 


000007G 
OOOOOOG 

000010 
000006G 

000004 

000001 


OOOOOOG 
OOOOOOG 


10$: 


000007G 
000002G 
000003G 


20$: 
30$: 


000012G 
000002 
000016 
000020 

OOOOOOG 

OOOOIOG 


000014G 
000020G 
G00022G 


40$: 


MOV 
CALl 
BCS 

MOVB 

ADD 

MOV 

MOVB 

MOVB 

BITS 
BNE 
eiTB 
BEQ 

MOV 
MOV 

MOV 

BEQ 

CMPS 

BNE 

CMP8 

BNE 

CMPB 

BEQ 

SOB 
SEC 
BR 

MOV 
MOV 
MOV 
MOV 

MOV 
SUB 
M0V8 


$PBLKtT$NAM,R2 

aPDVID 

100$ 

R2,$PBLKtT$PDV 
aPDVTA,R2 
(R2),R1 
Z.fL  :ri),ro 

R0,$PBLKtT$FLG 

#ZF.LLC,RO 
90$ 

#ZF.DDM,RO 
90$ 

aSLTNM.RO 
aSLTMA,R2 

(R2)+,R1 

20$ 

L.DDM(R1),$PBLK+ 

20$ 

L.CTL(R1),$PBLK+ 

20$ 

L.UNT(Rl),$PBLKt 

40$ 

R0,10$ 

100$ 


(Rl),$PBLKtT$SLF 
L.DDM(Rl),$PBLK+t$DDM 
L.KRBA(R1),$PBLK+T$KR6 
L.NMST(R1>,$PBLKtl$NMST 


Get  RAD50  process  name 
Find  the  process'  PDV  index 
If  CS,  no  process  of  this  name 

Save  process'  PDV  index 
Compute  address  within  PDV  index  table 
Get  address  of  PDV 
Get  process  flag  byte 
and  save  it 

Is  process  an  LLC? 

If  NE,  yes 

Is  process  a  DDM? 

If  EQ,  no  ...  all  done 

Get  *  of  system  lines 

Point  to  system  line  index  table 

Get  address  of  system  line  table  entry 

If  EQ,  none  present 
T$PDV 

If  NE,  not  this  process 
T$CTL 

If  NE,  not  this  controller 
T$LIN 

If  EQ,  we  have  a  match 

Check  all  sj^stem  lines 
Indicate  <Line-id>  not  present 
and  exit 

Fill  in  parameter  block 


aSLTNM,R2 

R0,R2 

R2,$PBLKtT$SLN 


Compute  the  system  line  number 


Dl  XSUB  -  DLX  subroutines 


L  13 
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DLXSUB  -  DLX  subroutines 
Symbol  table 


LN.DUM= 

000005 

LSSTT 

000007 

LN.LOA= 

000004 

L$TCB 

000022 

LN.LOO= 

000003 

LSTIM 

000004 

LN.OAU= 

000003 

LSTIMl 

000005 

LN.OFF= 

000001 

L$TIP 

000003 

LN.ON  = 

000000 

L$XMT 

000016 

LN.OOP= 

OOOOOA 

L$$ASG= 

000000 

LN.OPE= 

000001 

L$$DRV= 

000000 

LN.REF= 

000002 

L$$P11= 

000001 

LN.SER= 

000002 

L$$11R= 

000000 

LN.STA= 

000017 

L.COST 

000015 

LN.SUB= 

000360 

L.CTL 

000012 

LN.TR1= 

000006 

L.CVA 

177776 

LR$CTL= 

000003 

L.DDM 

000002 

LR$DEA= 

000200 

L.DDS 

000004 

LR$DIS= 

000020 

L.DLC 

000003 

LRSSTP= 

000010 

L.DLM 

000006 

LS$DAT= 

OOOOOA 

L.DLS 

000010 

LS$ERR= 

000200 

L.FLG 

000000 

LS$FRE= 

000000 

L.KRBA 

000016 

LS$IDL= 

000001 

L.LEN  = 

000022 

LS$MSK= 

000037 

L.MPF 

000022 

LS$RS'= 

000020 

L.NMST 

000020 

LS$STP= 

000010 

L.NSTA 

000014 

LS$STR= 

000002 

L.OWNR 

000021 

LSCTL 

000012 

L.UNT 

000013 

LSERR 

000010 

MAPAD 

002354RG 

LSFLG 

000001 

MAXOV  = 

*»**«*  GX 

1  SFNC 

000014 

M$$CRB= 

000124 

L$LEN 

000026 

M$$CRX= 

000000 

LSLIN 

000006 

M$$FCS= 

000000 

L$LST 

000000 

M$$MGE= 

000000 

L$LUN 

000024 

M$$NET= 

000000 

LSRCV 

000020 

|V|$$0VR= 

000000 

LSRSR 

000002 

.  ABS. 

177776    000   (RW,I,G8L,A8S,0VR) 

002622    001    (RW,I,LCL,REL,CON) 

Errors 

detected:  0 

K  H 
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N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PDVJD  = 

PDVTA  = 

PLAST  = 

PRCLD 

P$$P45= 

P$$URD= 

Q$$OPT= 

RDBRT  = 

RELOC  = 

RLSCHN 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.fiEA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SLTMA  = 

SLTNM  = 

STACT 


*«»  Assembler  statistics 

Work   file  reads:  64 

Work   file  writes:  71 

Size  of  work  file:  20638  Words 

Size  of  core  pool:  17608  Words 

Operating  system:  RSX-1 IM/PLUS 


(  81  Pages) 
I  67  Pages) 


000001 

STLNA 

002464RG 

ZF.DIA^ 

004000 

000001 

STLNK 

002460RG 

ZF.DLC= 

000002 

000001 

STNMST 

002516RG 

ZF.DVP= 

100000 

000001 

STSLT 

002602RG 

ZF.INI= 

040000 

000001 

S$$WRG= 

000000 

ZF.ICMX= 

000020 

000010 

S$$YSZ= 

007600 

ZF.LLC= 

000004 

000001 

S.COST 

000001 

ZF.LMC= 

000100 

000001 

S.FLG 

000000 

ZF.MAN= 

020000 

****** 

GX 

S.LEN 

000004 

ZF.MFL= 

000010 

****** 

GX 

S.NMST 

000002 

ZF.MTM= 

000400 

****** 

GX 

S.OWNR 

000003 

ZF.MUX= 

000040 

002416RG 

TSASN 

000016 

ZF.PSE^ 

002000 

000000 

T$CTL 

000002 

ZF.SLI= 

010000 

000000 

TSDDM 

OOOOH 

ZF.TIM= 

000200 

000010 

T$DLC 

000015 

ZF.X3P= 

000000 

****** 

GX 

T$FLG 

000006 

ZS.ASN= 

100000 

****** 

GX 

TSKRB 

000020 

ZS.BSY= 

140000 

002444RG 

T$LEN 

000024 

Z.AVL 

000014 

000000 

TSLIN 

000003 

Z.DAT 

000016 

000001 

T$NAM 

000000 

Z.DSP 

000000 

000000 

TSNMST 

000022 

Z.FLG 

000010 

000000 

TSNSTA 

000005 

Z.LEN  = 

000016 

000200 

T$PDV 

000007 

Z.LLN 

000006 

000100 

TSSFLG 

000004 

Z.MAP 

000020 

000004 

T$SLF 

000012 

Z.NAM 

000004 

000040 

T$SLN 

000010 

Z.PCB 

000012 

000020 

T$$K|V|G= 

000000 

Z.SCH 

000007 

000010 

T$$MIN= 

000000 

$ACESS= 

****** 

GX 

000001 

T.ST3  = 

******  GX 

SBIAS  = 

****** 

GX 

000002 

T3.PRV= 

******  GX 

$BYTES= 

****** 

GX 

000040 

V$SCTR= 

001000 

$DLXPD= 

****** 

GX 

****** 

GX 

X$$D8T= 

000000 

SPBLK  = 

****** 

GX 

****** 

GX 

ZF.COU= 

001000 

$VA   = 

****** 

GX 

000020RG 

ZF.DDM= 

000001 

.$$$$.= 

000034 

Elaosed  time:  00:00:35.11 

SV;DLXSjB.V2.[13l,134]DLXSU8/CR/-SP  =  SV:[1,1]RSXMCM.SML/ML,ri30,110]NETLIB/ML,n30,10JRSXMCM/PA:1,C131,10]DLXSUB 
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EVL  -  EVENT  LOGGER  PROCESS 
EXEC  entry  point  '.'ector  table 

85 

8A 

85  000012 

86 

8/ 


89 
90 
91 
92 
95 
94 
95 
96 
97 
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.SBTTL  EXEC  entry  point  vector  table 


SEVLVT: 


000012 
OOOOU 
000016 
000020 

98  000022 

99  000024 
100  000026 
101 

102 
105 
10A 
105 
106 
107 

108  000050 

109  000052 

110  000054 

111  000056 

112  000040 
115 

114 


OOOCOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

000015 


.IF  DF 

R$$MPL 

.WORD 

D.VINT 

.ENOC 

.IF  DF 

R$$MPL 

.IF  NDF 

R$$PRO 

FMSK2 

.WORD 
.ENDC 
.ENDC 

$FMSK2 

TINS: 

.WORD 

STTNS 

CEACC 

.WORD 

SCEACC 

EXRQN 

.WORD 

SEXRQN 

KSAR6 

.WORD 

KISAR6 

LGDDB 

.WORD 

SLGDDB 

LGPDV 

.WORD 

SLGPDV 

LGSTT 

.WORD 

SLGSTT 

.IF  DF 

RSSMPL 

.IF  NDF 

R$$PRO 

MPLCK 

.WORD 
.ENDC 
.ENDC 

SMPLCK 

PDVID 

.WORD 

SPDVID 

PDVTA 

.WORD 

SPDVTA 

PSIPT 

.WORD 

SPSIPT 

SLTMA 

.WORD 

$SLTMA 

ZT]|V|2 

.WORD 

$ZTIM2 

SEVLV 

.==.-1-$EVLVT/2 

0  if  vectored  system,  non-zero  if  not 


for  MAP,  SAVMAP,RESMAP 


1  nrr.CD    DDnrtrcc 


MAron    ufm    n'^h    Frirtav    PR-.I 
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EVL  -  EVENT  LOGGER  PROCESS 
Symbol  table 
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XF$T1R= 

000004 

X$NNRE 

000054 

XSTIMC 

000001 

ZF.MFL= 

000010 

Z.SCH 

000007 

XT$CHN= 

000100 

X$NPL 

000006 

XSTIMR 

000000 

ZF.MTM= 

000400 

$CEACC= 

******  GX 

XT$DGR= 

000002 

X$NPR 

000007 

X$TXI 

000102 

ZF.MUX= 

000040 

SEVLIB 

OOOOOORG 

XT$FAS=; 

000200 

XSNRBY 

000032 

XITXQ 

000066 
000015 

ZF.PSE= 

002000 

$£VLVL= 

000013  G 

XT$1NC= 

000004 

X$NRP< 

000042 

X$TYP 

ZF.SLI= 

010000 

SEVLVT 

00001 2RG 

XTtOUC= 

000010 

XSNRRE 

000053 

X$USR 

000022 

ZF.TIM-^ 

000200 

$EXRQN= 

******  GX 

XT$PVC= 

000001 

XSNTBY 

000036 

XSWAO 

000062 

ZF.X3P= 

000000 

Ji.GDDB= 

*♦*♦♦*  GX 

XSABQ 

000076 

XSNTPK 

000046 

XSWSZ 

000020 

ZS.ASN= 

100000 

$LGLST= 

******  GX 

X$MF 

000055 

XSPKSZ 

000016 

X$$D8T= 

000000 

ZS.BSY= 

140000 

$LGPDV= 

******  GX 

X$AUC 

000056 

X$PR 

000011 

ZERTA8 

000422R 

ZTIM2 

000040R 

$LGSTT= 

******  GX 

xiclen= 

000025 

X$PRT 

000021 

ZF.C0U= 

001000 

Z.AVL 

000014 

SLOST  = 

******  GX 

XtCTlM 

000060 

X$PS 

000010 

ZF.DDM= 

000001 

Z.DAT 

000016 

$PDVID= 

******  GX 

XtDIAG 

000003 

X$RPR 

000013 

ZF.DIA= 

004000 

Z.DSP 

000000 

$PDVTA= 

******  GX 

xsdte 

000024 

XSRPS 

000012 

ZF.DLC= 

000002 

z.flg 

000010 

$PSIPT= 

******  GX 

XSFLG 

000014 

XSRTRY 

000002 

ZF.DVP= 

100000 

Z.LEN  = 

000016 

$SLTMA= 

**+*♦«  GX 

xsglen 

000106 

XSRXI 

000104 

ZF.INI= 

040000 

Z.LLN 

000006 

$TTNS  = 

******  GX 

XSLCN 

000026 

X$RXQ 

000072 

ZF.KMX= 

000020 

Z.MAP 

000020 

$ZT]M2= 

«***««  GX 

XSLEN 

000106 

X$SS 

000004 

ZF.LLC= 

000004 

Z.NAM 

000004 

$$$R  = 

000010 

XSMOWN 

000023 

X$ST 

000005 

ZF.LMC= 

000100 

Z.PCB 

000012 

.$$$$.= 

000034 

xsnlre 

000052 

XSTCLZ 

000030 

ZF.MAN= 

020000 

.  ABS. 

177776    000   (RW,I,GBL,A8S,0VR) 

001210    001   (RW,1, 

.CL.REL.CON) 

Errors 

detected:  0 

...  Assembler  statistics 


Work      fUe      reads:  114 

Work      file   writes:  108 

Size  of   work   file:  27608  Words 

Size  of    core  pool:  17608  Words      {   67  Pages) 

Operating      system:  RSX-1 IM/PLUS 


108  Pages) 


SY°EVL.V2!n31,134]EVL/CR/-SP=Sy:[l,1JR5XMCM.SML/ML,C130,110JNETLlB/ML,C130,10]RSXMCM/PA:l,C151,10JEVL 
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SESUSR  -  Session  control  user 
Moue  image  mode  field 

360 
561 
362 
363 
364 
365 
366 
367 
368 
169 
370 
371 
372 
373 
374 
375 
376 

377  C0062A  110122 

378  000626  001403 
379 

380  000630  112022 

381  000632 
382 

383  000636  000241 

384  000640 
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.S8TTL  Move  image  mode  field 

•♦-MOVIMG-Moue  image  : ode  field 

Move  an  image  mode  field  into  the  message  buffer. 

Inputs: 

RO  =  Pointer  to  data  to  be  moved 

Rl  =  Byte  count  '  iata  to  be  moved 

R2  =  Pointer  to  next  available  byte  in  message  buffer 

0ut|.  ts: 

R2  =  Pointer  past  Last  byte  used  in  message  buffer 

Registers  modi  fied: 
RO,  Rl 


MOV IMG: 

Move 

BEQ 

R1,(R2)t 
20$ 

;  Fill  in  byte  count 
;  If  EQ,  null  field 

10J: 

MOVB 
SOB 

(R0)+,(R2)t 
Rl.lOi 

;  Copy  image  field 

20$: 

CLC 
RETURN 

n  1 
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SESUSR11S     CREATED  BY     MACRO     ON  28-JUN-85   AT   20:01 
SYMBOL    CROSS   REFERENCE 


SYMBOL      VALUE 


REFERENCES 


ACCLLT 

r  **t*** 

g:; 

17-574 

ADDLNK 

-  ****** 

GX 

9-190 

ADDMAl 

r  ****** 

GX 

17-579 

ADDOPT 

-     ****** 

GX 

8-144 

ASCBIN 

000062 

R 

19-631 

A.ACC 

000020 

#6-57 

A.LNK 

000000 

#6-57 

A.NAM 

000002 

#6-57 

A.  PUD 

000010 

#6-57 

A. REM 

000012 

#6-57 

A.UCB 

000010 

#6-57 

SLDDSC 

000532 

R 

10-257 

BLDIMG 

000610 

R 

10-266 

BLDSES 

000412 

R 

9-219 

CEACC 

=  ****** 

GX 

14-435 

CEMUL 

r  ****** 

GX 

20-681 

CHKAC< 

~     ****** 

GX 

18-604 

CH<ADD 

000000 

R 

14-407 

CHKNAM 

001256 

R 

14-412 

CLSMFL 

=  000010 

7-103 

CLSSFL 

=  OOOOOA 

7-106 

CLSTYP 

=  000001 

7-100 

CL.MUI 

=  000001 

10-264 

CL.MU2 

=  000002 

10-264 

CHPINT 

oouu 

RG 

#18-598 

CTRSES 

=    ****** 

GX 

9-222 

CVTADD 

000042 

R 

19-633 

CVTARE 

000054 

R 

19-630 

CVSAO 

=  000002 

8-140 

C.FNC 

000010 

»17-577 

C.MOD 

000011 

♦17-578 

C.STS 

000012 

17-573 

DECPT 

=  ****** 

GX 

8-141 

DSANN 

000000 

14-433 

DSHOST 

000022 

14-410 

OSLNUM 

000014 

9-183 

DSRNN 

000002 

14-485 

DSSEG 

000036 

8-142 

ERSFMT 

=  000005 

10-254 

ERSNOD 

=  000002 

14-404 

ESNSR 

000014 

#6-49 

E$NBS 

000020 

#6-49 

ESNCR 

000034 

#6-4^^ 

EtNCS 

000036 

#6-49 

£$NIC 

000044 

#6-49 

ESNLEN 

000050 

#6-49 

ESNLLA 

000012 

#6-49 

Etuim 

000000 

#6-49 

EINML 

000040 

#6-49 

E$NMR 

000024 

#6-49 

F$NMS 

000030 

#6-49 

ESNNOD 

000002 

#6-49 

18-602 


10-281 
19-634 


14-444 

14-448 
14-439 
10-261 
10-271 
#10-253 
14-487 


#19-625 
14-417 


#19-637 

#19-643 

9-215 

♦18-598 
18-599 

9-178 


9-186 
8-143 


9-222 


L     2 
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CREF        04.00 


#20-665 


#11-306 
10-276 


14-445 


#12-353 


14-493 


#15-526 


9-216 


14-415 
9-217 


14-409 


14-501 
9-218 
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DLXCEX  -  DLX/CEX  interface  rout  MACRO  V05.03b  Friday  28-Jun-85  22:53  Page  9 
Start  or  line  assignment 


95 

96 

97 

98 

99 
100 
101 
102 
103 
10A 
105 
106 
107 
108 
109 
110 
111 

112  000040 

113  000046 
lU 

115  000050 

116  000054 

117  000062 
118 

119  000064 

120  000070 

121  000074 

122  000100 
123 

124  000102 

125 

126 

127 

128 

129 

130 

151 

132 

133 

134 

135 

136 

■37  000106 

38  000  1 14 

39  000122 
140  000126 


032764  OOOOOOG 
001415 


042715  000400 

032764  OOOOOOG  000012 

001407 

052715  000400 


105015 

012700  OOOOOOG 


.S8TTL  Start  or  line  assignment 
**-START-Start  or  line  assignment 


Inputs 


This  routine  is  entered  when  another  LLC  (typically  ourselves)  has 
requested  that  a  line  be  started.  The  only  action  of  this  routine 
is  to  set  the  current  state  enable  for  the  line. 

R4  =  Address  of  the  control  enable  CCB 

C.NSP  -  Source  PDV  and  Channel 

C.STS  -  State  of  the  line  (enable  or  disable)  on  a  start 

R5  =  Address  of  the  physical  link  access  block 

Registers  modified: 

RO,  R1,  R2,  R3,  R4,  R5 


000012  START: 


10$: 


BIT  #ENBX,C.STS(R4)  ;  Should  we  change  the  state  of  enable? 

BEQ  10$  ;  If  EQ,  no 

BIC  #LF$ENB,(R5)  ;  Assume  state  is  disabled 

BIT  «LEN8,C.STS(R4)  ;  Is  the  state  disabled? 

BEQ  10$  ;  If  EQ,  yes 

BIS  #Lf$ENB,(R5)  ;  Mark  the  line  as  enabled 

CALL  GTSLN  ;  Get  SLN  and  logical  tributary  # 

CALL  STNMST  ;  Get  address  of  network  management  status  byte 

CLRB  (R5)  ;  Set  state  to  on,  closed 

MOV  #IS.SUC,RO  ;  Set  successful  completion  status 


016464  000004 
112764  000020 
010064  000012 


000006 
000010 


»*-CCBDN-Post  completion  on  a  control  enable  CCB 


Inputs: 


CC6DM: 


Return  the  control  enable  CCB  to  the  source  process  with  a  control 
complete  function  code. 

s: 

RO  =  Completion  status 

R4  =  Address  of  the  control  enable  CCB 

C.NSP  -  Source  PDV  and  Channel 

MOV  C.NSP(R4),C.LIN(R4) 

MOVB  *FC.CCP,C.FNC(R4) 

MOV  R0,C.STS(R4)    ;  Set  completion  status 

CALLR  SLLCRS         ;  Post  completion  on  the  request 


M  3 


DLXCEX  -  DLX/CEX  interface  rout  MACRO  V05.03b  Friday  28-Jun-85  22:53  Page  10 


L  4 

DLXCEX  -  CLX/CEX  interface  rout  MACRO  V05.03b  Friday  28-Jun-85  22:53  Page  19-2 
Symbol  table 


ABORQ  = 

ASYNCH 

A$$CHK= 

A$tCPS= 

A$$PRI= 

A$$TRP= 

BLXIO  = 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CCBDN 

CCBRT  = 

CC.ADR= 

CC.DAD= 

CC.DPA= 

CC.DST= 

CC.ECM= 

CC.ECS= 

CC.ELS= 

CC.EMC= 

CC.EPH= 

CC.EPR= 

CC.LCR= 

CC.LDM= 

CC.LLC= 

CC.LSA= 

CC.MCT= 

CC.NET= 

CC.PDC= 

CC.PRO= 

CC.SAD= 

CC.SID= 

CC.SPL= 

CC.STM= 

CE.ABO= 

CE.ACN= 

CE.DAO= 

CE.DIS= 

CE.DNF= 

CE.ERR 


ILC^ 
ILN= 
CE.!NV= 
CE.IUM= 
CE.LTO= 
CE.MCE= 
CE.MOP= 
CE.NMA= 
CE.NTE= 
CE.PCN= 
CE.RES= 
CE.RTE= 
rr.RTL= 


001012R 

000000 

000000 

000000 

000000 

**«*»•  GX 

000002 

000040 

000020 

OOOOOA 

000010 

000100 

000001 

0001 06R 

******   GX 

000100 

000102 

000302 

000200 

000311 

000310 

000304 

000300 

000303 

000301 

000004 

000306 

000200 

000307 

000201 

000000 

000006 

000101 

000010 

000305 

000002 

000312 

100362 

100012 

100346 

100366 

100005 

100370 

100006 

100350 

100002 

100013 

100^56 

100007 

100372 

100014 

100361 

100011 

100010 

100376 

100003 


CE.RTS= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UDF= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

CF.HDR= 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.SYN= 

CF.TRN= 

CHARC 

CM.CIR= 

CM.DM1= 

CM.DM2= 

CM.DM3= 

CM.FMT^ 

CM.HRD= 

CM.LIN= 

CM.LOO= 

CM.LQ1= 

CM.L02= 

CM.L03= 

CI»I.LT1  = 

CM.LT2= 

CM.LT3= 

CM.RC1= 

CM.RC2= 

CM.RC3= 

CM.XLO= 

CP.CON= 

CP.DCF= 

CP.DUM= 

CP.HDL= 

CP.LAT= 

CP.LOO= 

CP.PS  = 

CP.PSI= 

CP.ROU= 

CP.XCF= 

CP.2FR= 

CRC$OV= 

CS.ABO= 

CS.eRO= 

CS.BUF= 

CS.CES= 

CS.CHN= 

CS.CMP= 

CS.DAO= 

CS.DCR= 

CS.DEF= 

CS.DEV= 

CS.DIS= 


100004 

100364 

100352 

100354 

100374 

100001 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

001140R 

000002 

000253 

000400 

000000 

100000 

000002 

000000 

000001 

000317 

000000 

000000 

000011 

000053 

007400 

000253 

001000 

000000 

000004 

001140 

000040 

000540 

000007 

002140 

000220 

177400 

000200 

001540 

000100 

000030 

000000 

000100 

000002 

000200 

000002 

000010 

000200 

000003 

000400 

000004 

000002 

000040 


CS.ENA= 

CS.ENB= 

CS.ERR= 

CS.FTL= 

CS.HCR= 

CS.HFE= 

CS.IGN= 

CS.LST= 

CS.MTL^ 

CS.RNG= 

CS.R0V= 

CS.RSN= 

CS.SHU= 

CS.SJD= 

CS.STR= 

CS.SUC= 

CS.TMO= 

CS.XUR= 

CTLCCP^ 

CTLCP 

CTLDN  = 

CTLDSP 

CTLEN 

CTLTBL 

C$$CKP= 

C$$ORE= 

C$$RSH= 

C.ADD 

C.BID 

C.BUF 

C.BUFl 

C.8UF2 

C.CHRL 

C.CNT 

C.CNT1 

C.CNT2 

CDAFl 

C.DATO 

C.FLG 

C.FLG1 

C.FLG2 

C.FNC 

C.LIN 

C.LNK 

C.MOD 

C.NSP 

C.PRO 

C.RSV 


.STA 
C.STAF 
C.STS 

c.rvp 

C.URM 

C.XACP 

C.XID 

C.XLEN 

C.XPLI 


000001 

000020 

100000 

001000 

000001 

002000 

000002 

040000 

004000 

000010 

000004 

010000 

000001 

000002 

000004 

000001 

020000 

000004 

******  GX 

000706RG 

******  GX 

000032R 

000022RG 

000762R 

000000 

000400 

177564 

000034 

000003 

000014 

000014 

000024 

000010 

000020 

000020 

000030 

000002 

000004 

000022 

000022 

000032 

000010 

000006 

000000 

000011 

000004 

000042 

000002 

000007 

000006 

000012 

000000 

177776 

000004 

000035 

000044 

000040 


C.XPT 

000034 

FS.SPW= 

040000 

C.XSVC 

000042 

FS.STM= 

000000 

C.XTC 

000037 

FS.STP= 

002000 

C.X25 

000036 

FS.STR= 

001000 

DISRQ  = 

******  GX 

FS.TRM= 

003000 

DQPKT  = 

******  GX 

FS.WLB= 

001000 

DSLIN  = 

******  GX 

FS.XKL= 

002000 

D$$BUG= 

177514 

FS.X0F= 

010000 

D$$ISK= 

000000 

FS.X0N= 

007000 

D$$L11= 

000001 

FS.ZER= 

002000 

D$$yNC= 

000000 

n$LJL  = 

000001 

D$$YNM= 

000000 

GTSLN  = 

****** 

GX 

D.BIAS 

000000 

G$$TPP= 

000000 

D.SIZE 

000004 

G$$TSS= 

000000 

ENBLC 

001040R 

G$$TTK= 

000000 

ENBX  = 

******  GX 

GS$WRD= 

000000 

E$$XPR= 

000000 

IE.AB0= 

****** 

GX 

FC.CCP= 

000020 

E.DAO= 

****** 

GX 

FC.CTL= 

000006 

E . THO= 

GX 

FC.KCP= 

000016 

IE.VER= 

****** 

GX 

FC.KIL= 

000004 

IO.XCH= 

017400 

FC.MAN= 

000024 

IO.XCL= 

016210 

FC.MLD= 

000026 

IO.XGC= 

017410 

FC.PCT= 

000030 

IO.XHG= 

016000 

FC.PUR= 

000022 

IO.XIN= 

016400 

FC.RCE= 

000002 

IO.X0P= 

015400 

FC.RCP= 

000014 

IO.XRC= 

015000 

FC.riM= 

000010 

I0.XSC= 

017400 

FC.XCP^ 

000012 

I0.XSP= 

017010 

FC.XME= 

000000 

I0.XST= 

017000 

FNCAB  = 

******  GX 

I0.XTL= 

017000 

FS.AST= 

000000 

IO.XTM= 

014400 

FS.CIB= 

002000 

I0.XTR= 

016000 

FS.CRA= 

001000 

IS.SUC= 

****** 

GX 

FS.DIS= 

013000 

ITRANS= 

****** 

GX 

FS.DVC= 

001000 

I$$RAR= 

000000 

FS.ENB= 

012000 

I$$RDN= 

000000 

FS.EXI= 

001000 

.FCN  = 

****** 

GX 

FS.GET= 

006000 

.LN2  = 

****** 

GX 

FS.HLT= 

000000 

I.PRM  = 

****** 

GX 

FS.INI= 

000000 

I.UCB  = 

****** 

GX 

FS.K1L= 

000000 

KISAR6= 

****** 

GX 

FS.LCL=: 

100000 

K$$CNT= 

177546 

FS.LTM= 

001000 

K$$CSR= 

177546 

FS.MNT= 

004000 

K$$LDC= 

000000 

FS.MSN= 

014000 

K$$TPS= 

000074 

FS.REA= 

001000 

LOSLP  = 

000000 

FS.RET= 

000000 

LENB  = 

****** 

GX 

FS.REZ= 

003000 

LF$BR0= 

002000 

FS.RLB= 

002000 

IF$CHN= 

004000 

FS.RNG= 

011000 

Lr$ENB= 

000400 

FS.RST= 

000000 

LF$MOP= 

001000 

FS.RTN= 

001000 

LF$RSR= 

100000 

FS.SEr= 

005000 

LF.ACT- 

100000 

FS.SFC= 

005000 

LF.BRO= 

000400 

FS.SFR= 

006000 

LF.BWT= 

000007 

FS.SFS= 

004000 

LF.ENA= 

002000 
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Retrieve  Ethernet  protocol 


U1 

U3 
H^ 
K5 

1A7 
148 
149 

150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 

163  0C0K6 

164  000154 
165 

166  000156 

167  000162 
168 

169  000164 

170  000172 

171  000200 
172 

173  000204 


026027  000002 
103413 

032715  002000 
001410 

016460  000042 

012760  000002 

012701  000001 


000002 


000010 
000004 


.SBTTL  Retrieve  Ethernet  protocol 
**-RCVPRO-Retrieve  Ethernet  protocol 

Retrieve  the  Ethernet  protocol  tor  this  received  message. 

Inputs: 

RO  =  Address  of  characteristics  block 

R1  =  Default  status  (CS.IGN  =  Characteristic  ignored) 

R3  =  Address  of  the  I/O  packet 

R4  =  Address  of  the  receive  CCB 

C.3UF  -  Bias  of  received  message 

C.6UF+2  -  Virtual  address  of  received  message 

C.CNT  -  Length  of  received  message 

C.NSP  -  Virtual  address  of  Ethernet  header 

C.PRO  -  Protocol  type  from  message 

C.ADD  -  Source  address  from  Ethernet  message 

R5  =  Address  of  the  physical  link  access  block 


Outputs: 

R1  = 

RCVPRO:  CMP 
BLO 

BIT 
BEQ 

MOV 
MOV 
MOV 


Status  to  return  for  characteristic 

C.DATI(R0),#2  ;  Are  there  at  least  2  bytes  available? 

10$  ;  If  LO,  no 

*LF$BR0,(R5)  ;  Is  this  a  broadcast  channel? 

10$  ;  If  EQ,  no 

C.PR0(R4),C.CHRL(R0) 

#2,C.DATO(R0)  ;  Fill  in  Ethernet  protocol  and  it's  size 

#CS.SUC,R1  ;  Return  successful  completion 


10$: 


RETURN 
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Define  local  macros 

5^  .SBTTL  Define  Local  macros 

56  .MACRO  DISP,TYPE,ADDR 

57  NX.'TYPE==.-CCPT8L 

58  .WORD   ADDR 

59  .ENDM   DISP 
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Queue  a  control  CCB  to  the  target  LLC 


4A9 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 


000710  116764  OOOOOOG  000005 

000716  010064  000014 

000722  010164  000016 

000726  010264  000020 

000732  010364  000022 
000736 


.SBTTL  Queue  a  control  CCB  to  the  target  LLC 

**-QCC8L-0ueue  a  control  CCB  to  the  target  LLC 

Queue  a  control  CCB  to  the  target  LLC  to  perform  some  line  control 
function. 

Inputs: 

RO  =  Target  PDV  and  Channel 

Rl  =  Address  in  the  PDV  channel  table 

R2  =  SLN  and  logical  tributary  # 

R3  =  Address  of  I/O  packet 

R4  =  Address  of  the  control  CCB  (with  the  following  fields  set  up): 

C.NSP  -  Next  state  index 

C.LIN  -  Target  PDV  and  Channel 

C.FNC  -  Function  code  for  target  LLC 

C.STS  -  Additional  control  for  target 


QCCBL: 


MOVB  $DLXPD,C.NSP+1(R4) 

MOV  R0,C.BUF(R4)    ;  S 

MOV  R1,C.BUF+2(R4)   ;  5 

MOV  R2,C.CNT(R4)    ;  ! 

MOV  R3,C.FLG(R4)    ;  J 

CALLR  aLLCRS         ;  C 


Save  target  PDV  and  Channel 
Sai/e  address  in  PDV  channel  table 
Save  SLN  and  logical  tributary  # 
Save  I/O  packet  address 
Queue  request  to  the  LLC 
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3 

', 
5 
6 
7 
8 
9 
10 

n 
:2 

15 

u 

15 
16 
17 
18 
19 
20 
21 
22 
25 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
59 
40 
41 
42 


.TITLE  DLXLIN  -  DLX  Line  control  routines 
.IDENT  /V05.00/ 
.ENABL  LC 

Copyright  (C)  1982,  1985,  1985  by 

Digital  Equipment  Corporation,  Maynarti,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  above  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  Se  construed  as  a  commitment  by  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

DLX  Line  control  routines 

Distributed  Systems  Software  Engineering 

Ident  H-'story: 

4.00  07-NOV-85 

DECNET-IIM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V5.0 
DECnet-Micro/RSX  Vl.O 
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SYMBOL  CROSS  REFERENCE 
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PAGE  1 

CREF   OA.OO 


SYMBOL  VALUE 


REFERENCES 


DEALUN 

r  ♦**««»   GX 

9-202 

)LXERR 

000020  R 

#7-88 

)LXLUN 

000200  RG 

#9-200 

)LXMSG 

000004  R 

#7-86 

)LXQ10 

000026  RG 

#8-110 

3LXTXT 

000005  R 

#7-87 

fMTLIN 

=  •***»*  GX 

8-138 

G.LUNA 

=  000000 

9-206 

lE.UPN 

=  ******  GX 

8-158 

loss 

000000  R 

#5-66 

LCSNTL 

=  000200 

#6-75 

LCSOWN 

=  000400 

#6-75 

LFSMLT 

=  040000 

#6-75 

LFSREA 

=  000001 

#6-75 

LFSSEG 

=  100000 

#6-75 

LFSSKP 

=  000004 

#6-75 

LF$VR2 

=  000010 

#6-75 

LFSZER 

=  000002 

#6-75 

LPSMPT 

=  000010 

#6-75 

LPSMUX 

=  000004 

#6-75 

LPSNXC 

=  100000 

#6-75 

LPSTRB 

=  000002 

#6-75 

LPSUNT 

=  000001 

#6-75 

LPSWCN 

=  000040 

#6-75 

LPSWDV 

=  000020 

#6-75 

LPSWLD 

=  000360 

#6-75 

LPSUTR 

=  000200 

#6-75 

LPSWUN 

=  000100 

#6-75 

LSSACT 

=  000040 

#6-75 

LSSBBi 

010000 

#6-75 

LSSEu. 

-  001000 

#6-75 

LSSi'\\ 

=  000001 

#6-75 

LSSC^u 

=  000002 

#6-75 

LSSBSi 

=  000004 

#6-75 

LSSCHN 

=  000001 

#6-75 

LSSCMB 

=  000002 

#6-75 

LSSCOS 

=  000004 

#6-75 

LSSCUS 

=  000004 

#6-75 

LSSDDT 

=  001000 

#6-75 

LSSDEA 

=  000100 

#6-75 

LSSDLM 

=  001004 

#6-75 

LS$DLT 

=  002000 

#6-75 

LSSDTE 

=  000010 

#6-75 

LSSHBT 

r  000400 

#6-75 

LSSHTM 

=  010000 

#6-75 

LSSINA 

=  000010 

#6-75 

LSSIND 

=  000020 

#6-75 

LSSINI 

=  000040 

#6-75 

LSSLCT 

=  020000 

#6-75 

LSSLMB 

-  000002 

#6-75 

LS$LOO 

=  040000 

#6-75 

LSSMDI 

=  020000 

#6-75 

8-176 


8-179 


8-149 


8-165 


6-75 
6-75 

6-75 
6-75 


6-75 


6-75 
6-75 

6-75 


6-75 


6-75 


6-75 


6-75 


ni  XQio 
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227 
228 
229 
230 
231 
232 
253 
23A 
235 
236 
237 
238 
239 
2-10 
241 
2A2 
243 

244  000346 

245  000350 
246 

247  000352 

248  000354 

249  000356 

250  000360 

251  000362 
252 

253  000364 

254  000370 

255  000374 
256 

257  000376 

258  000400 

259  000404 

260  000410 

261  000412 

262  000414 
263 

264  000416 

265  000422 

266  000424 

267  000426 

268  000430 

269  000432 
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.SBTTL  Conuert  decimal  to  binary 

*«-CDI8-Conuert  decimal  to  binary 

Conuert  a  string  of  ASCII  decimal  characters  to  binary. 

Inputs:  ... 

RO  =  Address  of  first  byte  in  the  <Line-id>  string 

R3  =  Legal  terminating  character 

R4  =  Address  of  the  end  of  the  string  +1 


Outputs: 
RO 


005001 

112002 
020400 
103417 
120302 
001415 

162702  000060 
020227  000012 
103014 


012700  000012 


060201 
000756 

032701  177400 
001001 
005727 
000261 


Address  of  next  byte  in  the  <Line-id>  string 
R1  =  Con^/erted  result 
'C  Clear  -  Successful  conversion 
'C  Set   -  Illegal  character  in  the  string 

;  Get  a  free  register 
;  Clear  accumulation 


CDTB:: 

SAVRG 

<R2> 

CLR 

R1 

10$: 

MOVB 

(R0)+,R2 

CMP 

R4,R0 

BLO 

20i 

CMPB 

R3,R2 

BEQ 

20$ 

SUB 

#'0,R2 

CMP 

R2,#10. 

BHIS 

30$ 

SAVRG 

<R0> 

MOV 

#10.,R0 

CALL 

aCEMUL 

RESRG 

<R0> 

ADD 

R2,R1 

BR 

10$ 

20$: 

BIT 

*177400,R1 

BNE 

30$ 

TST 

(PC)  + 

30$: 

SEC 

RESRG 
RETURN 

<R2> 

Get  the  next  character 

Reached  the  end  of  the  string  yet? 

If  LO,  yes 

Is  this  a  legal  terminating  character? 

If  EQ,  yes 

Normalise  the  character 
Is  it  within  range? 
If  HIS,  no 

Save  register 
Set  up  the  multiplicand 
Multiply  it  out 
Restore  register 
Accumulate  result 
and  loop 

Is  the  result  a  byte  quantity? 

If  NE,  no 

Indicate  success 

Illegal  character  or  number  too  large 

Restore  register 


ni  y«;ilR  -  ni  X  <;uhroutinps 
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DLXSUB  -  DLX  subroutines 
Scan  databases  for  <Line-1d> 


7SR 

001670 

116167 

000014 

000005G 

MOVB 

/SQ 

001676 

001422 

BEQ 

7ftn 

001700 

032711 

000020 

BIT 

/(SI 

001704 

001417 

BEQ 

76? 

001706 

116700 

00001 1G 

M0V8 

7^', 

001712 

120061 

000014 

CMPB 

7M 

001716 

103342 

BHIS 

/ftS 

/Aft 

001720 

006300 

ASL 

/ft/ 

001722 

006300 

ASL 

/fta 

001 72A 

060100 

ADD 

7ft9 

001726 

116067 

000022 

000004G 

MOVB 

770 

001734 

016067 

000024 

000022G 

MOV 

7/1 

001742 

000414 

BR 

//? 

//•! 

001744 

105767 

00001 IG 

50$: 

TST8 

77; 

001750 

001325 

8NE 

77"; 

001752 

032767 

000400 

000012G 

BIT 

77(^ 

001760 

001405 

BEQ 

777 

001762 

005767 

OOOOOOG 

TST 

//8 

001766 

001002 

BNE 

779 
780 
781 

001770 

CALLR 

001774 

006302 

60$: 

ASL 

78? 

001776 

067702 

OOOOOOG 

ADD 

78^ 

002002 

011200 

MOV 

/84 

002004 

100004 

BPL 

785 

002006 

116702 

00001 IG 

MOVB 

7aft 

00201? 

060002 

ADD 

78/ 
788 
789 

00?014 

006302 

ASL 

002016 

011267 

000016G 

70$: 

MOV 

790 

791 

002022 

000241 

90$: 

CLC 

792 

002024 

100$: 

RETURN 
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L.NSTA(R1),$PBLK+T$NSTA 


50$ 

#LF.MTP,(R1) 

50$ 

$PBLKt1$5LNt1,R0 

R0,L.NSTA(R1) 

30i 


if  EQ,  can't  be  a  multi-point  master 

Is  this  a  multi-point  line? 

If  EQ,  no 

Get  logical  tributary  # 

Is  it  valid  for  this  line? 

If  HIS,  no 


Form  double  word  offset 
Offset  into  system  line  table 


RO 

RO 

R1,R0 

L..^PF(RO),$PBLK+T$SFLG 

L.MPF+S.NMST(RO),$PBLK+T$NMST 

60$  ;  Re-enter  common  code 

$P8LK+T$SLN+1  ;  Old  user  specify  a  tributary  #? 

30$  ;  If  NE,  yes 

#LF.8R0,$PBLK+T$SLF  ;  Is  this  a  broadcast  channel? 

60$  ;  If  EQ,  no 

$ACESS  ;  Should  we  dynamically  assign  a  port? 

60$  ;  If  NE,  no 

FNDBR  ;  Find  a  free  broadcast  port 

R2  ;  Compute  address  of  entry 

aLLCTA,R2  ;  in  the  reverse  mapping  table 

{R2),R0  ;  and  get  the  contents 

70$  ;  If  PL,  point-to-point  connection 

$P6LK  +  T$SLN*-1,R2;  Get  the  logical  tributary  # 

R0,R2  ;  Compute  address  of  entry 

R2  ;  in  the  reverse  mapping  table 

(R2),$PBLK+T$ASN;  Store  current  PDV  and  Channel 

;  Indicate  success 


ni  t'^nn    -    ni  »    ciihrniitinpc 
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DLXSUB  CREATED  BY     MACRO     ON  28-JUN-85   AT   22:56 

SYMBOL    CROSS   REFERENCE 


SYMBOL  VALUE 


ACHCK 

ASSIGN 

SLXIO 

BUFCHK 

CAT5 

CDTB 

CEMUL 

CHKCHR 

CLACT 

COASN 

CVTBL 

C.BUF 

C.CHRL 

C.CNT 

C.DATI 

C.LIN 

C.STAT 

DEASSN 

DSLIN 

FILCHN 

FINDC 

FINDL 

FNDBR 

FNDFR 

FNDLA 

FNDLN 

FNDPR 

GTSLN 

IE. MOD 

IE. NOD 

lE.NSF 

lE.PRI 

lE.RSU 

lE.SPC 

ISSAS 

I.PRM 

I.TCB 

KISAR6 

LDBGT 

LFSRSR 

LF.ACT 

LF.BRO 

LF.BWT 

lf.ena 

LF.LPB 
LF.MDC 
LF.MFL 
'  F.MTP 
.F.PAC 
lF.PD* 
LF.REA 


-   ****** 


GX 

&00000  RG 
«••»••  GX 
0001 OA  RG 
00022A  RG 
0003'.6  RG 
«♦•*••  GX 
0OOA3A  RG 
000610  RG 
000526  RG 
000340  R 
OOOOK 
000010 
000020 
000002 
000006 
000006 
000576  RG 
000716  RG 
000726  RG 
001246  RG 
001262  RG 
001  K2  RG 
001350  RG 
001 504  RG 
002026  RG 
002254  RG 
002320  RG 
GX 
GX 
GX 
GX 
GX 
GX 


=  ****** 
=  ****** 


.*****   GX 


100000 
100000 
000400 
000007 
002000 
001000 
000100 
004000 
000020 
C0C20C 
040000 
010000 


GX 
GX 
GX 


REFERENCES 

7-155 
#6-69 

14-472 
#7-140 
#8-186 
#9-244 

8-203 

7-162 
#12-574 

6-69 

8-188 
*14-451 

10-293 
»14-452 

10-295 

25-10"^ 
»10-2^^ 
#12-3 
#13-4,  . 
#14-439 
#16-567 
#16-599 
#15-508 
#17-660 
#18-718 

16-600 
#20-903 

13-414 

23-992 

17-689 

16-635 

16-632 

17-661 

7-165 

5-48 

7-140 
*7-160 

16-567 
•10-287 

14-447 

14-480 
#5-30 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 


19-836 

19-853 

9-259 

#10-285 

#11-325 
8-207 
14-470 
10-300 
14-459 
10-299 


13-415 


18-779 

19-876 
#19-816 

#21-931 


•7-143 
7-161 

•19-829 


6-93 
18-775 


17-667 


17-662 
16-605 
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19-863 
25-1035 


12-358 
#8-223 

14-471 

10-302 
•14-463 

10-301 


19-870 


•7-144 
14-441 


12-396 

26-1058 


•7-145 
14-442 


7-148 
14-443 


•7-153 
19-829 


•7-154 
19-831 


•7-158 
19-832 


•7-159 
20-903 


-760 


26-1060 


rDCATCh     Qv        MAfDn        nM     3R-I1IM-RS     AT     PP-S^ 


PAfiF    ? 


n  u 


_J 


EvL  -  Event  logger  process 

LOG  NETWORK,  EVENT 


116 

117 

118 

119 

120 

121 

122 

123 

12A 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

UO 

Kl 

142 

K3  000042 

005765 

000004 

144  000046 

001002 

1'.5  000050 

000167 

000344 

146  000054 

147  000060 

105525 

148 

149  000062 

150  C00070 

010063 

000002 

151  000074 

010300 

152  000076 

062700 

000020 

153  000102 

111120 

154  000104 

116120 

000004 

155  000110 

005020 

156  000112 

016102 

000002 

157 

158  000116 

012220 

159 

160 

1  C^  1 

000003 

'6  ! 
162 

163 

164  000126 

012220 

165  000130 

012220 

166  000132 

012220 

167  COO! 34 

'68 

169  000136 

012220 

132763 

000001  000020 

170  000144 

001414 

171  000146 

132763 

000100  C00020 

172  000154 

001403 
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.S8TTL  LOG  NETWORK  EVENT 

♦*-NELOG-LOG  NETWORK  EVENT 

LOG  NETWORK  EVENT  FROM  A  COMM/EXEC  PROCESS.  IF  THE  EVENT  IS  PRESENT 
IN  THE  COUNTER  CONTROL  TABLE,  THE  INCOMING  BUFFER  AS  DESCRIBED  Br 
THE  EVENT  CONTROL  MASK  AND  R4  WILL  BE  ASSUMED  TO  BE  A  COUNTER  BLOCK. 
THE  ENTIRE  COUNTER  BLOCK  WILL  BE  ZEROED  AND  THE  FIRST  WORD  WILL  BE 
FILLED  IN  WITH  THE  TIME  SINCE  MIDNIGHT. 

S: 
RO  -  EVENT  CLASS  AND  TYPE 
Rl  -  POINTER  TO  3  WORD  CONTROL  BLOCK: 

.WORD   EVEN'  CONTROL  MASK 

.WORD   POINTER  TO  EVENT  DESCRIPTOR  BLOCK 

.WORD   CALLING  PDV  INDEX 

R4  -  CCB  ADDRESS,  DATA  AREA  POINTER  OR  LINE-ID 
R5  -  POINTER  TO  EVENT  LOGGER  PROCESS  DATABASE 

OUTPUTS: 

'C  CLEAR  -  EVENT  SUCCESSFULLY  PROCESSED 
•C  SET   -  ERROR  PROCESSING  EVENT 


INPUTS: 


REGISTERS  MODIFIED: 

RO,  Rl,  R2,  R3,  R4 


NELOG: 


5$: 


TST  E$TC8(R5) 

BNE  5$ 

JMP  110$ 

CALL  ALLOC 

BCS  65$ 


SAVRG 

MOV 

MOV 

ADD 

MOVB 

MOVB 

CLR 

MOV 

MOV 

.REPT 

MOV 

.ENDR 

MOV 
MOV 
MOV 
MOV 

BITS 
BED 
BIT8 
BEQ 


<R0,R1,R4> 

R0,E.EVT(R3) 

R3,R0 

#E.CTL,RO 

(Rl),(R0)t 

4(Rl),{R0)t 

(R0)  + 

2(ftl),R2 


(R2)i 

3 

(R2)< 


,(RO)t 
.(RO)t 


IS  THE  EVENT  LOGGER  RUNNING? 

BR  IF  YES 

IF  EQ,  NO  ...  CAN'T  LOG  THE  EVENT 

ALLOCATE  AN  EVENT  BUFFER 

IF  CS,  ALLOCATION  FAILURE 

SAVE  INITIAL  CALLING  PARAMETERS 
FILL  IN  EVENT  CLASS  AND  TYPE 
COPY  ADDRESS  OF  EVENT  BUFFER 
POINT  TO  CONTROL  MASK 
FILL  IN  CONTROL  MASK 

AND  CALLING  PDV  INDEX 
CLEAR  OUT  SIZE  OF  ADDITIONAL  DATA 
GET  POINTER  TO  EVENT  DESCRIPTOR  BLOCK 

FILL  IN  LINE-ID 

FILL  IN  EVENT  PARAMETERS 


(R2)*,(R0)t 
(R2)  +  ,(R0)'- 
(R2)»,(R0)+ 
(R2)t,(R0)* 

*EV.CCB,E.CTL(R3) 
20$  ; 

*EV.LCB,E.''TL{R3) 
10$ 


FILL  IN  REMOTE  NODE  ADDRESS 

FILL  IN  MODULE  ID 

FILL  IN  X.25  PORT  # 

FILL  IN  X.25  LOGICAL  CHANNEL 


IF  EQ,  NO  CCB  PRESENT 

IF  EQ,  USE  LINE-ID  FROM  EVENT  DESCRIP'OR  BLOCK 


Cl/ClLiT 


I  nrrc n    aanr n  c  c 
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SYMBOL 

VALUE 

REFERENCES 

ACSDNT 

=■■  000002 

#5-61 

AC$X25 

=  000001 

#5-61 

AE$CIR 

=  000003 

#5-61 

AEtllN 

=  000001 

#5-61 

ACSMOD 

=  u00004 

#5-61 

ALLOC 

000532  R 

9-146 

#11-335 

CEACC 

OOOOH  R 

#8-95 

13-427 

13-433 

13-448 

CL$AS2 

=  010500 

#5-61 

CLSDLL 

=  000500 

#5-61 
5-61 

5-61 
5-61 

5-61 

5-61 

CLSECL 

=  000300 

#5-61 

5-61 

CLSLDN 

^   010A0O 

#5-61 

5-61 

CLSMAN 

=  000000 

#5-61 

5-61 

5-61 

5-61 

CLSPAZ 

=  034100 

#5-61 

5-61 

^-^I 

CLSPLH 

=  034000 

#5-61 

5-61 

5-61 

5-61 

CLSPlL 

=  000600 

#5-61 

CLSPRT 

=  034200 

#5-61 

CLSROU 

=  010000 

#5-61 

5-61 

5-61 

CLSSES 

=  000200 

#5-61 

5-61 

5-61 

CLSSGE 

=  035000 

#5-61 

5-61 

5-61 

CLSSSE 

=  035100 

#s-61 

5-61 

5-61 

5-61 

CLSTRN 

=  000400 

#5-61 

5-61 

5-61 

5-61 

5-61 

5-61 

5-61 

5-61 

5-61 

CLSXL2 

=  013700 

#5-61 

CL$XL3 

=  013600 

#5-61 

5-61 

CL$X2b 

=  013500 

#5-61 

5-61 

C SPORT 

000014 

13-451 

C.BUF 

000014 

9-174 

9-175 

9-255 

CLIN 

000006 

9-173 

DlSAST 

=  000002 

#5-61 

DLSHLT 

=  000000 

#5-61 

OLSIST 

=  000001 

#5-61 

dlsmai 

=  000004 

#5-61 

DLSOFF 

=  000001 

#5-61 

DLSON 

=  000000 

#5-61 

dlsrun 

=  000003 

#5-61 

DLSSMU 

=  000002 

#5-61 

DLSSVN 

=  000005 

#5-61 

EFSACT 

=  000001 

#5-61 

EVSACF 

-  000201 

#5-61 

EVSADR 

=  000420 

#5-61 

EVSADU 

=  000417 

#5-61 

EVSAPL 

=  000400 

#5-61 

E'/SARC 

=  000421 

#5-61 

EvSAur 

=  000010 

#5-61 

EVSAUS 

=  000003 

#5-61 

EVSCDf 

=  000520 

#5-61 

EVSCOZ 

=  00001 1 

#5-61 

EVSDBR 

r  000302 

#5-61 

£V$GAS 

^  035101 

#5-61 

E\/$HCE 

=  035114 

#5-61 

5-61 


5-61 


5-61 
5-61 
5-61 


5-61 


5-61 


5-61 


5-61 


5-61 
5-61 


5-61 
5-61 


5-61 
5-61 


5-61 
5-61 
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412 


386 
38' 
388 
58'5 
39C 
39^ 
392 
395 
39A 
395 
396 

357 

398 
399 

402 
403 

404  000642 

405  000650 

406  000656 

407  000664 

408  0006/0 

409  000672 

410  0006^6 
000704 
0007^0 

413  000714 
414 

415  000716 

416  000724 

417  000730 

418  000734 
419 

420 
421 
422 
423 

424 

425 
426 
427 

428  000/36 

429  G00742 
4  30  000746 

43' 

4  32  000^52 
433  000^5^ 
4  34  000/60 
435  000/62 
4  36  000/66 
457  0007/0 
438 

4  39  000772 
4i.0  0007/6 

441  001000 

442  00^002 


.SBTTL  Map  node  name  to  node  address 
^•-MAP^J4M-Map  node  name  to  node  address 


J. an  the  alias  and  remote  name  lists  to  provide  a  mapping  from  the 
node  name  to  the  node  address. 


Inputs: 

R5  =  Address  of  database  descriptor 

Outputs: 

'C  Clear  -  Valid  node  name  mapping  found 

'C  Set  -  Unable  to  find  a  node  name  mapping 

SfLAGS  -  bit  0  is  set  if  the  node  is  toopback  node 

Registers  modified: 
RO,  R2,  R3,  R4 


0127o5  000002  000022  MAPNAM::MOV 


142/6/  000001  OOOOOOG 


103155 

01 //04  OOOOOOG 

016465  000022  000012 

012/00  OOOOOOG 

001555 

016465  000014  000012 
012/00  OOOOOOG 

001545 


0^6/05  OOOOOOG 

016303  OOOuOOG 

016303  OOOOOOG 

0''0402 

06^702  000000 

011246 


012602 
001461 

016200 
001402 
020003 
001366 


5$: 
10$: 


000010 


BICB 

RECMAP 

CALL 

BCC 

MOV 

MOV 

MOV 

CALL 

BEQ 

MOV 
MOV 
CALL 
BEQ 


MOV 

BITS 

BNE 

.ENDC 


#ER$N0D,N$ERRC(R5) 
#1,$FLAGS 

CHKADD 

97$ 

aDECPr,R4 

D$H0ST(R4),N$SN0D(R5) 

#H0ST,R0 

CHKNAM 

100$ 


Initialize  as  not  a  loopback  node 
Recover  APR6  mapping 
Is  node  name  an  ascii  node  address? 
If  cc,  yes 

Point  to  the  DEC  home  block 
Assume  name  is  '$H0ST' 
.rieck  if  it  really  is 
Check  for  name  match 
If  Ed,  it  is 


D$LNUM(R4),N$SN0D(R5)  ;  Assume  name  is  '$L0CAL' 


#LOCAL,R0 

CHKNAM 

100$ 


.IF  DF  N$$SLI 


#-1,R3 

#LT.SLI,$LTVPE 

5$ 


$I0PKT,R3 

I.rC8(R3),R3 

T.UC8(R5),R3 

R4,R2 

*D$ANN,R2 

(R2),-(5P) 

SCEACC 

(SP)*,R2 

80$ 

A.UC8(R2),R0 

20$ 

R0,R3 

lOi 


Chect  if  it  really  is 
Check  for  name  match 
If  EQ,  it  is 


Force  no  TI:  match  for  SLI  interface 
Is  this  a  system  interface  link? 
If  NE,  yes 


Recover  I/O  packet  address 
Find  requesting  task's  TI: 


Scan  the  alias  list  first 
"^oint  to  the  alias  listhead 
Get  address  of  next  entry 
Gain  access  to  the  block 
Retrieve  virtual  address 
If  EQ,  no  more  entries 

Get  UC8  for  this  entry 

If  EQ,  global  alias 

Is  entry  for  this  task's  TI; 

If  NE,  no  ...  keep  looking 


N     1 


SESoSR   -   Session  control   user 
''ac  ""cae  name   to  node  address 
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SYMBOL 

VALUE 

REFERENCES 

E$NRT 

000042 

#6-49 

ESNRTP 

000005 

#6-49 

ESNSEG 

000010 

#6-49 

ESNTIM 

000046 

#6-49 

ESNUSE 

OOC004 

#6-49 

ESSTRT 

000006 

#6-49 

FLSRES 

:;   ****** 

GX 

18-600 

GETLDB 

=   ****** 

GX 

9-209 

GFTSDB 

r  ****** 

GX 

8-134 

HOST 

-  ****** 

GX 

14-411 

I.TCB 

r  ****** 

GX 

14-429 

KISAR6 

-  ****** 

GX 

*8-129 

•14-406 

LOBRT 

r  ****** 

GX 

9-227 

LF.MMF 

=  000200 

7-101 

LF.MSF 

=  000100 

7-104 

LOCAL 

r  ****** 

GX 

14-416 

LT.LCL 

=  000001 

9-188 

LT.LPL 

=  000002 

9-182 

L.DCR 

000100 

♦16-549 

L.FLAG 

oooou 

•7-96 

7-101 

7-104 

L.ILTT 

000066 

*7-78 

L.LSFl 

000044 

•18-603 

L.REM 

000006 

•9-201 

L.USTA 

000036 

•16-552 

•16-535 

L.WIND 

000040 

17-575 

MAPNAM 

000642 

RG 

9-173 

#14-404 

MC.CC 

=  000040 

8-136 

MC.CI 

-  000020 

9-211 

MF.CTL 

=  000010 

8-136 

9-211 

MOV  IMG 

000624 

R 

11-326 

12-356 

#13-377 

NC.FM2 

=  000002 

11-311 

NMSARA 

=   176000 

14-499 

14-502 

NSSSDl 

=  000002 

16-552 

NTSCC 

=  000016 

8-135 

NTSCON 

=  000000 

9-210 

NTSINT 

=  000004 

18-598 

NT. INT 

=  000002 

17-577 

NSERRC 

000022 

•10-254 

♦14-404 

NSLLTM 

000024 

8-129 

NSSLA 

000016 

•9-176 

NSSNOD 

000012 

9-179 

•9-183 

•14-410 

N$$ECL 

-   ****** 

9-222 

N$$EVL 

=■•  000001 

#4-2 

N$$MLL 

=  000001 

8-129 

N$$NCr 

=  000001 

9-222 

9-222 

NStSES 

■-   000001 

#6-62 

9-222 

NtSSLI 

-    ****** 

7-80 

9-195 

14-420 

N$$VCT 

-  ****** 

8-129 
18-604 

8-131 

8-145 

REMLNK 

-  «*♦*♦* 

GX 

8-150 

9-228 

RF.LOO 

=  100000 

#6-56 

14-495 

RTRSES 

-   ••♦♦.♦ 

GX 

8-13i 

9-203 

»U-415         .14-498 


9-203 


9-223 


14-499 


14-406 


•14-505 


17-574 


•19-629 


18-600 


•20-685 


18-602 
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'lutdown 


H2 
K5 
UA 
145 
U6 
U7 
K8 

150 
151 
152 
153 
154 
155 
156 
157 
158 
159 

160  000152 

161  0001 3A 

162  OOOUO 

163  000144 

164  000150 
165 

166  000152 
167 

168  000160 

169  000164 

170  000170 

171  000172 
172 

173  000176 

174  000202 

175  000210 

176  000212 
177 

178  000216 

179  000222 

180  000226 


.SBTTL     Line  shutdown 

**-SHUT-Line   shutdown 

This  routine  is  entered  when  another  LLC  (typically  ourselves)  has 
requested  that  a  line  be  shutdown. 

Inputs: 

R4  =  Address  of  the  control  enable  CCB 
C.NSP   -  Source  PDV  and  Channel 
C.STS   -  Stop  modifier: 

Bit  0=0  -  Stop  and  disable 
Bit  0=1  -  Stop  only 
R5  =  Address  of  the  physical  link  access  block 

Registers  modified: 

RO,  R1,  R2,  R3,  R4,  R5 


SHUT: 


112715  000001 


112765  000001  000007 


SAVRG 

CALL 

CALL 

Move 

RESRG 


OOOOOOG 
000012 

000012 


012700  000010 


■ :  ■  0 

0  ■"  ji 
001346 
010465 


OOCOOOG  000012 
000020 


032764 
001002 
052700 


005065  000022 


10$: 


:iov 

TST 
BNE 

MOV 

MOV 
BIT 
BNE 
BIS 

CLR 

CALL 

CALLR 


<R5> 

GTSLN 

STNMST 

#LN.0FF,(R5) 

<R5> 


Save  address  of  physical  link  access  block 

Get  SLN  and  logical  tributary  # 

Compute  address  of  network  management  state  byte 

Set  state  to  'OFF' 

Recover  address  of  physical  link  access  block 


MOVB    #LN.0FF,L$STT(R5) 


#IE.A80,RO  ;  Assume  a  state  error 

L$CTL(R5)  ;  Is  there  a  pending  control  function? 

CC8DN  ;  If  NE,  yes  ...  report  a  state  error 

R4,L$CTL(R5)  ;  Save  address  of  the  control  enable  CCB 

#LR$STP,RO  ;  Assume  only  a  stop  is  required 

#LENB,C.STS(R4)  ;  Is  only  the  stop  function  required? 

10$  ;  If  NE,  yes 

#LR$DIS,RO  ;  Include  a  disable  as  well 

L$TCB(R5)  ;  No  active  user  now 

FNCAB  ;  Abort  any  pending  control  functions 

ABORQ  ;  Abort  current  operations  on  the  link 
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Symbol  table 


19-3 


LF.LPB= 

LF.MDC= 

LF.MFL= 

LF.MTP= 

LF.PAC= 

LF.RDY= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LLCRS  = 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TR!= 

LR$CTL= 

LR$DEA= 

LR$OIS= 

LR$STP= 

LS$DAT:= 

LS$ERR= 

LS$FRE= 

LS$IDL= 

LSSMSK= 

LS$RST= 

LS$STP= 

LS$STR= 

L$CTL 

LSERR 

LSFLG 

ABS. 


001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

««*»*♦  GX 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000003 

000200 

000020 

000010 

000004 

000200 

000000 

000001 

000037 

000020 

000010 

000002 

000012 

000010 

000001 


177776 
001372 
Errors  detected: 


000 
001 
0 


L$FNC 

000014 

LSLEN 

000026 

LSLIN 

000006 

L$LST 

000000 

L$LUN 

000024 

LSRCV 

000020 

L$RSR 

000002 

LSSTT 

000007 

LSTCB 

000022 

LSTIM 

000004 

LSTIMl 

000005 

L$TIP 

000003 

LSXHT 

000016 

L$$ASG= 

000000 

L$$DRV= 

000000 

L$$P11= 

000001 

L$$11R= 

000000 

L.COST 

000015 

L.CTL 

000012 

L.CVA 

177776 

L.DDM 

000002 

L.DDS 

000004 

L.DLC 

000003 

L.DLM 

000006 

L.DLS 

000010 

L.FLG 

000000 

L.KRBA 

000016 

L.LEN  = 

000022 

L.MPF 

000022 

L.NMST 

000020 

L.NSTA 

000014 

L.OWNR 

000021 

L.UNT 

000013 

M$$CRB= 

000124 

M$$CRX= 

000000 

M$$FCS= 

000000 

M$$MGE= 

000000 

M$$NET= 

000000 

M$$0VR= 

000000 

NULL 

000336R 

NXINA  = 

*»»».♦  6X 

(RW,I,GBL,A8S,0VR) 

(RW,I,LCL,REL,CON) 

•••  Assembler  statistics 


Work  file  reads:  61 


Work  file  writes: 
Size  of  work  f i  le: 
Size  of  core  cool 


66 

19564  Words 
17608  Words 


N$$ACC= 

000001 

STRCHN= 

******  f 

N$$8UF= 

000001 

STRTC 

001054P 

N$$LDV= 

000001 

S$$WRG=: 

000000 

M$$MCP= 

000001 

S$$YSZ= 

007600 

,^$$MLL= 

000001 

S.COST 

000001 

N$$HOV= 

000010 

S.FLG 

000000 

N$$NCT= 

000001 

S.LEN 

000004 

N$$PEM= 

000001 

S.NHST 

000002 

PLAST  = 

»**«*♦  GX 

S . OWNR 

000003 

PRO$OV= 

000000 

TMOUT 

000232RG 

P$$P45= 

000000 

T$ASN 

000016 

P$$WRD= 

000000 

TSCTL 

000002 

Q$$0PT= 

000010 

T$DDM 

000014 

RCVCHR= 

******  GX 

TSDLC 

000015 

RCVCP 

000444R 

T$FLG 

000006 

RCVDN  = 

******  GX 

T$KR8 

000020 

RCVERY 

000340R 

TSLEN 

000024 

RLSCHN= 

******  GX 

T$LIN 

000003 

RQALT  = 

**♦«♦*  GX 

T$NAM 

000000 

RQDON  = 

******  GX 

TSNMST 

000022 

R$$DER= 

000000 

TSNSTA 

000005 

R$$K11= 

000001 

TSPDV 

000007 

R$$SND= 

000000 

TSSFLG 

000004 

R$$11M= 

000000 

T$SLF 

000012 

SF.ACT= 

000200 

TSSLN 

000010 

SF.ENA= 

000100 

T$$KMG= 

000000 

SF.LP8= 

000004 

T$$HIN= 

000000 

SF.MFL= 

000040 

U.VCB  = 

******  6 

SF.PAC= 

000020 

V$$CTR= 

001000 

SF.REA= 

000010 

XF.ASS= 

000030 

SF.SER= 

000001 

XF.DEA= 

000040 

SF.SVC= 

000002 

XF.GMC= 

000010 

SF.UNL= 

000040 

XF.0FF= 

000010 

SHUT 

000132R 

XF.ON  = 

000000 

SFART 

000040R 

XF.REA= 

000020 

STLNK  = 

***»*«  GX 

XF.SMC= 

000000 

STNMST= 

******  GX 

XF.STD= 

000200 

STOPC 

001162RG 

XF.STP= 

000010 

STPCHN= 

******  GX 

XMTA8  = 

******  G 

STPRQ  = 

»*♦*»»  GX 

XHTCP 

000352R 

(  77  Pages) 
(  67  Pages) 


XV.SRO= 

XV.0TH= 

X$$DBT= 

ZF.COU= 

ZF.DDf1= 

ZF.DIA= 

ZF.DLC= 

ZF.DVP= 

ZF.1NI= 

ZF.KMX= 

ZF.LLC= 

ZF.LMC= 

ZF.MAN= 

ZF.MFL= 

ZF.MTM= 

ZF.MUX= 

ZF.PSE= 

ZF.SLI= 

ZF.TIM= 

ZF.X3P= 

ZS.ASN= 

ZS.8SY= 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FL6 

Z.LEN  = 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

SBIAG  = 

$BUFFG= 

$BYTES= 

$DLXCH= 

SDLXTB 

$IOS  = 

$VA   = 

.$$$$.= 


000001 

000000 

000000 

001000 

000001 

004000 

000002 

100000 

040000 

000020 

000004 

000100 

020000 

000010 

000400 

000040 

002000 

010000 

000200 

000000 

100000 

140000 

000014 

000016 

000000 

000010 

000016 

000006 

000020 

000004 

000012 

000007 

******  GX 

******  GX 

******  GX 

******  GX 

OOOOOORG 

******  GX 

******  GX 

000034 


Operating  system:  RSX-11M/PLUS 

Elapsed  time:  00:00:26.34 
SV:DLXCEX.V2,[131,134]DLXCEX/CR/-SP=SY:n,nRSXMCM.SML/ML,[130,1lO]NETLIB/ML,[130,lO]RSXMCM/PA:1,[l31,10]DLXCEX 


DlXCEX 
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DLXCHR  - 
Retrieve 

175 

176 

177 

178 

179 

180 

181 

182 

183 

18^ 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

20^; 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2U 

215 

216 

217 

218 

219 
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destination  Ethernet  address 


000206 
0002K 

000216 
000224 
000230 


000250 
000256 


026027 
103436 


016401 
062701 

000006 


010001 


000002  000006 


000004 
000006 


.S8TTL  Retrieve  destination  Ethernet  address 
**-RCVDAD-Retrie(/e  destination  Ethernet  address 

Retrieve  the  destination  Ethernet  address  for  this  received  message. 

Inputs; 

RO  =  Address  of  characteristics  block 

R1  =  Default  status  (CS.IGN  =  Characteristic  ignored) 

R3  =  Address  of  the  I/O  packet 

R4  =  Address  of  the  receive  CC8 

C.3UF   -  Bias  of  received  message 

C.BUF+2  -  Virtual  address  of  received  message 

C.CNT   -  Length  of  received  message 

C.NSP   -  Virtual  address  of  Ethernet  header 

C.PRO   -  Protocol  type  from  message 

C.ADD   -  Source  address  from  Ethernet  message 

R5  =  Address  of  the  physical  link  access  block 

Outputs: 

R1  =  Status  to  return  for  characteristic 

;  Are  there  at  least  6  bytes  available? 
;  If  LO,  no 

;  Map  to  the  message  buffer 
;  Point  to  the  Ethernet  header 
;  Point  past  destination  address 

;  Save  address  on  the  stack 


000260  062701  000010 
000006 


000300  012760 
000306  012701 

000312 


000006 
000001 


000004 


RCVDAD:  CMP 
BLO 

C.DATI(R0),#6 
10$ 

MAP 
MOV 
ADD 

C.8UF(R4) 

C.NSP(R4),R1 

#6,R1 

.REPT 

Move 

.ENDR 

6 
-(R1),-(SP) 

MAP 
MOV 
ADD 

I.PRM+6(k3) 

R0,R1 

#C.CHRL,R1 

.REPr 

Move 

.ENDR 

6 
(SP)+,(R1)+ 

MOV 
MOV 

ttb. C.DATO(RO) 
*CS.SUC,R1 

Restore  mapping  to  user's  buffer 
Point  to  characteristics  block 
Point  to  output  buffer 


Copy  address  to  output  buffer 


Fill  in  length  of  the  address 
Return  successful  completion 


10$: 


RETURN 
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LLC  to  LLC  control  functions 


61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 


OOOC01 
000000 


0O0C04 


000000 
000001 
000002 


.SBTTL  LLC  to  LLC  control  functions 
Stat  'S  values  for  control  functions 


STOP 
OFF 


==  1 
==  0 


Partial  shutdown  -  stop  only 
Full  shutdown  -  stop  and  disable 


Status  values  fo.'  start  enable 
STRT    ==  4  ;  Startup  the  line 


For  stop  complete  and  start  enable 


LDIS 
LENB 
EN8X 


==  0 
==  1 
==  2 


Line  is  disabled 
Line  is  enabled 
Line  enable  control 
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Control  complete  processing 


474 
475 
476 
'.77 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
49C 
491 
492 
493 
494 
495 
496 

497  000742 

498  000746 

499  000752 

500  000756 

501  000762 
502 

503  000766 

504  000772 
505 

506 
507 
508 

509  000776 

510  001000 

511  001002 

512  001004 
515  001006 
514 

515 
516 
517 
518 


116405  000006 

016400  000014 

016401  000016 

016402  000020 

016403  000022 

105764  000012 


.SSTTL  Control  complete  processing 
**-CTLCCP-Control  complete  processing 


This  routine  is  called  from  the  COHM/EXEC  when  a  control  complete  CCB 
from  another  LLC  has  been  dispatched. 


Inputs: 
R4 


Address  of  the  control  complete  CCb 

C.LIN  -  Index  of  next  routine  to  execute 

C.  TS  -  State  of  the  line  (enable  or  disable)  on  a  stop 

C.aUF  -  PDV  and  Channel  of  target  LLC 

C.aUF+2  -  Address  in  target  PDV  channel  mapping  table 

C.CNT  -  SLN  and  logical  tributary  #  of  <Line-id> 

C.FLG  -  Address  of  the  I/O  packed 

Outputs:  (to  processing  routines) 

RO  =  PDV  and  Channel  of  target  LLC 

R1  =  Address  in  target  PDV  channel  mapping  table 

R2  =  SLN  and  logical  tributary  *  of  <Line-id> 

R3  =  Address  of  the  1/0  packet 

The  N-bit  is  set  from  a  'TST8  C.STS(R4) 


CTLCCP::M0VB 
MOV 
MOV 
MOV 
MOV 


C.LIN(R4),R5 
C.BUf (R4),R0 
C.8UF+2(R4),H1 
C.CNT(R4),R2 
C.FLG(R4),R3 


TST8    C.STS(R4) 
CALLS   aCCPTBL(R5) 


Get  processing  routine  index 

Restore  PDV  and  Channel  of  target  LLC 

Restore  address  in  PDV  channel  mapping  table 

Restore  SLN  and  logical  tributary  tt   oT  <Line-id> 

Restore  address  of  the  I/O  packet 

Sense  the  completion  status 
Dispatch  to  processing  routine 


Control  complete  dispatch  table 
CCPrSL: 


DISP 

ASS 

CfLREI 

DISP 

REA 

CTLRE2 

DISP 

OFF 

CTL0F2 

DISP 

DEA 

CTLDE1 

DISP 

DON 

CTLDON 

.IF  DF  R$$MPL 

DISP  OFL.CTLROF 

DISP  ONL,CTLRON 
.ENDC 


Notify  target  LLC  of  assignment 

Complete  the  reassignment 

Complete  the  off 

Complete  the  deassignment 

Post  I/O  completion  on  the  request 


Complete  reconfiguration  offline  request 
Complete  reconfiguration  online  request 
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Table  ot  contents 

5-  AA    Macro  definitions 

6-  50    Local  data 

7-  88    Exec  uector  table 

8-  132    Physical  link  access  block  storage 
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1,1, 
45 

47 
48 

49  000000 

50  000000 

51  000000 

52  000000 


.S8TTL  Macro  definitions 

.MCALL   SAVRG,RESRG,MAP,$QDLC 
.MCALL   CCSDF$,PD\/DF$,PLADF$,SLTDF$ 


CCBDFS 
PDVDFS 
PLADFS 
SLTDFS 


Define  CCB  offsets 

Define  PDV  offsets 

Define  PLA  offsets 

Define  SLT  offsets 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
-.2 
15 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AC 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
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.IIF  NDF  M$$ACP  .TITLE  DLXQIO  -  ISSUE  1/0  TO  DLX 

.IIF  DF  M$$ACP  .TITLE  DLXAST  -  ISSUE  I/O  TO  DLX  AND  WAIT  FOR  AST 

.IDENT  /V05.00/ 

.NLIST  BEX 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  If  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIlO  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  ISSUE  I/O  REQUESTS  TO  NX:  (DlX) 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  24-MAR-81 

CREATED  FROM  LICHOP,  CONDITIONALIZED  TO  FORK  WHEN  RUNNING  IN 
THE  NETWORK  MANAGEMENT  ACP 

2.C   16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI .1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
0ECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Pljs  V3.0 
DECnet-Micro/RSX  VI. 0 
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OLXQIO 

CREATED 

BY 

MACRO  ON  29 

-JUN-85  AT 

12:23 

PAGE  2 

SYMBOL 

CROSS  REFERENCE 

CREF 

SYMBOL 

VALUE 

REFERENCES 

LStMRT 

=  000020 

#6-75 

LStMWN 

=  OOOOAO 

#6-75 

lSSMXB 

=  001000 

#6-75 

LSSMXR 

=  000020 

#6-75 

6-75 

6-75 

LSSHXW 

=  OOOOAO 

#6-75 

6-75 

6-75 

6-75 

LSSNMT 

=  020000 

#6-75 

LSSNOR 

=  100000 

#6-75 

LSSNTI 

=  000200 

#6-75 

LSSNTL 

=  000001 

#6-75 

LSSNUM 

=  000100 

#6-75 

6-75 

LSSOWN 

=  000010 

#6-75 

LSSPLT 

=  004000 

#6-75 

LSIPRO 

=  01 0000 

#6-75 

LSSPVC 

=  020053 

#6-75 

LSSRET 

=  000200 

#6-75 

6-75 

(,-75 

LSSSER 

=  100000 

#6-75 

LSSSTA 

=  000002 

#6-75 

LSSSVC 

=  000362 

#6-75 

LS$TAD 

=  000020 

#6-75 

LSSTHI 

=  000100 

#6-75 

LS$TH2 

=  000200 

#6-75 

LS$TH3 

=  OOOAOO 

#6-75 

LSSXMT 

=  040000 

#6-75 
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DLXSUB  -  DLX  subroutines 
Validate  characteristics  buffer 


?71 
272 
275 
27/, 
275 
276 
2/7 
278 
279 
280 
281 
282 
285 
28A 
285 
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.SBTTL  Validate  characteristics  buffer 
**-CHKCHR-Validate  characteristics  buffer 

Validate  that  the  characteristics  buffer  is  in  the  correct  format. 
Inputs: 


RO  =  Offset  in  1/0  packet  to  characteristics  buffer 
R5  =  Address  of  the  I/O  packet 


Outputs: 
'C 


000454 

286  000456 

287  000440 

288  000444 

289  000446 
290 

291  000450 

292  000452 
295  000454 

294  000460 

295  000462 

296  000470 
297 

298  000472 

299  000476 

500  000502 

501  000506 

502  000512 
505  000516 
504 

505  000520 

506  000522 

507  000524 


060500 

012001 
011000 

005700 
001425 
020027 
105417 
052761 
001015 

005061 
166100 
162700 
066101 
06270^ 
000754 

000261 


10$: 


000010 
000001 


000006 
000002 
000010 
000002 
000010 


000002 


20$: 
50$: 


Clear  -  Characteristics  buffer  format  is  valid 
Set   -  Characteristics  buffer  format  is  invalid 


CHKCHR::SAVRG 
ADD 
MAP 
MOV 
MOV 


TST 
BEQ 
CMP 
BLO 
BIT 
BNE 

CLR 
SUB 
SUB 
ADD 
ADD 
BR 

SEC 

RESRG 

RETURN 


<R1> 
R5,R0 
(R0)  + 
(R0)+,R1 
(R0),R0 

RO 

30$ 

R0,#C.CHRL 

20i 

#1,C.DATI(R1) 

20i 

C.STAT(RI) 

C.DATKRD.RO 

#C.CHRL,RO 

C.DATI(R1),R1 

*C.CHRL,R1 

10$ 


<R1> 


Get  a  free  register 
Compute  address  of  buffer  descriptor 
Map  to  the  characteristics  buffer 
Get  virtual  address  of  the  buffer 
Get  *  of  bytes  in  the  buffer 

Any  more  bytes  left  in  the  buffer? 

If  EQ,  no  ...  buffer  is  valid 

Enough  space  for  a  characteristics  descriptor? 

If  l8,  no 

Next  characteristics  block  word  aligned? 

If  NE,  no 

Clear  characteristics 

Remove  space  for  this  characteristic 

and  the  common  overhead 
Point  to  next  characteristic  descriptor 

and  loop 

Indicate  error 


DlXSUB  -  DLX  subroutines 
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DlXSUB  -  DLX  subroutines 

Find  <Line-id>  in  the  COMM/EXEC 


794 

795 

796 

797 

798 

799 

800 

801 

S02 

805 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 

815 

816  002026 

817 

818 

819 

820 

821 

822  002034 

005005 

823 

824  002036 

005067 

OOOOOOG 

825  002042 

005067 

000002G 

826  002046 

005067 

G00004G 

827  002052 

005067 

OOOOIOG 

828 

829  002056 

830 

831  002064 

016300 

000002G 

832  002070 

016304 

000004G 

833  002074 

060004 

834 

835  002076 

012703 

000055 

836  002102 

837  002106 

103456 

838  002110 

010167 

OOOOOOG 

839  002114 

020004 

840  002116 

103050 

841 

842  002120 

010102 

843  002122 

844  002126 

103407 

845  002130 

067702 

OOOOOOG 

846  002154 

011202 

847  002136 

132762 

000040 

848  002144 

001003 

849 

850  002146 

012705 

000056 

M  13 

MACRO  V05.05b  Friday  28-Jun-85  22:56  Page  19 
database 

.SBTIL  Find  <Line-id>  in  the  COMM/EXEC  database 

^ 

♦*-FNDLN-Find  <Line-id>  in  the  COMM/EXEC  database 

Parse  the  user  supplied  <Line-id>  string  and  scan  the  COMM/EXEC 
databases  to  find  the  <Line-id>. 

Inputs: 

R3  =  Address  of  I/O  packet 

I.PRM   -  Bias  of  <Line-id>  string 

I.PRM+2  -  Virtual  address  of  <Line-id>  string 

I.PRM+4  -  Length  of  <Line-id>  string 

Outputs: 

R1  =  DDM:       Address  of  system  line  table 

DLC  or  LLC:  Address  of  process  PDV 
'C  Clear  -  <Line-id>  found  in  databases 
'C  Set   -  <Line-id>  not  present  in  databases 


Registers  modified: 
RO,  R2 


000010 


FNDLN::  SAVRG 

.IF  DF 
SAVMAP 
.ENDC 

CLR 

CLR 
CLR 
CLR 
CLR 

MAP 

MOV 
MOV 
ADD 

MOV 
CALL 
BCS 
MOV 

BHIS 

MOV 

CALL 

BCS 

ADD 

MOV 

BITS 

BNE 

10$:    MOV 


<R3,R4,R5> 
R$$MPL 

R5 

$P8LKtT$NAM 
$PBLKtT$CTL 
SP8LKtT$SFLG 
$P8LK*T$SLN 

I.PRM(R3) 

I.PfiM+2(R3),R0 
I.PRM+4(R3),R4 
R0,R4 

#'-.R3 

CATS 

50$ 

R1,$PBLKtT$NAM 

R0,R4 

40i 

R1,R2 

aPDVID 

10$ 

aPDVTA,R2 

(R2),R2        , 

#ZF.MUX,Z.FLG(R2) 

20$  ; 

#'.,R3 


Save  some  registers 

Save  current  mapping 

Initialise  multiplexor  flag 
Initialise  parameter  block 

Map  to  the  <Line-id>  string 

Get  virtual  address  of  the  string 
Compute  address  of  the  end  of  string  +1 


Set  up  allowed  terminating  character 

Convert  process  name  to  RAD50 

If  CS,  illegal  character  in  process  name 

Save  process  name 

At  end  of  the  string? 

If  HIS,  yes  ...  look  for  <Line-id> 

Find  PDV  index  for  this  process 

If  CS,  assume  non-multiplexor 
Get  pointer  to  PDV 


If  NE,  device  is  a  multiplexor 
Set  new  terminating  character 


DLXSUB  -  DLX  subroutines 
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DLXSUB  CREATED  B»     MACRO     ON  28-JUN-85   AT   22:56 

SYMBOi    CROSS   REFERENCE 


PAGE   2 

CREF        04.00 


SVMBOL 

VALUE 

REFERENCES 

LF.SER 

^  OOOWO 

#5-50 

LF.TIM 

=  000010 

#5-50 

Lf .UNL 

=  020000 

#5-50 

16-607 

LF.X2P 

=  000000 

#5-50 

LLCTA 

-  ♦**%•* 

GX 

11-331 

15-515 

18-782 

LN.CLO 

=  000000 

#5-50 

LN.DUM 

=  000005 

#5-50 

LN.LOA 

-  000004 

#5-50 

LN.LOO 

=  000003 

#5-50 

LN.OAU 

=  000003 

#5-50 

LN.OFF 

=  000001 

#5-50 

LN.ON 

=  000000 

#5-50 

6-109 

LN.OOP 

=  OOOOOA 

#5-50 

LN.OPE 

=  000001 

#5-50 

LN.REF 

=  000002 

#5-50 

LN.SER 

=  000002 

#5-50 

LN.STA 

=  000017 

#5-50 

6-108 

LN.SUB 

=  000360 

#5-50 

LN.TRl 

=  000006 

#5-50 

LSLEN 

000026 

25-1034 

LSLIN 

000006 

21-935 

•25-1038 

L.COST 

000015 

#5-50 

L.CTL 

000012 

#5-50 

18-740 

L.CVA 

177776 

#5-50 

L.DDM 

000002 

#5-50 

18-738 

18-750 

L.DDS 

000004 

#5-5'^ 

L.DLC 

000003 

#5-5U 

l.dlm 

000006 

#5-50 

L.DLS 

000010 

#5-50 

L.FLG 

000000 

#5-50 

26-1058 

26-1060 

L.KRBA 

000016 

#5-50 

18-751 

L.LEN 

=  000022 

#5-50 

L.MPF 

000022 

#5-50 

•6-102 

•12-387 

12-390 

15-530 

15-551 

18-769 

L.NMST 

000020 

#5-50 

18-752 

26-1056 

26-1058 

26-1060 

26-1062 

26-1070 

L.NSTA 

OOOOU 

#5-50 

6-94 

12-578 

12-389 

15-508 

15-524 

18-758 

L.OWNR 

000021 

#5-50 

L.UNT 

C00013 

#5-50 

18-742 

MAPAD 

002354 

RG 

#22-956 

23-989 

MAXOV 

r  ****** 

GX 

14-451 

14-452 

N$$VCT 

z   ****** 

10-287 

19-829 

PDVID 

=   ****** 

GX 

18-719 

19-845 

20-904 

PDVTA 

z     ****** 

GX 

17-673 

18-723 

19-845 

20-908 

21-932 

22-962 

PLAST 

=     *♦»*♦* 

GX 

25-1037 

PRCLD 

002416 

RG 

#23-988 

RDBRT 

-      ****** 

GX 

24-1006 

reloc 

-   ****** 

GX 

7-157 

RLSCHN 

002444 

RG 

14-486 

#24-1005 

24-1008 

R$$MPL 

r   ****** 

16-610 

16-625 

19-818 

19-878 

R$$11D 

r  ****** 

5-48 

R$$'1M 

r  000000 

5-48 

R$t'lS 

r   ****** 

5-48 

SF.ACT 

=  00020C 

#5-50 

6-102 

12-587 

12-591 

18-770 
18-763 


26-1070 
26-1062 
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000256 
000260 


175  000156 
174  0001611 
1'5  000172 
176 

177  000176 

178  00020^. 

179  000206 
!80 

181  000212 

182  000220 

183  000222 
184 

185  000226 

186  000232 

187  000236 

188  000242 

189  0002A4 

190  000250 

191  000254 
192 
193 
194 
195 

196  000264 

197  000266 

198  000272 

199  000272 
200 

201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
2^6 
217 
218 
2^9 

220 
221 

222 
223 
22'. 
225 
226 
227 
228 
229 


000304 


016463 

016404 

132763 
001402 


152763 
001402 


116102 
042702 
020227 
101402 
012702 
010263 
001406 

010300 
062700 

112420 


000006 
000016 
000002 


000024 

10$: 

000020  20$: 


000200  000020  30$: 


000001 
177400 
000150 

000150 
000022 


000046 


C00310 
000514 


01650C  000004 


35$: 


40$: 


50$: 
60$: 


62$: 


64$: 


MOV 
MAP 
MOV 

BITB 

BEQ 

CALL 

BKB 
BEQ 

CALL 

M0V6 

BIC 

CMP 

BLOS 

MOV 

MOV 

BEQ 

MOV 
ADD 

M0V8 
SOB 

INH]8$ 

.IF  DF 
.IF  NDF 

BIT 
BED 

CALL 

.ENDC 
.ENDC 

CALL 

.IF  DF 
.IF  NDF 

BIT 
BEQ 
CALL 

.ENDC 
.ENDC 

ENAeL$ 

MOV 

.IF  DF 

.IF  NDF 

BIT 


C.LIN(R4),E.LIN(R 
C.8UF(R4) 
C.8UF«2(R4),R4   ; 

#EV.MAP,E.CTL(R5) 

30$ 

MAPCHN 

#EV.PRT,E.CTL(R5) 

35$ 

MAPORT 

UR1),R2 

#"C<377>,R2 

R2,*E.LEN-E.DATA; 

40i 

#E.LEN-E.DATA,R2; 

R2,E.SI2(R5) 

60i 

R3,R0 
#E.DATA,RO 

(R4)+,(R0)* 
R2,50i 


R$$MPL 
R$$PR0 

*F2.MP,5)FMSK2 

62$ 

SMPLCK 


QUEUE 

R$$MPL 
R$$PR0 

#F2.MP,aFMStc2 
64$ 

a(5P)t 


E$Tr8(R5),R0 

R$$MPL 
R$$PR0 

#F2.MP,SFMSK,2 


3) 
MAP  TO  THE  DATA  AREA 
SET  UP  BUFFER  POINTER 


IF  EQ,  LINE-ID  ALREADY  MAPPED 

MAP  PDV  &  CHANNEL  TO  SLN  &  STATION 


IF  EQ,  NO  PORT  ASSOCIATED  WITH  THIS  EVENT 
HAP  PORT  TO  PVC/DLM  CIRCUIT 

ISOLATE  BYTE  COUNT 

IS'tHERE  TOO  MUCH  DATA? 

IF  LOS,  NO 

USE  OUR  MAXIMUM 

FILL  IN  SIZE  OF  ADDITIONAL  DATA 

IF  EQ,  NONE  PRESENT 

POINT  TU  DATA  AREA 
COPY  DATA  TO  BUFFER 
INHIBIT  INTERRUPTS 


IS  THIS  A  MULTI-PROCESSOR 

BR  IF  NO 

INTERLOCK  COMM/EXEC  RESOURCES 


.■PLACE  EVENT  ON  COLLECTION  QUEUE 


IS  THIS  A  MULTI-PROCESSOR 

BR  IF  NO 

CO-ROUTINE  RETURN  TO  UNLOCK  RESOURCES 


.-.-ENABLE  INTERRUPT  AGAIN 
UNSTOP  COLLECTOR  TASK 


;I5  THIS  A  MULTI-PROCESSOR? 


c\iCMT   1  nr.npD   ponrp<;<; 
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PAGE   2 

CREF       0^.00 


SYMBOL 

VALUE 

REFERENCES 

EVtHCI 

=  035113 

#5-61 

EV$HFE 

=  O0050'j 

#5-61 

EVIIFL 

=   000415 

#5-61 

EVtIFO 

=   000415 

#5-61 

EVSIFS 

=  0004 U 

#5-61 

EVSINF 

=  000515 

#5-61 

EVSLDL 

=  000407 

#5-61 

EVtLDN 

=  010416 

#5-61 

EVSLDO 

=   000411 

#5-61 

EVILDS 

=  000410 

#5-61 

EVSLSC 

=  000500 

#5-61 

evSlup 

=  000412 

A5-61 

EVSNOL 

=  000402 

■"  61 

EVtNRC 

=   000416 

#5-61 

EVSNSC 

=  000200 

#5-61 

EVSNUL 

=  000401 

#5-61 

E\/$NVR 

=  000406 

#5-61 

EVSOPL 

=  000405 

#5-61 

EVtPCC 

=  054000 

#5-61 

EVSPCI 

=  034001 

#5-61 

EVSPCM 

=  034002 

#5-61 

EVSPFE 

=  000404 

#5-61 

EVSPPC 

=  034005 

#5-61 

EVSRCF 

=  000517 

#5-61 

EVSRDC 

=  010001 

#5-61 

EVSRDR 

=  010002 

#5-61 

EVSRJE 

=  055106 

#5-61 

EVSRSC 

=  000501 

#5-61 

EVSRUL 

=  000405 

#5-61 

EVSSNA 

=  035000 

#5-61 

EV$SNF 

=  000516 

#5-61 

EV$SPE 

=  055001 

#5-61 

EVSXCE 

=  034110 

#5-61 

EVSXDI 

=  015600 

#5-61 

EV$XGW 

=  034111 

#5-61 

EV$XMX 

=  000514 

#5-61 

EV$XR5 

=  000512 

#5-61 

EVSXSC 

^  000515 

#5-61 

E\/$X2S 

=  013500 

#5-61 

EV.CCB 

=  000001 

#5-61 

9-169 

9-253 

EV.CIR 

=  000020 

#5-61 

EV.LCB 

r  000100 

#5-61 

9-171 

EV.LIN 

=  000004 

#5-61 

EV.MAP 

=  000002 

#5-61 

9-177 

EV.MOD 

=  000040 

#5-61 

EV.NOD 

--  0J0010 

#5-61 

EV.PRT 

=  000200 

#5-61 

9-181 

13-471 

EXRQN 

000016  R 

#8-96 

9-239 

10-313 

11-375 

F$DATA 

000020 

#5-61 

E$EVTS 

000000 

#5-61 

10-507 

11-335 

14-502 

E$LCN 

000016 

#5-61 

e$l:n 

000000 

#5-61 

«14-503 
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4^5 
444 
445 
446 
447 
448 


001004 
001006 
001012 
001016 


20$: 


001020 
4',<5  001024 
450 
451 
452 
453 
454 

455  001056 

456  001042 

457  001046 

458  001052 
459 

460  001054 

461  001060 

462  001062 

463  001064 

464  001066 

465  001070 
466 

467  001074 

468  001100 
46P  001102 

470  001104 

471  001106 

472  001110 
473 

474  001114 

475  001120 

476  001122 

477  001124 

478  001126 

479  001130 
480 

481  001134 

482  001142 
483 

484  001144 

485  001146 

486  001152 

487  001154 

488  001160 

489  001162 
490 

491  001164 

492  001166 

493  u01172 
'494  001176 

495  001200 

496  001206 

497  001210 

498  001216 

499  001224 


MOV 
ADD 
CALL 
BNE 

ADD 
MOV 

.REPT 

MOV 

.ENDR 

MOV 
BIS 
BIS 
BNE 


010200 

062700  000002 

001360 

062702  000012 
012700  OOOOOOG 

O0O0D3 


016700  OOOOOOG 

056700  OOOOOOG 

056700  OOOOOOG 
001030 

012700  OOOOOOG 

112203 

001404 

010320 

112220 


0'2700  OOOOOOG 

112203 

001404 

010320 

112220 


012700  OOOOOOG 

112203 

001404 

010320 

112220 


126727  OOOOOOG  000040  80$:    CMPB 

001442  SEQ 

010402  MOV 

062702  000002               ADD 

0112h6  90$:    MOV 

CALL 

012602  MOV 

001433  OEQ 

010200  f.jV 

062700  000002               ADD 

CALL 

001365  BNE 

032762  100000  000012        BIT 

001403  BEQ 

152767  000001  OOOOOOG        BISe 

016265  000010  000012  95$:    MOV 

032765  176000  000012  97$:    BIT 


MOV 

MO', 

BEC 

MOV 

30$: 

MOVB 

SOB 

40$: 

MOV 

MOVB 

BEQ 

MOV 

50$: 

MOVB 

SOB 

60$: 

MOV 

MOVB 

BEQ 

MOV 

70$: 

MOVB 

SOB 

R2,R0 
*A.NAM,RO 
CHKNAM 
10$ 

#A.REM,R2 
#$DSNOD,H0 


(R2)  +  ,(R0)<- 


$REQJD,RO 
$PASSU,RO 
$ACCMT,RO 
80$ 

*$REQID,RO 

(R2)+,R3 

40$ 

R3,(R0)t 

(R2)  +  ,(R0)<- 

R3,30$ 

#$PASSW,RO 

(R2)t,R3 

60$ 

R3,(R0)+ 

{R2)+,(R0)+ 

R3,50i 

#$ACCN1,R0 

(R2)+,R3 

80$ 

R3,(R0)+ 

(R2)+,(R0)+ 

R3,70i 

$DSNOD,#' 
100$ 

R4,R2 

#D$RNN,R2 

(R2),-(SP) 

aCEACC 

;SP)+,R2 

110$ 


;  Compute  address  of  alias  name 

;  Check  for  name  match 

;  If  NE,  no  match 

;  Point  to  remote  node  name 

;  Point  to  internal  node  name 


Copy  remote  node  name 


Did  user  specify  any  of 
requestor  id,  password 
or  accounting  info 
Then  leaue  those  fields  alone 


Is  requestor  id  present  in  alias  block? 

If  EQ,  no 

Fill  in  requestor  id  length 

Move  requestor  id  into  connect  block 


Is  password  present  in  alias  block 

If  ED,  no 

Fill  in  password  length 

Move  password  into  connect  block 


Is  account  info  present  in  alias  block 

If  EQ,  no 

Fill  in  account  info  length 

Move  account  info  into  connect  block 


;  Blank  node  name 

;  Means  connect  to  local  system 

,  Point  to  the  remote  node  listhead 

;  Point  to  remote  name  listhead 

;  Get  next  entry  in  list 

;  Gain  access  to  it 

;  Get  virtual  address  of  remote  name  block 

,  If  EQ,  no  more  remote  r;ime  blocks 

;  Compute  address  of  node  name 


R2,R0 

#R.NAM,RO 

CHK'AM         ;  Check  for  name  match 

90$  ;  If  NE,  no  match 

tfRF.LOO.R.FLAGv'n-')  ;  Is  it  a  loopback  node  name  ? 

95$  ;  ,'f  EQ,  no 

#1,*FLAGS      ;  E'se,  yes  -  ndicite  to  caller 

R.Al/u-2),N$SN0D(R5' 

«'NM$A„,,NBSN.lD(R^) 
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CREF   0^.00 


SYMBOL  VALUE 


RtSEIS 

R.ADD 

R.FLAG 

R.LEN 

R.LNK 

R.NAM 

SAVOPT 

SETREQ 

SNDACC 

SNDCON 

SNDDIS 

SNSESD 

ST$CC 

STSCIS 

STSDIP 

TRMLNK 

TSFLAG 

TSLIF 

TSLIFL 

TSLIFO 

TSLIFS 

TSLIN 

TSLIPS 

T$LLD 

TSLLDC 

TSLLDL 

TSLLDO 

TSLLDS 

TSLLEN 

TSLOPR 

TSlTCL 

TSLTIH 

TSLTPR 

TSLTPS 

TSNAPL 

TSNFE 

T$NLEN 

TSNNUL 

TSNOPL 

TSNRNI 

TSNRPL 

TSNRUL 

TSNVR 

TSRPRI 

TiSVC 

T$T5 

TtT6 

T.UCB 

UISAR6 

USRINT 

USSDSf 

W.LUN 


GX 


***** t 
000010 
000012 
J00014 
000000 
000002 
******  (3x 

000000  R 

000056  RG 

000170  RG 

001300  PG 

******  GX 

OOOOOA 

000002 

000012 

****** 

0000A4 

000013 

000013 

000013 

000013 

000000 

000006 

000012 

000045 

000012 

000012 

000012 

000046 

000002 

000024 

000026 

000014 

000020 

000004 

000000 

000010 

000002 

000006 

000042 

000005 

000007 

000001 

000040 

000034 

000030 

000032 


r  ****** 
-     ****** 


GX 
GX 

00" 346  RG 

0  j0004 

J00003 


REFERENCES 

20-675 
#6-56 
#6-56 
#6-56 

#6-56 

8-132 
#7-78 
#8-129 
#9-  ,73 
#16-547 

8-i45 

8-146 

9-202 

16-547 

16-553 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#u-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 
#6-49 

14-430 

14-406 
#17-573 

16-552 

17-578 


14-498 
14-495 


14-492 

9-205 

8-130 


9-223 
16-551 


16-550 
9-207 


16-555 


DLXCEX  -  DLX/CEX  interface  rout  MACRO 
Timeout  orocessing 


182 

183 

18A 

185 

186 

187 

1S8 

189 

190 

191  000232 

012705 

OOOOOOG 

192  000236 

116746 

OOOOOOG 

193 

194  000242 

011501 

195  000244 

100014 

196  000246 

042715 

100000 

197  000252 

042701 

177740 

198  000256 

001407 

199 

200  000260 

012702 

000340' 

201  000264 

006201 

202  000266 

103402 

203  000270 

005:'22 

204  000272 

0007  74 

205  000274 

206 

207  000276 

105765 

000004 

208  000302 

001410 

209  000304 

105365 

000004 

210  000310 

001005 

211 

212  000312 

012700 

lOOCOOC 

213  000316 

005001 

214  000320 

215 

216  000324 

062705 

000026 

217  000330 

105316 

218  000332 

001343 

219 

220  00G334 

005726 

221  000336 

222 

223 

224 

225 

226  000340 

OOOOOOG 

227  000342 

000336" 

228  000344 

OOOOOOG 

229  000346 

OOOOOOG 

230  000350 

OOOOOOG 
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.SBTTL  Timeout  processing 
I- 
**-TM0UT-Timeout  p,-ocessing 

This  routine  is  entered  once  per  second  from  the  COMM/EXEC. 


Registers  modified 


RO,  R1,  R2.  R3,  R4,  R5 


TMOUT: 


10$: 


20$: 

30$- 
40$: 


50$: 


NULL: 


MOV 
MOVB 

MOV 
BPL 
BIC 
BIC 
6£Q 

MOV 

ASR 

BCS 

TST 

BR 

CALL 

TSTB 
BED 
DECS 
BNE 

MOV 
CLR 
CALL 

ADD 

DECS 

BNE 

TST 
RETURN 


#PLAST,R5 
$DLXCH,-(SP) 

(R5),R1 

40$ 

(»LF$RSR,(R5) 

#*C<LS$MS((>,R1 

40$ 

*RCVERY,R2 

R1 

30$ 

<R2)t 

20$ 

a(R2)+ 

L$T]MCR5) 
50$ 

L$T]M(R5) 
50$ 

#IE.rMO8377,R0 

R1 

RCVDN 

*L$LEN,R5 

(SP) 

10$ 

(SP)  + 


Set  up  address  ot  first  physical  link  ac-ess  block 
Set  up  count  of  channels 

Get  link  state  and  flags 

If  PL,  no  resource  recovery  needed 

Clear  resource  recovery  fla 

Isolate  link  state 

If  EQ,  physical  link  block  is  not  in  usel 

Poirt  to  recovery  dispatch  table 
Find  first  bit  set 
If  CS,  dispatch 
Skip  over  this  entry 

and  try  again 
Dispatch  to  recover  routine 

Is  the  receive  timer  running? 
If  EQ,  no 

Count  down  the  receive  timer 
If  NE,  still  active 

Complete  a  receive  with  a  timeout 


Point  to  next  physical  link  access  block 
Any  more  to  go? 
If  NE,  yes 

Clean  up  the  stack 


Resource  recovery  dispatch  table 
RCVERY: 


.WORD 

STRCHN 

.WORD 

NULL 

.WORD 

1  TRANS 

.WORD 

STPCHN 

.WORD 

STPCHN 

IDLE  -  Try  to  start  channel 

STARTING 

DATA 

STOPPING  -  Try  to  Stop  channel 

RESTARTING  -  Try  to  stop  channel 


DLXCEX     CREATED  BY  MACRO  ON  28-JUN-85  AT  22:53 
SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


ABORQ 

ASYNCH 

BLXIO 

CB.ROB 

CCBDN 

CCBRT 

CE.DIS 

CHARC 

CRCtOV 

CTLCCP 

CTLCP 

CTLDN 

CTLDSP 

CTLEN 

CTLTBL 

C.BID 

C.BUF 

C.BUF1 

C.BUF2 

C.CNT 

C.FNC 

C.LIN 

C.MDD 

C.NSP 

C.STS 

DISRQ 

OQPKT 

DSLIN 

ENBLC 

ENSX 

FC.CCP 

FNCAB 

GT3I.N 

IE. ABO 

IE. DAD 

lE.TMO 

lE.VER 

lO.XCH 

lO.XCL 

IQ.XGC 

lO.XHG 

lO.XIN 

lO.XOP 

lO.XRC 

lO.XSC 

I0.X5P 

lO.XST 

lO.XTL 

lO.XTM 

lO.XTR 

IS. sue 

1  TRANS 


r  ****** 


001012  R 

~    *■«■*,*♦*   (3x 

=  OOOOOA 

000106  R 
=  ******  GX 

=  100366 

001U0  R 
=  000000 
=  ******  GX 

000706  RG 
=  ******  GX 

000032  R 

000022  RG 

000762  R 

000003 

OOOOU 

OOOOU 

000024 

000020 

000010 

000006 

000011 

000004 

000012 


»♦♦*** 
*»*♦** 
**♦♦■** 

0010AO  R 

****** 

000020 


=  ****** 

r  ****** 


=  ****** 

=  017400 
=  016210 
=  017A10 
=  016000 
=  016400 
=  015400 
=  015000 
=  017400 
=  017010 
=  017000 
=  017000 
=  014400 
=  016000 


GX 
GX 
GX 
R 
GX 

GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 


REFERENCES 

10-180 

14-374 

13-311 

12-258 
#9-137 

12-264 

15-399 

14-379 
#5-51 

14-369 

7-75 

19-534 

8-89 

7-70 

14-367 

12-258 

13-303 

14-363 

14-364 

12-251 
*9-138 
»9-137 

14-358 

9-137 

9-112 

15-405 

17-448 

19-531 

14-384 

9-112 

9-138 

10-179 

9-120 

10-168 

13-298 

11-212 

12-257 
#5-51 
#5-51 
#5-51 
#5-51 
#5-51 
#5-51 
#5-51 
#5-5-' 
#5-51 
#5-51 
#5-51 
#5-51 
#5-51 

9-124 

11-228 


#14-354 

#8-91 
#8-88 
#14-374 

13-304 


13-294 

14-354 

12-252 
9-116 

18-475 

#16-421 

10-161 
13-331 

5-51 


5-51 
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#15-399 

10-170  19-542 

14-366 

14-380        #18-473 


*9-139 


10-174 


12-250 


14-362 


5-51 


5-51 


5-51  5-51 

12-254  13-287 

17-457 


17-450 


DLXCHR  -  DLX  AuxiUiary  charact  MACPn 
Process  transmit  auxiLliary  character 

221 

222 

223 

224 

225 

226 

227 

228 

229 

250 

251 

232 

255 

23A 

255 

236 

257 

238 

239 

240  0003U  016300  OOOOIOG 

241 

242  000520  012701  000002 

245  000524  011002 

244  000526  162702  000100 

245  000532  002406 

246  000554  006502 
^47  000556  020227  000004 

248  000342  105002 

249  000544 
250 

251  000350  010160  000006 

252  000554  066000  000002 
255  000560  062700  000010 

254  0003(-4  020065  00001 4G 

255  000570  103755 

256  000572 
257 
258 
259 
260 

261  000574  000400' 

262  000576  0004',6' 
265        000004 
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sties 

.SBTTl.  Process  transmit  auxiUiary  characteristics 

*»-XMTCHR-Process  transmit  auxiUiary  cho-'dcteristics 

Process  the  characteristics  present  in  the  auxiUiary  characteristics 
buffer  on  the  transmit  request. 

Inputs: 

R3  =  Address  of  the  I/O  packet 

I.  ^M+6  -  Bias  of  the  characteristics  buffer 
I.PRfl+10-  Virtual  address  of  the  characteristics  buffer 
I.PRM+12-  Length  of  the  characteristics  buffer 

I.PRMtU-  Virtual  address  of  byte  past  end  of  characteristics  buffer 
The  characteristics  buffer  is  mapped. 
R5  =  Address  of  the  physical  link  access  block 

Registers  modified: 
RO,  Rl,  R2 


XMTCHR: 
10$: 


20$: 


:MOV 

MOV 

MOV 

SUB 

BLT 

ASL 

CMP 

BHIS 

CALL 

MOV 
ADD 
ADD 
CMP 
BLO 
RETURN 


I.PRM+10(R5),R0 

ffCS.IGN.RI 

(R0),R2 

#CC.ADR,R2 

20$ 

R2 

R2.#XMMAX 

20l 

aXMTTBLCR2) 

R1,C.STAT(R0) 

C.DATI(RO),R0 

#C.CHRL,R0 

R0,I.PRMt-14(R3) 

lOi 


Point  to  start  of  characteristics  buffer 

Assume  characteristic  will  be  ignored 

Get  next  characteristics  type  code 

Normalise  for  DLX  functions 

if  LT,  not  one  of  our  characteristics 

Form  word  offset 

In  range? 

If  HIS,  no 

Dispatch  to  processing  routine 

Return  status  of  this  characteristic 
Point  to  next  characteristic 

Are  we  done  yet? 
If  LO,  no 


Transmit  characteristics  dispatch  table 


XMIT8L:  .WORD   XMTADR 
.WORD   XMTPRO 
XMMAX   =.-XMTT8L 


Define  Ethernet  address  for  transmit 
Define  Ethernet  protocol  for  transmit 


/ 
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Discatch  tables 

.SBTTL  Dispatch  tabl.es 


an 

HI 

H2 

H', 

H4 

as 

000000 

OOOOOOG 

86 

000002 

OOOOOOG 

8/ 

000004 

OOOOOOG 

HH 

000006 

OOOOOOG 

89 

000010 

OOOOOOG 

90 

000012 

OOOOOOG 

91 

000014 

OOOOOOG 

9^ 

000016 

OOOOOOG 

9-; 

000020 

OOOOOOG 

94 

9S 

000022 

96 

9/ 

98 

99 

100 

101 

000022 

000130' 

10^ 

000024 

000500' 

in-; 

000026 

000232' 

104 

000030 

000404' 

105 

000032 

000532' 

i()6 

000034 

000604' 

-0/ 

000036 

000646' 

I  OH 

000040 

000654' 

109 

000042 

000172' 

;  + 

;  Dispat 

ch  tabl 

e  to  s 

SRCIBL: 

.WORD 

FINDL 

.WORD 

FINDL 

.WORD 

FINDC 

.WORD 

FINDC 

.WORD 

FINDC 

.WORD 

FINDC 

.WORD 

FINDC 

.WORD 

FiNDC 

.WORD 

FINDC 

SfMAX 

=.-SRCT8L 

;  + 

;  Dispatch  tabl 

e  for  f 

FNCT8L:  .WORD 

CTLON 

.WORD 

CTLOFF 

.WORD 

CTLREA 

.WORD 

CTLASS 

.WORD 

CTLDEA 

.WORD 

CTLOWN 

.WORD 

CTLLjT 

.WORD 

CTISST 

.WORD 

CTLSER 

Turn  <Line-id>  on 

Turn  <Line-id>  off 

Reassign  <Line-id>  to  another  LLC 

Assign  <Line-id>  to  an  LLC 

Deassign  <Line-id>  from  an  LLC 

Set  owner  for  <Line-id> 

Set  line  state  for  <Line-id> 

Set  line  substats  for  <Line-id> 

Reassign  <Line-id>  for  service  access 


Turn  <Line-id>  on 

Turn  <Line-id>  off 

Reassign  <Line-id>  to  another  LLC 

Assign  <Line-id>  to  an  LLC 

Deassign  <Line-id>  from  an  LLC 

Set  owner  for  <Line-id> 

Set  line  state  *or  <Line-id> 

Set  line  substate  for  <Line-id> 

Reassign  <Line-id>  for  service  access 
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520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534  001010 

535 

536  001012 

537  001016 

538  001022 

539  001026 

540  001032 
541 

542  001036 

543  001044 

544  001052 

545  001060 

546  001066 

547  001074 
548 

5^.9  001100 
550  001104 


100433 

052702 

016400 

012711 

112764 
016464 
012764 
042764 
052764 


042711 
000416 


.SBTTL     Continue  with  reassignment 
I- 
*»-CTi  REI-Continue  with  reassignment 


Inputs 


When  the  current  owning  LLC  has  completed  the  STOP  request,  perform  the 
line  reassignment  and  inform  the  target  LLC. 

RO  =  PDV  and  Channel  of  target  LLC 

R1  =  Address  in  target  PDV  channel  mappuig  table 

R2  =  SLN  and  logical  tributary  U   of  <Line-id> 

R3  =  Address  of  the  I/O  packet 

The  N-bit  is  set  from  a  'TSTB  C.STS(R4) 


100000 

000024 

100000 

000002  000004 

000014  000006 

001006  000010 

177776  000012 

000002  000012 

040000 


CTLRE1:  BMI 

BIS 

CALL 

MOV 

CALL 

MOV 

MOVB 

MOV 

MOV 

BIC 

BIS 

CALLR 


10$: 


BIC 
BR 


10$  ;  If  MI,  an  error  has  occurred 

#100000, R2  ;  Set  fleg  to  leave  network  management  rtate  alone 

ASSIGN  ;  Modify  system  databases 

C.6UF2(R4) ,R0  ;  Get  previous  PDV  and  Channel  assignment 

MAPAD  ;  Compute  address  in  channel  mapping  table 

#ZS.ASN,(R1)  ;  Mark  the  channel  free 

#NX.REA,C.NSP(R4) 

C.eUf (R4),C.LIN(R4) 

#fC.CTL!FS.STR,C.FNC(R4) 

#»C<LENB>,C.STS(R4) 

#EN8X,C.STS(R4)  ;  Format  CC8  to  inform  new  owning  LLC 

0CC8L         ;  Queue  CCB  to  LLC 


#40000, (R1) 
CTLA80 


Remove  reservation  flag  from  channel  mapping  table 
and  abort  the  request 
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1 
2 
3 
t, 
5 
6 
7 
8 
9 

10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
3(' 
38 
39 
40 
41 
42 


.TITLE  DLXDAT  -  DLX  data  bases 
.IDENT  /V05.00/ 
.ENA8L  LC 

Copyright  (C)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  MASS. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the 
inclusion  of  the  above  copyright  notice.  This  software,  or 
any  other  copies  thereof,  may  not  be  provided  or  otherwise 
made  available  to  any  other  person  except  for  use  on  such 
system  and  to  one  who  agrees  to  these  license  terms.  Title 
to  and  ownership  of  the  software  shall  at  all  times  remain 
in  DEC. 

The  information  in  this  document  is  subject  to  change  without 
notice  and  should  not  be  construed  as  a  commitment  by  Digital 
Equipment  Corporation. 

DEC  assumes  no  responsibility  for  the  use  or  reliability  of 
its  software  on  equipment  which  is  not  supplied  by  DEC. 

Module  description 

DLX  data  bases 

Distributed  Systems  Software  Engineering 

Ident  history: 

4.00  07-NOV-8: 

DECNET-11M  V4.0 
DECNET-llM-'-LUS  V2.0 

5.00  22-JUL-85 

DECnec-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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Issue  control  request  to  DLC 


5A 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 

69  000000 

70  OOOOOA  105A15 
71 

72  000006  01006A 

73  000012  016564 

74  000020  012764 

75  000026  105265 

76  000032 
n  000036 
78 

79  000040  052715 

80  C00044 


.SBTTL  Issue  control  request  to  DLC 

♦♦-DOFNC-Issue  control  function  to  DLC 

Issue  a  control  function  down  to  the  DLC  associated  with  a  physical 
link  and  set  up  for  resource  recovery  if  necessary. 

Inputs: 

RO  =  Control  function  to  be  issued 

R5  =  Address  of  the  physical  link  access  block 

Outputs: 

•C  Clear 
'C  Set 


OOFNC: 


000010 

000006  000006 
000001  000022 
000002 


100000 


10$: 


Request  successfully  issued 
Resource  allocation  (CCB)  failure 


CALL 
BCS 

MOV 

MOV 

MOV 

INCe 

SQDLC 

RETURN 

BIS 
RETURN 


aCCBGT 
10$ 


Allocate  a  CCB 

If  CS,  allocation  failure 


R0,C.FNC(R4)    ;  Set  up  requested  function  code 
L$LIN(R5),C.LIN(R4) 
«'CF.CHN,C.FLG(R4) 

i$RSR(R5)      ;  Count  pending  control  request 
;  Queue  request  to  DLC 


#LF$RSR,(R5) 


Mark  resource  recovery  required 


DLXOIO  -  IbSUE  I/O  TO  DLX 
MACRO  f*LlS  AND  LOCAL  DATA 

55 

56 

57 

58 

59 

60 

61 

62 

63 

6A 

65 

66  000000 

67 

68 


MACRO  V05.03b  Saturday  29-Jun-85  12 


'-% 
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.SeiTL  MACRO  CALLS  AND  LOCAL  DATA 

•  MACRO  LIBRARY  CALLS 

.MCALL  SAVRG,RESRG,CICCX$ 

.MCALL  ALUN$S,WSIG$S,0I0W$S,QI0$S,6LUN$S 

;  LOCAL  DATA 

.JF  NDF  M$$ACP 

lOSB:    .8LKW  2 

.ENDC  .-NDF  M$$ACP 


I/O  STATUS  BLOCK  ^OR  DLX  010 


DLXQIO     CREATED  Bv  MACRO  ON  29-JUN-85  AT  12:23 
SVMBCL  CROSS  REFT'^ENCE 
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CREF   OA.OO 


SYMBOL  VALUE 


REFERENCES 


LtLCT 

000224 

#6-75 

L$LEN 

00026A 

#6-75 

L$LMB 

000234 

#6-75 

L$LTM 

000230 

#6-75 

L$MRT 

000253 

#6-75 

LSMSG 

000056 

#6-75 

L$MT>P 

000075 

#6-75 

LIMWN 

000252 

#6-75 

L$MXB 

000135 

l»b-7S 

LSMXR 

000253 

#6-75 

LtMXW 

000252 

#6-75 

LSNAM 

000000 

#6-75 

LSNLEN 

=  oooo:o 

#6-75 

LSNMT 

000116 

#6-75 

LSNTI 

000256 

#6-75 

LSNITL 

000134 

#6-75 

L$NUM 

000240 

#6-75 

LSNUML 

000236 

#6-75 

L$NXT 

000044 

#6-75 

L$OPT 

000062 

#6-75 

LSnWN 

000102 

#6-75 

LSPAR 

000072 

#6-75 

L$PDV 

000055 

#6-75 

L$PFG 

000041 

#6-75 

LSPLT 

000112 

#6-75 

LSPRO 

000075 

#6-75 

LSPVC 

000004 

#6-75 

L$RET 

000256 

#6-75 

L$SCN 

000020 

#6-75 

LSSCR 

000166 

#6-75 

LSSER 

000250 

#6-75 

LSSLEN 

000074 

#6-75 

LSSLT 

000042 

#6-75 

LSSNM 

000046 

#6-75 

LSSTA 

000100 

#6-75 

L$TAD 

000105 

#6-75 

L$TH1 

000150 

#6-75 

L$TH2 

0001  :-'i 

#6-75 

LtTH3 

000152 

#6-75 

L$TNM 

000052 

#6-75 

LSTPT 

000050 

#6-75 

L$TRB 

000040 

#6-75 

LSTYP 

000063 

#6-75 

L$UNT 

000005 

#6-75 

L$XCH 

000252 

#6-75 

L$XMT 

000120 

#6-75 

M$$ACP 

r  ****** 

4-1 

R$$PRO 

r  ****** 

6-75 

R$$RTR 

-     ****** 

8-152 

S$$BAS 

=     ****** 

8-152 

$CSDSG 

-  ******  Qy 

8-178 

tDSol 

r  .,*...   G> 

8-158 

•8-182 


6-75 


6-75 


8-119 


9-205 


4-2 
b-7j 


5-64 


3-116 


DlXSUB  - 

DLX  su 

Droutines 

Compute 

address 

in  the 

COMM/EXE 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

32A 

325 

000526 

326 

000530 

010546 

327 

328 

000532 

010205 

329 

000534 

042705 

177400 

330 

000540 

006305 

331 

000542 

067705 

OOOOOOG 

332 

000546 

01150' 

333 

000550 

100006 

334 

335 

000552 

010205 

336 

000554 

000305 

337 

000556 

042705 

177700 

338 

000562 

060405 

339 

000564 

006305 

340 

341 

000566 

342 

343 

000570 

34^. 

000572 

012605 

345 

000574 
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.SBTTL  Compute  address  in  the  COMM/EXEC  databases 

**-COASN-Compute  address  in  the  COMM/EXEC  databases 

This  is  a  co-routine  to  compute  the  address  of  the  system  tine 
entry  in  the  reverse  mapping  tabLe  and  co-call  it's  caller. 


Calling  sequence: 
JSR 

Inputs 


P5,C0ASN 


COASN:; 


R2  =  SLN  and  logical  tributary  #  of  <Line-id> 

Outputs:  (to  co-routine  caller) 

R5  =  Address  of  the  system  line  entry  in  the  reverse  mapping  table 

Get  a  free  register 

Save  return  address  (for  co-call) 

Compute  address  in  reverse  mapping  table 

Isolate  SLN 

Form  word  index 

Compute  address  in  reverse  mapping  table 

Get  contents  of  table 

If  PL,  point-to-point  connection 

Must  be  a  multi-point  line 
Isolate  logical  tributary  # 

Compute  address  in  reverse  mapping  table 


10$- 


SAVRG 
MOV 

MOV 
BIC 
ASL 
ADD 
MOV 
BPL 

MOV 

SWAB 

BIC 

ADD 

ASL 

CALL 

RESRG 

MOV 

RETURN 


<R4> 
R5,-(SP) 

R2,R5 

#»C<377>,R5 

R5 

aLLCTA.RS 

(R5),R4 

10$ 

R2,R5 

R5 

#*C<77>,R5 

R4,R5 

R5 

a(SP)+ 


<R4> 
(SP)  + 


,R5 


Co-call  the  caller 

Restore  the  register 

Restore  R5  stored  by  initial  JSR 


N  13 

DLXSUB  -  DLX  subroutines       MACRO  V05.03b  Friday  28-:un-85  22:56  Page  19-1 
Find  <Line-id>  in  the  COW/EXEC  database 


851  002152 

852 

855  0021 5A 

85A  002160 

855  002162 

856  002166 

857  002170 
858 

859  002172 

860  002174 
861 

862  002176 

863  002202 
86A  002206 

865  002210 

866  0022U 

867  002216 
868 

869  002220 

870  002222 

871  002226 

872  002230 

873  002234 

874  002236 
875 

876  002240 

877 

878  002244 

879 

880 

881 

882  002244 

883  002252 


005205 


INC 


R5 


103431 

110167  000002G 

020004 

103023 

005705 
001011 

012703  000056 

103A16 

110167  000003G 

020004 

103010 

005003 

103406 

110167     000011G 

020004 

103402 


20$: 

CALL 

BCS 

M0V8 

CMP 

BHIS 

CDTB 

50$ 

Rl,$PBLKt-T$CTL 

R0.R4 

40i 

TST 
BNE 

R5 
304i 

MOV 

CALL 

BCS 

MOVB 

CMP 

BHIS 

#'.,R3 

CDTB 

50$ 

R1,$PBLK+T$LIN 

R0.R4 

40i 

30$: 

CLR 

CALL 

BCS 

riOVB 

CMP 

BLO 

R3 

CDTB 

50$ 

R1,$PBLK+T$SLN+1 

R0,R4 

50i 

40$: 

CALL 

FNDLA 

50$: 

.IF  DF 
RE  SWAP 
.ENDC 

R$$MPL 

RFSRG 
RETURN 

<R5,R4,R3> 

Set  non-muitiplexor  flag 

Convert  controller  number 

If  CS,  illeaal  character 

Saue  controller  number 

At  end  of  the  string? 

If  HIS,  yes  ...  look  for  <Line-id> 

Is  deuice  a  multiplexor? 
If  NE,  no 

Set  up  terminating  character 

Convert  line  number 

If  CS,  illegal  character 

Save  line  number 

At  end  of  the  string? 

If  HIS,  yes  ...  look  for  <Line-id> 

No  special  terminator  required 

Convert  tributary  # 

If  CS,  illegal  character 

Save  logical  tributary  # 

At  end  of  the  string? 

If  LO,  no  ...  error  (C-bit  set) 

Search  databases  for  <Line-id> 


Restore  mapping 
Restore  registers 


DlXSUB     created  by  macro  on  28-JUN-85  AT  22:56 
SYMBOL  CROSS  REFERENCE 


N  U 

PAGE  3 

CREF   OA.OO 


SYMBOL  VALUE 


SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SLTMA 

SLTNM 

STACT 

STLNA 

STLNK 

STNMST 

STSLT 

S.COST 

S.fLG 

S.LEN 

S.NMST 

S.OWNR 

TSASN 

TSCTL 

TSDDM 

T$FLG 

T$KRB 

T$LIN 

TSNAM 

TSNMST 

TSNSTA 

T$PDV 

TSSFLG 

T$SLF 

TSSLN 

T.ST3 

T3.PRV 

X$$MC8 

ZF.COU 

ZF.DDM 

ZF.DIA 

ZF.DLC 

ZF.DVP 

ZF.INI 

ZF.KMX 

7F.LLC 

ZF.LMC 

ZF.MAN 

ZF.MFL 

ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.Sli 

Zf .TIM 


=  000100 
=  OOOOOA 
=  000040 
=  000020 
=  OCOOIO 
=  000001 
=  000002 
=  000040 
=  »t»»«*  Gx 
=  »*«**«  GX 

000020  RG 

002464  RG 

002460  RG 

002516  RG 

002602  RG 

000001 

000000 

000004 

000002 

000003 

000016 

000002 

000014 

000006 

000020 

000003 

000000 

000022 

000005 

000007 

000004 

000012 

000010 


=  ****** 
=  **♦*♦* 
=      ****** 

=  001000 
=  000001 
=  004000 
=  000002 
=  100000 
=  040000 
=  000020 
=  000004 
=  000100 
=  020000 
=  000010 
=  000400 
=  OOC040 
^  002000 
=  010000 
=  000200 


GX 
GX 


REFERENCES 

#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 

18-734 

18-733 
#6-90 
#25-1031 
#25-1029 

6-107 

6-91 
#5-50 
#5-50 
#5-50 
#5-50 
#5-50 
♦15-532 

18-740 
*18-750 

16-603 
♦18-751 

18-742 

18-718 
♦15-531 

17-664 
♦18-722 
♦15-530 

16-605 

15-511 

16-568 

16-568 

5-48 
#5-48 
#5-48 
#5-48 
#5-48 
#5-48 
#5-48 
#5-48 
#5-48 
#5-48 
#5-48 
#5-48 
#5-48 
#5-4? 
#5-48 
#5-48 
#5-48 


17-669 


27-1091 
18-754 


#26-1054 
12-374 


15-531 

16-622 
♦19-825 

♦18-726 

♦19-865 

♦19-824 

♦18-752 

♦18-758 

18-738 

17-669 

16-607 

♦15-526 


5-48 

16-603 


18-728 


19-84^ 


26-1055   #27-1088 


18-770 

♦18-789 
♦19-855 


♦19-838 
♦18-770 


♦18-769 

17-662 

♦18-756 


18-730 


20-910 


26-1070 
23-988 


♦19-826 
17-667 
18-762 


♦18-749 
18-773 


18-775 
18-785 


♦19-827 


♦19-872 


EVL  -  Event  logger  process 
LOG  network  event 
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230 

BEQ 

6^1*    .  . 

231 

BIC 

#r2.STP*2IT2.STP 

232 

233 

234 

BR 

645$ 

235 

236 

.ENDC 

237 
238 
239  000320 

.ENDC 

641$: 

CALL 

aEXRQN 

240 

241  000324 

242 

243  000326 

244 

245  000334 

246 

24"  000336 

000241 

645$: 

CLC 

RESRG 

<R4,R1,R0> 

006016 

65$: 

ROR 

(SP) 

012703 

000422' 

MOV 

#ZERTAB,R3 
(R3)+,R2 

248  000342 

012302 

70$: 

MOV 

249  000344 

001423 

BE  3 

100$ 

250  000346 

020002 

CMP 

R0.R2 
70i 

251  000350 

252 

253  000352 

001374 

BNE 

132711 

000001 

BiTB 

*EV.CCB,(R1) 

254  000356 

001402 

BEO 

80$ 

255  000360 

256 

257  000364 

016404 

000016 

MOV 

C.BUF+2(R4),R4 

116102 

000001 

80$: 

MOVB 

1(R1),R2 

258  000370 

042702 

177400 

BIC 

#«C<377>,R2 

259  000374 

260 

261  000376 

001407 

BEQ 

100$ 

SAVRG 

<R4> 

262  000400 

105024 

90$: 

CLR8 

(R4)t 

263  000402 

SOS 

R2,90$ 

264  000406 

RESRG 

<R4> 

265  000410 

266 

267  000414 

017714 

177424 

MOV 

aniM2,(R4) 

000241 

100$: 

CLC 

268  000416 

006116 

ROL 

(SP) 

269  000420 

110$: 

RETURN 

270 

271 

•  t 

272 

;  COUNTER  CONTROL  TA8LE 

273 

;- 

274 

275  000422 

7ERTA8 

EVENT 

0,8. 

276  000424 

ENDEVENT 

8R  If  NO 

T.ST2(R0)  ;CLEAR  TASK  STOP  BIT  (DON'T  CAL' 

EXRQN  -  it  UNCONDITIONALLY  SETS  PRIORITY 

TO  PRO 

AND  EXIT 


;  INDICATE  SUCCESS 

AND  MAPPING 

;  SAVE  RETURN  STATUS 

;  POINT  TO  COUNTER  CONTROL  TABLE 

;  GET  NEXT  TABLE  ENTRY 

;  IF  EQ,  END  OF  TABLE 

;  SHOULD  WE  ZERO  THE  COUNTERS  FOR  THIS  EVENT? 

;  IF  NE,  NO  ...  KEEP  LOOKING 

;  DO  UE  HAVE  A  CCB  WITH  THIS  EVENT? 

;  IF  EQ,  NO 

;  point  to  buffer 

;  get  #  of  bytes  to  zero 

■  if'eq,  none 

;  save  pointer 

;  zero  the  counter  block 

;  recover  pointer 

;  fill  in  time  since  midnight 

;  restore  status 


;  EVENT  0.8  -  AUTOMATIC  COUNTERS 


B  1 

J  5 

C  1 

K     5 

D  1 

L   5 

E  1 

M  5 

F   1 

N  5 

G  1 

B  6 

H  1 

C  6 

I   1 

D  6 

J   1 

E  6 

<  1 

F  6 

L  1 

G  6 

M  1 

H  6 

N   1 

1  6 

B  2 

J  6 

C  2 

K  6 

D  2 

L  6 

E  2 

M  6 

F  2 

N  6 

G  2 

B  7 

H   2 

C  7 

I  2 

D  ^ 

J  2 

E  7 

K  2 

F   7 

L   2 

G  7 

M  2 

H  7 

N  2 

1  7 

B  5 

J  7 

C  3 

K      7 

0  3 

L   7 

E  3  DLXCEX 

M  7 

f  3 

N  7 

G  3 

B  8 

H  3 

C  8 

I  5 

D  8 

J  3 

E  8 

K  3 

F  8 

L   3 

G  8 

M  3 

H  8 

N  3 

I  8 

B  4 

J  8 

C  4 

K  8 

0  4 

L  8 

E  4 

M  8 

F  4 

N  8 

G  4 

B  9 

H  4 

C  9 

I  4 

D  9 

J  4 

E  9 

K  4 

F  9 

L  4 

G  9 

M  4 

H  9 

N  4 

I   9 

B  5 

J  9 

C  5 

K  9 

D  5 

L  9 

E  5 

M  9 

F  5 

N  9 

G  5  DLXCHR 

B  10 

H  5 

C  10 

I  5 

D  10 

DLXCTL 


DLXDAT 


DLXLIU 


F 

10 

F 

10 

« 

10 

H 

10 

I 

10 

J 

10 

K 

10 

1 

10 

M 

10 

N 

10 

R 

11 

r 

11 

D 

11 

F 

11 

F 

n 

G 

11 

H 

11 

I 

11 

J 

11 

K 

11 

1 

11 

M 

11 

N 

11 

R 

V 

r 

12 

1) 

1^ 

F 

v 

F 

]? 

G 

V 

H 

V 

1 

12 

,1 

12 

K 

12 

1 

1^ 

M 

^? 

N 

V 

R 

H 

r 

n 

n 

M 

F 

n 

F 

13 

G 

13 

H 

13 

I 

13 

1 

13 

K 

13 

1 

13 

M 

13 

N 

13 

R 

14 

r 

14 

D 

14 

F 

14 

F 

14 

G 

14 

H 

14 

1 

14 

J 

14 

K 

14 

L 

14 

DLXQIO 


0LXSU8 


D  15 


EVL 
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CREF   04.00 


ALCI 
SAMJ 


SYMBOL  VALUE 


ESMOD 

ESNOD 

ESPORT 

ESPRM 

EISTAT 

ESTCB 

E.CTL 

E.DATA 

E.EVT 

E.LCN 

E.LEN 

E.LIN 

E.LNK 

E.MOD 

E.NOD 

E.PDV 

E.PORT 

E.PRM 

E.PVC 

E.SIZ 

e.t:me 

FRSBCC 

FRSCCF 

FRSCDF 

FRSDAO 

fR$EXC 

FR$FRM 

FRSFTL 

FRSOPN 

FRSRTD 

FRSSBU 

FRSSHO 

FRSUBU 

FRSUPT 

H$PTB 

H$PVC 

INIFLG 

ISSAS 

<1SAR6 

KSAR6 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

lF.MFl 

LF.MTP 

<   F.PAC 

[f .RDV 

lf.rea 

LF.SER 


000012 

000010 

OOOOK 

000002 

000006 

000004 

000020 

000046 

000002 

000042 

000216 

000024 

000000 

000036 

000034 

000021 

000040 

000026 

000044 

000022 

000004 

=  000007 

=  000001 

=  000002 

=  000011 

=  000000 

=  00001 c 

=  000005 

=  000004 

=  000006 

=  000012 

=  000003 

=  000013 

=  000014 

000020 

000006 

000530  R 

-  ****** 

-  ****** 
000020  R 

=  100000 
=  000400 
=  000007 
=  0C2000 
=  001000 
=  000100 
=  004000 
=  00002C 
=  000200 
=  140000 
=  .10000 
=  000040 


GX 


REFERENCES 

#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 

13-426 

13-444 

10-291 

5-62 

8-97 
#8-97 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 


9-143 

9-152 

9-187 

»9-150 

9-187 
♦9-173 


13-429 

*13-422 
♦9-190 
14-493 


9-224 
9-169 
9-189 


9-189 
12-396 


13-451 
♦13-446 


10-305         *10-311 
9-171  9-177 

9-19;, 


12-40, 


13-468 


♦12-404 


11-374 

9-181  ^13-471 


♦13-457         ♦13-470 


♦10-303 
♦9-174 


#10-317 
13-421 


13-462         ♦13-473 


Fvi 
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180  0000^2 

016702 

140000' 

181   0000^6 

060577 

177726 

18?  000052 

010267 

140000' 

183  000056 

010067 

140002'        ' 

ISA  000062 

060504 

185  00006A 

000450 

% 

186 

187  000066 

017746 

177706 

188  000072 

016704 

140000' 

189  000076 

000443 

190 

191 

192 

193  000100 

017701 

177674 

19A  000104 

016777 

140000'    177666 

195 

196  000112 

000261 

197  0001K 

001436 

198  000116 

016700 

140002' 

199  000122 

160500 

200 

201   000124 

103'r65 

202 

203  000126 

001417 

204 

205 

206  000130 

017746 

177644 

207  000134 

016702 

140000' 

208  000140 

060577 

177634 

209  000144 

010267 

140000' 

210  000150 

010067 

140002' 

211   000154 

010177 

177620 

212  000160 

060567 

140C00' 

213  000164 

000410 

214 

215  000166 

017746 

177606 

216  000172 

016702 

140000' 

217  000176 

010177 

177576 

218  000202 

010267 

140000' 

219 

220  000206 

221  000206 

0002M 

222  000210 

012605 

223  000212 

224 

225  000212 

012677 

177562 

226  000216 

227 

50$: 


MOV 
ADD 
MOV 
MOV 
ADD 
BR 

MOV 
MOV 
BR 


.BASEB,R2 

R5,aKS6 

R2, .BASES 

R0,.eASEB+2 

R5,R4 

60$ 

aKS6,-(SP) 
.BASES, R4 
60$ 


SAVE  PNTR  TO  NEXT  HOLE  IN  R2 
ADJUST  BEGINNING  OF  HOLE 
SET  NEXT  HOLE  PNTR  &   HOLE  SIZE  AT 
BASE  OF  ADJUSTED  (SHORTENED)  HOLE. 
ADJUST  HOLE  POINTER  IN  TP;)  ENTRY 
RETURN  WITH  R5=ADDRESS 

SET  BIAS  OF  ALLOCATED  SPACE  ON  STACK, 

SET  HOLE  POINTER  IN  TPD  ENTRY  TO  POINT 

TO  NEXT  HOLE  (IF  ANY),  AND  F.ETURN  WITH  R5  =  ADDRES 


SPACE  NOT  FOUND  IN  FIRST  HOLE  —  CHECK  REMAINING  HOLES  (IF  ANY) 


40$: 


50$: 

60$: 
70$: 


MOV 
MOV 

SEC 
BEQ 

MOV 
SUB 

SLO 

BEQ 


MOV 
MOV 
ADD 
MOV 
MOV 
MOV 
ADD 
BR 

MOV 
MOV 
MOV 
MOV 


CLC 
MOV 


aKS6.R1 
.8AStB,aKS6 


70$ 

.8ASEB+2,R0 

R5,R0 


MOV 
RETURN 


40$ 
50$ 


aKS6,-(SP) 

. BASES, R2 

R5,aKS6 

R2,.8ASEB 

R0,.BASEBt2 

R1,aKS6 

R5,.eASEB 

60$ 

aKS6,-^SP) 
. BASES, R2 
R1,aKS6 
R2,.8ASEB 


(SP)+,R5 

(S^)t,SKS6 


SAVE  HOLE  ADR  IN  R1  AS  PRE,  uUS  HOLE  PNTR 

AND  ADVANCE  VIRTUAL  BIAS  TO  NEXT  HOLE. 

IS  THERE  A  NEXT  HOLE? 

ASSUME  NOT 

NO  —  RETURN  WITH  CARRY  SET 

SET  RC  TO  HOLE  SIZE,  ADJUSTED  AS  IF  REQUIRED 

S°ACE  HAS  BEEN  TAKEN  FROM  HOLE. 

IS  SUFFICIENT  SPACE  AVAILABLE? 

NO  —  CHECK  NEXT  HOLE 

YES  —  IS  ANY  SPACE  LEFT  IN  HOLE? 

NO  —  ALLOCATE  MEMORY  &  DELETE  HOLE 

YES  —  ALLOCATE  MEMORY  £  ADJUST  HOLE  SIZE 

SET  DIAS  OF  ALLOCATED  SPACE  ON  STACK 
SAVE  PNTR  TO  NEXT  HOLE  IN  R2 
ADJUST  BEGINNING  OF  HOLE 
SET  NEXT  HOLE  PNTR  &   HOLE  SIZE  AT 
BASE  OF  ADJUSTED  (SHORTENED)  HOLE. 
ADJUST  POINTER  IN  PREVIOUS  HOLE. 

RETUR.v  WITH  R5=ADDRESS 

SET  BIAS  OF  ALLOCATED  SPACE  ON  STACK. 
SET  POINTER  TO  NEXT  HOLE  (IF  ANY)  IN 
PREVIOUS  HOLE. 

RETURN  WITH  R5=ADDRESS  OF  ALLOCATED  SPACE 
COMMON  CODE  TO  RETURN  WITH  R5=ADDRESS 

INDICATE  SUCCESS 

GET  ADDRE5S  FROM  TOP  Of  STACK 


;  RESTORE  MAPPING  REGISTER 


CEAL 
Symb 

ALOC 
ALOC 
A$$C 

••,$$c 

A$$P 
A$$T 
CEAV 
CRAV 
C$$C 
CilO 
C$$R 
DEAC 
D$$B 
D$$I 
D$$L 

.  AB 

Err^ 


Work 
Work 
Size 
Size 
Oper 

Elac 
SY;C 


[: 
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CEALL  -  ALLOCATE  BYTES  OF  POOL 
Symbol  t?ble 
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ALOCB  = 

****** 

GX 

DS$YNC= 

000000 

K$$TPS= 

00007A 

N$$LDV= 

000001 

S$$WRG= 

000000 

AL0C1  = 

****** 

GX 

D$$YNM= 

000000 

LDSLP  = 

000000 

N$$MCP= 

000001 

S$$YSZ= 

007600 

A$$CHI'  = 

GOOOOO 

EXSIZ  = 

****** 

GX 

L$$ASG= 

000000 

N$$MLL= 

000001 

T$$(CMG= 

000000 

■,$$CPS  = 

000000 

E$$XPR= 

000000 

L$$DRV= 

000000 

N$$M0V= 

000010 

T$$MIN= 

000000 

A$$PRI= 

000000 

F$$LVL= 

000001 

L$$P11= 

000001 

N$$NCT= 

000001 

V$$CTR= 

001000 

A$STRP= 

000000 

G$$TPP= 

000000 

L$$11R= 

000000 

N$$PEM= 

000001 

X$$DBT= 

000000 

CEAVL  = 

t*  t  **■* 

GX 

G$$TSS= 

OOOGvO 

M$$CR8= 

000124 

P$$P45= 

000000 

$ALL16 

OOOOOORG 

CRAVL  = 

*■****■* 

CX 

GS$TTK= 

000000 

M$$CRX= 

onoooo 

P$$WRD= 

000000 

$ALL18 

000150RG 

C$$CKP= 

000000 

G$$WRD= 

000000 

M$$FCS= 

000000 

QBIAS  = 

«****-  GX 

$ALN18 

000120RG 

C$JaRE= 

000400 

HEADR  = 

****** 

GX 

M$$MGE= 

000000 

QSTRT  = 

******  GX 

$AMEM  = 

******  GX 

CS$RSH= 

17756A 

IISRAR: 

000000 

M$$NET= 

000000 

Q$$0PT= 

000010 

$DEA16 

000060RG 

OEACI  = 

******* 

GX 

I$$RDN= 

000000 

M$$OVR= 

000000 

R$$DER^ 

000000 

$DEA18 

000220RG 

D$$BlIG- 

1775U 

K$$CNT= 

177546 

NBIAS  = 

******  GX 

R$$K1|= 

000001 

SDECEX 

000064RG 

D$$ISK= 

000000 

K$$CSR= 

177546 

N$$ACC= 

000001 

R$$SMD= 

000000 

$DMEM  = 

******  GX 

DS$Ln  = 

000001 

K$$LDC= 

000000 

N$$BUF= 

000001 

R$$11M= 

000000 

.  AB5. 

000000 

000 

(RW,I,GBL,ABS,OVR) 

000276 

001 

(RW,I,L 

CL.REL.COM) 

Errors 

detectec 

: 

0 

***    Assembler   statistics 

Work      file     reads:   0 

Work      file   writes:    0 

Size   of   work    file:    8936   Words      (    35   Pu:jes) 

Size-   of   cor-    nool:    14440  Wrrds      (    55   Pages) 

Operating     i    -^tem:    RSX-' 1M/PLUS 

SYtcEALL!v2!il32;i34]CEALL/Crv-SP  =  SY:[1,1JRSXI*ICf*I.SML/ML,[l30,l10]NETLI8/ML,C130,10]PSXMCM/PA:1,[132,10]CEALL 


r  nr  «  t  c  r> 


iM_Q<;    AT    nn.ni 
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CFGCMT     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:01 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


CERR 

CFGBF 

CFGSZ 

CFLIN 

CNTDF 

CNTKW 

CNTST 

CTL 

C.CSR 

C.CTL 

C.PRI 

C.VECT 

FMT8 

FMT8A 

FMT8B 

FM.8 

FM.8A 

FM.8B 

GETCSR 

1$$AS 

MS.CSR 

MS.PRI 

MS.VCT 

REP8A 

RTSPC 

R$$EIS 

R$$MPL 

R$$11D 

SYNERR 

S$$BAS 

SALPHA 
$ANY 

sblank 

SOIGIT 

SDNUMB 

$EOS 

$ERRZ2 

SERRIC 

SERRID 

$ERR1E 

SERRIF 

£ERR1T 

SEXIT 

SFAIL 

$GPRM 

SLAMDA 

SWISS 

SMXVCr 

SNLCSR 

SNUMBR 

SCCNT 


♦*.»*«  GX 
»♦♦**•  GX 
**♦••*  GX 

******   Q\ 

009000  R 
000000  RG 
000000  RG 
******   GX 
0001 6A  R 
000052  R 
000240  R 
00007A 

****** 
****** 

000000 
000000 
000000 

****** 
****** 
****** 
****** 
****** 

**!•*** 

****** 


GX 
GX 
GX 


GX 

GX 
GX 
GX 
GX 
GX 


GX 


****** 
****** 
****** 
^♦**** 
****** 

000022 

000020 

000006 

00002A 

OOOOK 

000012 

000150  R 

000000  R 

0000?2  R 

000070  R 

000114 

000000 
]''7777 

•  ***** 

000000 
*•«***  GX 
.*..,*  GX 
*.»...  GX 
000002 
000000  RG 


GX 


REFERENCES 

6-77 

7-108 

7-107 

6-77 

7-104 

7-106 
#8-123 

9-170 
*9-194 
#9-170 
#9-216 
#9-177 

6-78 

a-81 

6-77 
#6-78 
#6-81 
#6-77 

9-196 

9-224 

9-194 

9-216 

9-177 

6-81 

C-77 

9-224 

6-82 

9-224 
*7-109 

6-77 

6-81 
#8-123 
#8-123 
#8-123 
#8-123 
#8-123 
#8-123 
#6-81 
»t-77 
»u-78 
#6-79 
#6-80 

7-119 
#8-123 
#8-123 

8-123 
#8-123 

9-177 

9-183 

9-206 
#8-123 
#7-104 


6-78 

6-78 
#8-123 


6-79 

#6-79 

9-209 
9-226 
9-186 

fe-78 

8-142 

•7-112 
6-77 


9-212 
9-188 
9-189 
9-211 
9-228 


•9-186 


6-79 
6-79 


I'     4 
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CREF       04.00 

6-80 
6-80 


6-81 
6-81 


'CFG[ 

MACF 

MACF 

rALl 
D8G1 
I 

lMS( 
IST/ 
MTR/ 
RETl 
STA' 

TRAf 


I 


6-80 
#6-80 


6-79 

9-199 

•9-172 
6-78 


6-80 
9-233 

6-78 


6-79 


6-79 


6-80 


6-81 


Q-194 


•9-209 


9-216 


♦9-226 
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CFGDDM  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:02 

MACRO   CROOS   REFERENCE 


B     5 

PAGE   2 

CREF       0^.00 


CFC 
DTE 


MACRO  NAME 

REFERENCES 

(■ALL 
DBGTPS 

6-79 
#7-92 
#7-U2 

#7-98 
#7-K8 

#7-112 

ttj-}'' 

#7-132 

#7-133 

#7-13A 

#7-137 

#'-138 

#7-U1 

lMSGSR 

#5-57 

6-88 

ISTATS 

#5-57 

7-92 

MTRANS 

#7-92 

RETURN 
STATES 

6-83 
#5-5/ 
7-130 

8-161 

7-96 

#7-135 

#7-99 
#7-139 

ity-w, 

#7-106 
#7-150 

#7-108 

#7-110 

#7-113 

#7-115 

#7-118 

TRANS 

#5-57 

#7-97 

#7-98 

7-103 

#7-105 

#7-107 

#7-109 

#7-111 

#7-112 

#7-11A 

#7-116 

#7-117 

#7-119 

#7-131 

#7-132 

#7-133 

#7-134 

#7-136 

#7-137 

#7-138 

#7-U0 

#7-U1 

#7-1A2 

lt7-]^7 

#7-KC 

C     5 


r  r  r  r\T  t: 


r 
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DTESDF  ACTION  ROUTINES 


521 
522 
525 

524 

525  000502 

■  NETWORK  NAME 

016700 

OOOOOOG 

OTENET:  MOV 

.PSTCN,RO 

526  000506 

020027 

000006 

CMP 

RO,*DTNMMX 

327  000512 

101010 

BHI 

101$ 

528  0005U 

016701 

000"00G 

MOV 

.PSTPT.RI 

529  000520 

012702 

000027' 

MOV 

#DTNTNM,R2 

550  00052A 

112122 

10$:    MOVB 

(R1)+,(R2)+ 

551  000526 

005500 

DEC 

RO 

552  000330 

005375 

BGT 

10$ 

555  C00552 

33A 

555 

000A05 

BR 

DiEE.ND 

556 
537 
55:.  00055A 

;  ERRORS 

101$:    EMSG$R 

00 

CT  SIZE  OF  SUPPLIED  NAME 

BIGGER  THAN  MAXIMUM? 

BR  IF  YES,  ERROR 

POINT  TO  NAME 

POINT  TO  LOCAL  COPY 

COPY  NAME 

MORE  TO  COPY? 

BR  IF  YES 

ELSE  MERGE  IN^O  END  PROCESSING 


ILLEGAL  NETWORK  NAME  PARAMETER 


559 


,.  C  6 


B  7 

»'FILE"ID« 

HeGFEA 

CCCCCCCC 

FFFFFFFFFF 

GGGGGGGG   F 

FFFFFFFFF 

EEEEEEEEEE 

AAAAAA 

CCCCCCCC 

FFFFF"FFF 

GGGGGGGG   F 

FFFFFFFFF 

EEEEEEEEEE 

AAAAAA 

CC 

GG          F 

EE 

AA      AA 

CC 

GG          F 

EE 

AA      AA 

CC 

GG          F 

EE 

AA      AA 

CC 

GG          F 

EE 

AA      AA 

CC 

FFFFFFFF 

GG          F 

FFFFFFF 

EEEEEEEE 

AA      AA 

CC 

FFFFFFFF 

GG          F 

FFFFFFF 

EE^EEEEE 

AA      AA 

CC 

GG  GGGGGG   F 

EE 

AAAAAAAAAA 

CC 

GG  GGGGGG   F 

EE 

AAAAAAAAAA 

CC 

GG      GG   F 

EE 

AA      AA       

CC 

GG      GG   r 

EE 

AA      AA       

CCCCCCCC 

GGGGGG     F 

EEEEEEEEEE 

AA      AA       

CCCCCCCC 

GGGGGG     F 

EEEEEEEEEE 

AA      AA       

LL 

sss; SSSS 

"TTTTTTTTT 

LL 

SSSSSSSS 

TTTTITTTTT 

LL 

SS 

LL 

SS 

lL 

SS 

LL 

SS 

LL 

sss^ss 

LL 

ssssss 

LL 

ss 

LL 

SS 

LL 

SS 

LL 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

CFC 
MAC 
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r 
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MACRO  DEFINITIONS 
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CFGP\ 
FNDPF 


55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 

65  000000 

66  000000 

67  000000 

68  000000 

69  000000 

70  000000 

71  000000 

72  OOOCOO 
73 

7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 


89 
90 
91 
92 
93 
94 
95 


.SBTTL  MACRO  DEFINITIONS 


LIBRARY  MACROS 


.MCALL      EMSb$R,SAVRG,RESRG,RETC,PVCDF$,XCBDF$ 
.MCALL      PH8DF$,NTLER$,SrATE$,TRAftl$,ISTAT$ 
.MC^LL      iLTDF$,XPDDB$,CTRDF$,DTEDF$,PLBDF$ 


LIBRARY  SYMBOLS 

DTEDFS 
CTRDFS 
XPDDBS 
PHBDFI 
PVCDF$ 
SLTDFS 
XCBDFS 
PLBDFS 

LOCAL  MACRO  DEFINITIONS 


.MACRO 

MOV 

.ENDM 

.MACRO 

MOV 

.ENDM 


SAVMAP 
aKSAR5,-(SP) 


RESMAP 
(SP)+,aKSAR5 


LOCAL  DTE  DESCRIPTOR  OFFSETS 

TRANSPORT  COUNTER  BLOCK  OFFSETS 

XPT'S  DOB  OFFSETS 

PSI  HOME  BLOCK  OFFSETS 

PVC  NAME  BLOCK  OFFSETS 

SLT  OFFSETS 

X25  CIRCUIT  CONTROL  BLOCKS 

DEFINE  °LB  OFFSETS 


SAVE  APR  5 


SET  UP  APR5  MAPPING 

.MACRO  MAP     BIAS 
MOV     BIAS,aKSAR5 
.ENDM 

SET  UP  APRS  BIAS 

.MACRO  BIAS    REG 

SIC  #160000, REG 

BIS  #120000, REG 
.ENDfl 


RESTORE  APRS 


SET  UP  APRS  MAPPING 


CLEAR  CURRENT  MAPPING  BITS 
SET  UP  APRS  MAPPING 
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CFGPVC    -    INITIAL   CONFIG   FILE    SC   MACRO 
FNDPR'    -   fIND   FREE    PORT   ENTRY 


SAB 

5 ',9 

550 

551 

552 

553 

55A 

555 

556 

557 

556 

559 

560 

561 

562 

563 

56A 

565   001172 

56b  001176 

567  001202 

568  001210 

569  C0;2K 

570  Of'^220 

571  001222 

572  00122A 

573  001226 

574  001 230 

575  001232 

576  00123A 

577  001236 

578  0012A2 

579  001 2A6 

580  001250 

581  00125A 

582  001256 

583  001260 
58A  001 26A 


V'  3 
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.03b  Saturday  29-Jun-85  00:OA 


Page  16 


,  .SBTTL   fNDPRT  -  FIND  FREE  PORT  ENTRY 

FNDPRT  -  FIND  FREE  PORT  ENTRY 

INPUTS: 

H$NPT  -  TOTAL  NUMBER  OF  PORTS 

OUTPUTS: 

CARRY  CLEAR  -  FREE  PORT  FOUND 

R1  -  PORT  NUMBER  ALLOCATED 

PVCPRT  -  PORT  NUMBER 

PRTADD  -  MAPPED  ADDRESS  OF  ENTRY  IN  PORT  TABLE 
CARRY  SET  -  FREE  PORT  NOT  FOUND 


017700  OOOOCOG 

016067  00J022  OOOOOA' 

0160A6  000020 

012600 

005001 

005720 

005201 

005720 

001006 

0057A0 

010067  000006' 

110167  000034' 

OO0A04 

020167  000004' 

1C3764 

000261 


FNDPRT: 

SAVMAP 

MOV 

aPSJPT,RO 

MOV 

H$NPT(RO), 

PORTNO 

MOV 

H$PT8(R0), 

-(SP) 

CALL 

SCEACX 

MOV 

(SP)+,RO 

CLR 

R1 

TST 

(R0)  + 

10$: 

INC 

R1 

TST 

(R0)  + 

BNE 

15$ 

TST 

-(RO) 

flOV 

RO, PRTADD 

MOVB 

Rl, PVCPRT 

BR 

20$ 

15$: 

CMP 

R1,P0RTN0 

BLO 

10$ 

SEC 

20$: 

RESMAP 
RETURN 

SAVE  CURRENT  MAPPING 

GET  ADDRESS  OF  PSI  HOME  BLOCK 

GET  NUMBER  OF  PORTS 

GET  ADDRESS  OF  PORT  TABLE 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS  OF  PORT  TABLE 

PORT  NUMBER  COUNTER 

SKIP  FIRST  ENTRY  (NOT  AVAILABLE) 

INCREMENT  PORT  NUMBER 

IS  THIS  A  FREE  PORT? 

BR  IF  NO 

POINT  TO  PORT  ENTRY 

SAVE  MAPPED  ADDRESS  OF  ENTRY 

SAVE  PORT  NUMBER  ALLOCATED 

AND  EXIT 

END  OF  LIST? 

BR  IF  NO 

INDICATE  NUMBER  OF  PORTS  EXCEEDED 

RESTORE  PREVIOUS  MAPPING 
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CFGPVC 

CREATED  BY  MACRO  ON  29-JUN-85  AT  00:0^ 

PAG 

SYMBOL 

CROSS  REFERENCE 

CRE 

SYMBOL 

VALUE          REFERENCES 

L.LEN 
L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

N$TLC 

N$$VCT 

PCVKW 

PDVID 

PDVNM 

PDVTA 

PF.DLM 

PORTNO 

PRTADD 

PSIPT 

PVCCTM 

PVCDF 

PVCFLG 

PVCLCN 

PVCNAM 

PVCOWN 

PVCPRT 

PVCPSZ 

PVCST 

PVCT 

PVCTI 

PVCl.s.^ 

PVDLM 

PVEND 

pvrc 

PVLCN 

PVNAM 

PVNAMX 

PVOWN 

PVPS7 

PVSTA 

PVWSZ 

PX$DLM 

RTSPC 


000022 
000022 
000020 
OOOOU 
000021 
000013 
000100 
****** 
000000  RG 


=  ****** 


=  000001 
000004 
000006 

=  ****** 


GX 
GX 
GX 

R 
R 
GX 


000012 
000000 
000035 
000010 
000036 
000020 
000034  R 
000014  R 
000000  RG 
000220 
001 726 
000016 
001630 
000400 
000346 
000162 
000056  R 
000006 
000:^10  R 
000244  R 
002000  R 
000266  R 
000200 
******  GX 


#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
21-804 
13-423 
9-189 
20-718 
21-793 
20-723 
#7-142 
#7-130 
#7-131 

13-453 
#7-133 
9-187 
«7-144 
#7-132 
#7-145 
#7-136 
#7-143 
#7-134 
#10-203 
#11-340 
#20-737 
#7-135 
#20-711 
#13-407 
#12-392 
#11-324 
#11-298 
#6-103 
#12-377 
#12-353 
#20-749 
#12-365 
21-817 
8-161 


21-805 

13-441 

#10-208 


21-792 
13-411 

*16-567 
14-488 
14-484 

♦  11-342 

*11-314 
•11-330 
11-301 
•11-313 
•16-578 
•11-311 


■11-312 


11-299 


-162 


R$RO 

=  000002 

#6-108 

R$R1 

=  000004 

#6-109 

R$R2 

=  000006 

#6-110 

R$R3 

=  000010 

#6-111 

R$R4 

=  0C0012 

#6-112 

R$R5 

=  000014 

#6-113 

SF.ACT 

-  000200 

#5-70 

SF.ENA 

i-  000100 

#5-70 

5F.LPB 

=   000004 

#5-70 

SF.MFL 

=  000040 

#5-70 

SF.PAf 

=  000020 

#5-70 

SF.RcA 

=  000010 

#5-70 

21-806 
13-450 


13-419 
16-580 
•16-577 
15-522 
'7-614 

•12-396 
13-437 
11-307 

•12-382 
17-616 

•12-355 


•12-367 


11-302 


8-163 
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04.00 


15-5'.4 

13-443 
16-566 


13-436 
15-532 
13-432 
14-492 
18-674 
17-613 


17-612 


13-431 


20-720 


13-451 


17-617 
15-537 


CFGSL 
ACTIO 


14-496 


18-657 

20-711 


18-673 


•164 


15-536 


8-165 


8-166 


8-167 


-168 
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CFGSLT  -  SCAN  CONFIGURATION  fiL 
ACTION  ROUTINES 


189 
190 
191 

192  000062 

193  000070 
19A  000072 
195  000102 
196 

197 
198 
199 

200  000104 

201  000112 

202  0001 U 

203  000124 
20A 

205 
206 

207  000126 

208  000132 

209  000134 

210  000142 

211  C'^':'  '4 
212 

213 
214 
215 

216  000152 

217  000156 

218  000160 
2^9  000166 

220  000172 

221  000200 
222 

223  000202 

224 

225 

226 

227 

228 

229  000210 

230 

2V   0002^6 

232 

235 

234 

235 

236  000220 

237  000226 

238  000230 

239  000236 
240 

241  000240 

242  000250 
243 

24  4 
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.SBTTL  ACTION  ROUTINES 
CONTROLLER  NUMBER  (SLT$DF) 


CFGS 
STASI 


126767 
00'404 


126767 
001404 


005767 

001004 
016767 


005767 
001011 
016767 
006367 
016767 


OOOOOOG  OOOOOOG  S.CTL: 
10$: 


CMPB 
BED 
REJ$ 
RETURN 


.PNUMB,CTL 
10$ 


UNIT  NUMBER  (SLT$DF) 
OOOOOOG  OOOOOOG  S.UNT: 


CMPB 
BED 
REJ$ 
RETURN 


.PNUMB.UNT 
10$ 


OOOOOOG 

oooooor 


OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 


10$ 

;  COUNTER  TIMER  (SLT$DF) 

S.CTIM 


TST 
8NE 
OOOOOOG        MOV 

RETURN 
101$:    EMSG$R 


.PNUMH 

101$ 

.PNUMB,$CTIM 

YR 


HELLO/LISTEN    TIMER 
S.HTIM 


TST 

BNE 
OOOOOOG        MOV 

ASL 
OOOOOOG        MOV 

RETURN 


.PNUMH 

101$ 

.PNUMB,$$HT!M 

.PNUMB 

.PNUMB,$$LTIM 


101$: 


EMSG$R   ZP 


BROADCAST  ROUTER  ADJACENCIES 
016767  OOOOOOG  OOOOOOG  S.BRAD:  MOV     . PNUMB,. NBRA 

RETURN 


022767 
002404 
016767 


000001 


ROUTER  -RIORITV 
000177  OOOOOOG  S.PPRI 
OOOOOOG  OOOOOOG 


101$: 


CMP 
BLT 
MOV 
RETURN 

REJ$ 
RETURN 

.END 


#127.,. PNUMB 
101$ 
.PNUMB,. RPR  1 


REJECT  TRANSITION  IF  NO  MATCH 


REJECT  TRANSinON  IF  NO  MATCH 


VALID  COUNTER  TIMER  VALUE? 

BR  IF  NO 

ELSE  SAVE  COUNTER  TIMER  VALUE 

ILLEGAL  COUNTER  TIMER  VALUE 


DOUBLE  WORD  VALUE 

IF  YES  -  BRANCH 

STORE  HELLO  TIMER  VALUE 

MULTIPLY  BY  2 

STORE  LISTEN  TIMER 


ILLEGAL  HELLO  TIMER  VALUE 


STORE  BROADCAST  ROUTER  ADJACENCIES  VALUE 
LIMIT  CHECKED  DURING  MARK  FOR  LOAD  SCAN 


LEGAL  VALUE  ? 

IF  NO  -  BRANCH 

STORE  ROUTER  PRIORITY 


ILLEGAL  ROU'ER  PRIORITY  VALUE 


c_ii 
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STASDF  STATE  TABLE 


CFGS 
tRRC 


169  000270 

170  000270 

171  000270 
172 

173  000270 


TRANS 

STATES 

TRANS 

STATES 


<',>,SEX1T 
BITS2 
SRAD50,B1TS1 


C  12 


CFGSVC  - 

CONFIG  FILE  SCAN  A  ' 

ERROR  NIESSAOES 

13'j 

136 

137 

138 

000056 

139 

000102 

UO 

000126 

HI 

000152 

K2 

000200 

U3 

00022A 

Ui, 

000250 

U5 

000266 

K6 

000340 

}i,7 

00037A 

U8 

U9 

150 

000000 

B  13 

)  MACRO  V05.03b  Saturday  29-Jun-85  00:06  Page 


CFG 
STR 


.SBTIL  ERROR  MESSAGES 


.ENABL 
NTLERS 
NTLERS 
NTLERS 
NTLER$ 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
.DSABL 

.PSECT 


LC 

,3D,8B,CFERR,RTSPC 

,3E,8B,CFERR,RTSPC 

,3F,8B,CFERR,RTSPC 

,3G,8B,CFERR,RTSPC 

,3H,8B,CFERR,RTSPC 

,3I,88,CFERR,RTSPC 

,3J,8B,CFERR,RTSPC 

,3K,8,CFERR,RTSPC, 

,3M,8,CFERR,RTSPC, 

,3Z,8,CFERR,RT^PC, 

LC 


,<packet  size> 

,<window  si2e> 

,<Ttags  word> 

,<recal.l  timer> 

,<retr>'  timer> 

,<DTE  addres5> 

,<owner> 

,<SVl  descriptor  allocation  faiture> 
,<DTE  address  missing> 
,<PSI  not  loaded> 


C  13 


B  U 

CFGSVT  -  CONfIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  00:06  Page  \1 
STRNXT  -  STORE  NEXT  DIGIT 


CFGl 
LOC 


622 
623 
62A 
625 
626 
627 
628 
629 
630 
631 
632 
633 
63A 
635 
636 
637 
638 
639 
6A0 
6AT 
6A2 
6A3 
6AA 
5A5 


001520 
001 526 
00-532 
001536 
0015A2 
001 5A6 
001552 


116767 
012700 

110177 
005267 
105267 


000001 


OOOOOOG  00005A' 
00005A' 

OOOOOC 
000000' 
00002A' 


.SBTTL  STRNXT  -  STORE  NEXT  DIGIT 


STRNXT  -  STORE  NEXT  DIGIT 


INPUTS: 

.PCHAR  -  MATCHED  CHARACTER  FROM  TPARS  TRANSITION 
NEXT  -  ADDRESS  OF  NEXT  BVTE  AVAILABLE  FOR  SIORAGE 

OUTPUTS: 

NEXT  -  a:  >ESS  of  next  AVAILABLE  BVTE 
COUNT  -  b.  DATED 
RO.RI  DESTROYED 


STRNXT: 


MOVB 

.PCHAR, CVTBUF 

MOV 

*CVTBUF,RO 

CALL 

$Ci"T8 

MOVB 

RI.SNEXT 

INC 

NEXT 

1NC8 

COUNT 

RETURN 

MOVE  DIGIT  TO  CONVERTSION  BUFFER 

POINT  TO  CONVERSION  BUFFER 

CONVERT  TO  BINARY 

STORE  BINARY  DIGIT 

POINT  TO  NEXT  AVAILABLE  BYTE 

INCREMENT  DIGIT  COUNT 


.END 


C  U 


n 


CfGUNT  -  CONFIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Monday 
LOCAL  DATA  AND  CONSTANT  DEFINTIONS 


B  15 

15-Jut-85  18;56  Page  6 


62 

63 

6^ 

65 

66 

6? 

68 

69 

70 

71 

72 

73  000000 

000062 

7A  000002 

000113 

75  OOOOOA 

000156 

76  000006 

000206 

77  000010 

000226 

78  000012 

000^4 

79  OOOOU 

001130 

80  000016 

002260 

81  000020 

003A10 

82  000022 

003720 

83  00002A 

00^540 

8A  000026 

007020 

85  000030 

011300 

86  000032 

0160AO 

87  00003A 

022600 

88  000036 

022600 

89 

90 

91 

92 

000031 

93 

9A 

95 

96 

OP''001 

97 

000002 

98 

000003 

99 

OOOOOA 

.SBTTL   LOCAL  DATA  AND  CONSTANT  DEFINTIuNS 
LOCAL  DATA 


THIS  TABLE  IS  INDEXED  BY  THE  VALUE  SPECIFIED  IN  THE  HIGH  BYTE 
OF  THE  FIRST  CHARACTERISTICS  WORD.   IT  MAPS  ONTO  THE  CORRECT 
TRANSMIT/RECEIVE  SPEED  WHICH  WAS  SPECIFIED  AT  NETGEN 


SPEEDT: 


.WORD 

50. 

.WORD 

75. 

.WORD 

110. 

.WORD 

134. 

.WORD 

150. 

.WORD 

300. 

.WORD 

600. 

.WORD 

1200. 

.WORD 

1800. 

.WORD 

2000. 

.WORD 

2400. 

.WORD 

3600. 

.WORD 

4800. 

.WORD 

7200. 

.WORD 

9600. 

.WORD 

9600. 

CONSTANT  DEFINTIONS 

MAXCST  =  25.  ;  MAXIMUM  COST  ALLOWABLE 

CHARACTERSTICS  WORD  1  PROTOCOL  BIT  SELECTIONS 


C1.DCP  =  1 

C1.BSY  =  2 

CI. SDL  =  3 

C1.X2^  =  4 


DDCMP 

BISYNC 

SDLC/ADCCP/HDLC 

X.25 


B  16 
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SYMBOL    CROSS   REFERENCE  CREf        OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CERR 

z   ****** 

GX 

7-110 

7-11  1 

7-112 

7-113 

CFGBF 

•  ****** 

GX 

8-139 

CFGS2 

****** 

GX 

8-138 

CFLIN 

~  ****** 

GX 

7-110 

7-111 

7-112 

7-115 

CHERR 

00025A 

R 

11-229 

#11-2A6 

11-252 

11-268 

CH.SYN 

=  OOOOOA 

1  '-306 

Cl.BSY 

=  000002 

#f  -97 

C1.DCP 

=  000001 

#6-96 

12-287 

CI. SDL 

=  000005 

#6-98 

C1.X25 

=  OOOOOA 

#6-99 

FL.FDX 

=  ****** 

GX 

11-235 

FL.HDX 

=  ****** 

GX 

11-238 

FL.KMX 

:r  ****** 

GX 

13-3A2 

13-372 

FL.LMC 

r  ****** 

GX 

13-339 

13-370 

FMT8 

-  ****** 

GX 

7-111 

7-11A 

7-115 

FMT8A 

-  ****** 

GX 

7-116 

FMT8B 

r  ****** 

GX 

7-110 

7-112 

7-113 

FM.8 

=  000000 

#7-111 

#7-11A 

#7-115 

FM.8A 

=  000000 

#7-116 

FM.8B 

=  000000 

#7-110 

#7-112 

#7-113 

GETCSR 

=  ****** 

GX 

13-35A 

LF.ACT 

=  100000 

#5-60 

1 ' .BRO 

=  000400 

#5-60 

13-392 

LF.BWT 

=  000007 

#5-60 

LF.ENA 

=  002000 

#5-60 

LF.LPB 

=  001000 

#5-60 

LF.MDC 

=  000100 

#5-60 

LF.MFL 

=  OOAOOO 

#5-60 

LF.MTP 

=  000020 

#5-60 

LF.PAC 

=  000200 

#5-60 

LF.RDY 

=  OAOOOO 

#5-60 

LF.REA 

=  010000 

#5-60 

LF.SER 

=  OOOOAO 

#5-60 

LF.TIM 

=  000010 

#5-60 

LF.UNL 

=  020000 

#5-60 

LF.X2P 

=  000000 

#5-60 

LN.CLO 

=  000000 

#5-60 

LN.DUM 

=  000005 

#5-60 

LN.LOA 

=  OOOOOA 

#5-60 

LN.LOO 

=  000003 

#5-60 

LN.OAU 

=  000003 

#5-60 

LN.OFF 

=  000001 

#5-60 

LN.ON 

r  000000 

#5-60 

LN.OOP 

=  OOOOOA 

#5-60 

LN.OPE 

=  000001 

#5-60 

LN.REF 

=  000002 

#5-60 

LN.SER 

=  000002 

#5-60 

LN.STA 

=  000017 

#5-60 

LN.SiJB 

=  000360 

#5-60 

ln.tr; 

=  000006 

#5-60 

L.COST 

000015 

#5-60 

»13-397 

L.CTL 

000012 

#5-60 

7-11'.  7-115  7-116 

7-11A  7-115  7-116 


EVL  CREATED  SV     MACRO     OH  28-JUN-85   AT   22:58 

SYMBOL    CROSS   REFERENCE 


C     1 

PAGE   A 

CREF        OA.OO 


ALCf 
$DME 


SYMBOL  VALUE 


LF.MM 

LF.UNL 

LF.X2P 

LGDDB 

LGPD>/ 

LGSTT 

.N.CLO 

LN.DJM 

LN.LOA 

LN.LOO 

LN.OAu 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LSSSIl 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.'^LG 

L.KRSA 

L.lEN 

L.MPF 

L.NMST 

L.NSTA 

L  .  JiJMR 

L.UNT 

■lAPrwN 

l»rAPOR' 

MOISAC 

MOISPR 

MOSSSV 

MO$254 

M0$?5P 

iviOSiSS 

MO$29S 

»1$m;gh 

MSJ'OO 

MS3'0i 

M$5105 
WlOG 


000010 

020000 

000000 

000022  R 

00002A  R 

000026  R 

000000 

000005 

OOOOOA 

000005 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000015 

000012 

177776 

000002 

OOOOOA 

000003 

000006 

000010 

OOOOOC 

000016 

:  000022 

000022 

000020 

00001A 

000021 

000013 

000636  K 

000702  F 

:  000016 

=  000012 

=  000014 

=  000006 

:  000002 

■-   000004 

^  000010 

:  0OCO03 

=  000000 

=  000001 

^  000002 

=  0CC003 

000042  ' 


REFERENCES 

#5-60 

#5-60 

#5-60 

#8-98 

#8-99 

#8-100 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

9-199 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 

9-179 

9-183 
#5-61 
#5-61 
#5-61 
#5-6- 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-6' 
#5-61 

7-77 


10-301 
10-302 
10-309 


9-223 


13-462 
13-463 


11-338 


11-368 


#12-395 
#13-421 


5-61 
#9-14? 


EVU 
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229 

230 

231 

232 

233 

23A 

235 

236 

237 

238 

239 

2A0 

2A1 

242 

2A3 

24A 

2'.5 

2A6 

2' 7 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

217 

278 

^79 

280 

281 

282 

283 

284 

283 


.SBTTL  SDMEM 


DEALLOCATE  MEMORY  FROM  PARTITION 


SDMEM 

INPUTS: 


R3  - 

R4 

R5 


-  SUBROUTINE  TO  FRFf  A  CONTIGUOUS  SEGMENT  OF  REAL 
MEMORY  FROM  A  PARTITION. 


BASE  ADDRESS  OF  SEGMENT  TO  BE  RETURNED 
CURRENT  VALUE  OF  SOBIAS 
S12E  OF  SEGMENT  IN  32  WORD  BLOCKS 


TASK  SWITCHING  MUST  BE  DISABLED 

OUTPUTS: 

MEMORY    IS   RETURNED   TO  NTPOOL 
R4   -  NEW  VALUE   OF    SQBIAS 

R0,R1,R2  -DESTROYED 


CAUTION: 


000220 

000220  016767     OOOOOOG  177552 

000226  017746     177546 

000232  010546 

000234  o-'6705      177540 

000240  .,0315 

000242  012702  140002 

000246  011612 

000250  010442 


000252  001402 
000254  020304 


SDMEM: 


MOV 

KSAR6,KS6 

MOV 

aKS6,-(SP) 

MOV 

R5,-(SP) 

MOV 

KS6,R5 

MOV 

R3,(R5) 

MOV 

*.8ASEB+2.R2 

MOV 

(SP),(R2) 

MOV 

R4,-(R2) 

000256  101001 

C00260 

000260  010304 

C0O26? 

000262  01041? 


20S: 
30i. 


THIS  ROUTINE  CAN  BE  SUPPLIED  WITH  Ai\iY  ARGUMENTS  AND  IT  WILL 
SIMPLY  ADD  WHATEVER  SEGMENT  OF  CORE  THAT  DEFINES  TO  THE  FREE 
SPACE  LIST. 

SQBIAS  MUS  BE  UPDATED  IN  IT'S  GLOBAL  STORAGE  LOCATION 
BEFORE  TASK  SWITCHING  IS  REENABLED. 


COPY  KISAR6  ADDRESS 
SAVE  MAPPING  REGISTER 

PUT  LENGTH  ON  TOP  OF  STACK 

SET  LOCATION  0  OF  TASK  SEGMENT  HOLE  TO 

VIRTUAL  MPBIAS.  PUT  (T.HP)  AS 

A  FIRST  (BUT  NOT  NECESSARILY 

FINAL)  GUESS  FOR  TASK  HOLE 

POINTER.  SET  HOLE  SIZE  =  TO 

SEGMENT  SIZE.  R3,(SP) 

ARE  1/64  THE 

BASE  ADDR,  SEGMENT  SIZE 

RESPECTIVELY.  T.HP  IS  INDEX 

INTO  TPD  FOR  1ST  HOLE 

POINTER. 

IF  TASK  HOLE  IS  LOWER  THAN 
1ST  HOLE  OR  IF  (T.HP)  =  0, 
THEN  TASK  HOLE  BECOMES 
1ST  HOLE. 

NEW  1ST  HOLE? 

YFS— REDEFINE  1ST  HOLE  PCIMEr. 

SET  UTILITY  ASR  (KP.AR3)  TO 
1ST  HOLE  AND  BEGIN  SCAN. 


CEAL 

SVMBi 

SYMB^ 

ALOCI 
ALQC 
CEAV 
CRAV 
DEAC 
EXSI 
HEAD 
MStd 
NBIA 
QBIA 
QSTR 
RSSM 
RSSl 
$ALL 
SAIL 
SALN 
SAME 
IDEA 
SDEA 
SDEC 
SOME 


SEQ 

CMP 


BHI 

;ov 

MOV 


20$ 

R3,R4 


30f. 

R3,R/ 

R4,(R5) 
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CREF   0^.00 


SYMBOL 

VALUE 

REFEREfJCES 

ALOCB 

- 

**i[  t  ♦* 

GX 

5-82 

ALOCI 

- 

**t*  ** 

GX 

5-77 

CEAVL 

r 

****** 

GX 

5-73 

6-112 

CRAVL 

r 

***J  ** 

GX 

6-119 

DEAC1 

- 

****** 

GX 

6-121 

EXSIZ 

- 

****** 

GX 

6-1U 

HEADR 

= 

****** 

GX 

5-84 

7-175 

MSIMGE 

- 

000000 

7-157 

NBIAS 

- 

*«+*♦* 

GX 

7-161 

7-164 

8-212 

8-217 

QBIAS 

- 

******* 

GX 

7-172 

7-179 

8-209 

8-219 

QSTRT 

- 

*»  +  ■*** 

GX 

8-210 

8-215 

R$$MPL 

- 

*♦»*** 

5-71 

6-110 

R$$11M 

- 

000000 

5-68 

6-106 

7-157 

$ALL16 

000000 

RG 

#5-67 

SALLIB 

000150 

RG 

#7-168 

$ALN18 

000120 

RG 

#7-157 

SAMEM 

r 

****** 

GX 

7-162 

7-173 

IDEA16 

000060 

RG 

#6-105 

SDEA18 

000220 

RG 

#8-205 

SDECEX 

000064 

RG 

#6-109 

SDMEM 

- 

***♦»* 

GX 

8-2U 

CFGC 

SVMB 

SYMB 

SRAD 
$RON 
tSTR 
$SUB 
$SCS 
$$PR 
S$VE 
Ii$F 
$$$K 
.PNU 
.PNL 
,TPA 


„J 


rDriTcn   dv      Msrci      nu   PQ- ii  l,\j-S'i    ai    00:01 
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SVMBCL  CROSS  REFERENCE 
SYMBOL  VALUE 


$RAD50 

SRONLY 

SSTRNG 

SSUBXP 

$$CSR 

StPRI 

$$VECT 

$$$fLG 

$$$KEY 

.PNUMB 

.PN'JMH 

.TPARS 


C  A 
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CREF   04.00 


000016 

000004 
D00010 


177777 
177777 

****** 


GX 
GX 
GX 


GX 
GX 
GX 


REFERENCES 

#8-123 

8-123 
*8-i23 
*8-123 
»9-208 
«9-225 
♦9-185 
*8-123 
#8-123 

9-170 

9-179 

7-110 


8-123 


9-181 
9-218 


8-123 


9-183 


9-185 


9-220 


9-222 


ropiipn  nv      Mirfin     nM  ?9- IMN-R5   Al    00:01 
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•FILE«»1D«»CFGDTE 


CFG 
DTE 


cccccccc 

-  F  F  F  F  F  F  F  F  F 

GGGGGGGG 

DDDDDDDD 

TTTTTTTTTT 

EEEEEEEEEE 

rrcccccc 

"FFFFPfFFF 

GGGGGGGG 

DDDDODD 

^ 

TTTTTTTTTT 

EEEEEEEEEE 

cc 

GG 

DD 

DD 

EE 

f" 

Gfi 

DD 

DL 

EE 

Cl 

GG 

DD 

DD 

EE 

GG 

DD 

DP 

EE 

'FFFFFFr 

GG 

DD 

DD 

EEEEEEEE 

FFFFFFFF 

GG 

DD 

DD 

EEEEEEEE 

GG 

GGGGGG 

DD 

DD 

EE 

GG 

GGGGGG 

DD 

DD 

EE 

GG 

GG 

DD 

DU 

EE 

GG 

GG 

DD 

DD 

EE 

ccccrccc 

GGGGGG 

DDDDDDDD 

EEEEEEEEEE 

rccccccc 

FF 

G6GGGG 

DDDDDDDD 

EEEEEEEEEE 

LL 

SSSSSSSb 

TTTTT 

TTTTT 

LL 

ssssssss 

TTTTT 

TTTTT 

LL 

ss 

lL 

ss 

LL 

ss 

LL 

ss 

LL 

SSS3SS 

LL 

SSSSSS 

LL 

ss 

LL 

SS 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

T 

._l 
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DTE$DF  ACTION  ROUTINES 

3A1 

3A2 

3A3 

3iA  0003A2 

3A5  0003A6  103A01 

3A6  000350 

3A7 

3A8 

3A9 

350  000352 


F.ge  15 


CFG' 
Tab 


;  END  OF  DTE$DF 

MACRO 

DTE'^ND:  CALL 
BCS 
RETURN 

CHKDTE 
101$ 

;  ERRORS 

101$:   EMSG$R 

03 

CHECK  FOR  VALID  DTE  ADDRESS 
ERROR  -  DTE  ADDRESS  NOT  FOUND 


ILLEGAL  DTP  ADDRESS 


L/nc  ft7k  C5 


L 


C  7 
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Table  of  contents 

5-  55    lACRO  DEFIMITIONS 

6-  73    SOFEA  -  LOOK  FOR  FEASDF  MAI RO 

7-  102    FEASDf  STATE  TABLE 

8-  I'.O    FEASDF  ACTION  ROUTINE^ 


CFG 
LOC 


D  7 

-QC  An  .  r\7 


r 


CFGPVC   -    INI 
LOCAL    SYMBOL 

9^ 

96 

99 
100 
101 
102 
103 
IDA 
105 
106 
107 
108 
109 
110 
111 
115 
113 
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riAL   CONMG   fILE   SC  MACRO  v05.03d  Saturday  29-Jun-85  00:0A     Page 
DEFINITIONS 


CFGP' 
INiX 


.SBTTL  LOCAL  SYMBOL  DEFINITIONS 


OOCOAO 
000006 


000C02 
C00004 
000006 
000010 
000012 
OOOOK 


LOCAL  SYMBOL  DEFINITIONS 

SPACE  =  '«0 
PVNAMX  =  6 


ASCII  SPACE 

MAXIMUM  LENGTH  OF  CIRCUIT  ID 


SAVED  REGISTER  OFFSETS  ON  STACK  FOR  SUSTKi 


R$RO  =  2 

R$R1  =  A 

R$R2  =  6 

R$R3  =  1" 

R$R4  =  Ic 

R$R5  =  14 


SAVED  RO 

SAVED  R1 

SAVED  R2 

SAVED  R3 

SAVED  R4 

SAVED  R5 
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586 
587 
588 
589 
590 
591 
592 
593 
59A 
595 
596 
597 
598 
599 
600 
601 

602  001266 

603  0012^0 

604  001 27A 

605  001276 

606  001302 

607  001304 

608  001306 

609  001310 

610  001312 

611  0013U 

612  001320 

613  001326 
6-t,  001334 

615  001342 

616  001350 

617  001356 

618  001364 

619  001370 

620  001376 

621  001402 

622  001410 

623  001414 

624  001422 

625  001426 

626  001434 

627  001442 

628  001450 


010046 

012603 
012701 
010302 
105022 
005301 
003375 
010300 

016763 
016763 
0'!6763 
016/63 
116763 
016763 
010063 
062763 
010063 
062763 
010063 
062763 
010063 
062763 
116763 
112763 


.SBTTL   INIXCB  -  INITIALIZE  X25  CIRCUIT  BlOCK 

I- 

INIXCB  -  INITIALIZE  X25  CIRCUIT  BLOCK 

INPUTS: 

RO  -  UNMAPPED  ADDRESS  OF  CIRCUIT  BLOCK 

OUTPUTS: 

R3  -  MAPPED  ADDRESS  OF  X25  CIRCUIT  BLOCK 

X25  CIRCUIT  BLOCK  INITIALIZED  ACCORDING  TO  VALUES 

SPECIFIED  IN  PVCSDF 
R0,R1,R2  DESTROVED 


000106 


000016' 

000014' 

000012' 

OOOOOOG 

000034' 

000010' 

000070 

000066 

000074 

000072 

000064 

000062 

000100 

000076 

000050' 

000001 


000020 
000016 
000060 
000024 
000^21 
000026 

000070 

000074 

000064 

000100 
000005 
000015 


INIXCB:  MOV  RO,-(SP) 

CALL  SCEACX 

MOV  (SP)t,R3 

MOV  #X$LEN,R1 

MOV  R3,R2 

10$:    CLRB  tR2)+ 

DEC  Rl 

BGT  10$ 

MOV  R3,R0 

CALL  BIASX 

MOV  PVCWSZ,X$WSZ(R3) 

MOV  PyCPSZ,X$PKSZ(R3) 

MOV  PVCCTM,X$CTIM(R3) 

MOV  d;edes,x$dte(R3) 

M0V8  PVCPRT,X$PRT(R3) 

MOV  PV.LCN,X$LCN(R3) 

MOV  R0,X$TXQ<-2(R3) 

ADD  *X$TXQ,X$TXQ+2(R3) 

MOV  R0,X$RXQ+2fR3) 

ADD  #X$RXQ,X$RXQ+2(R3) 

MOV  R0,X$WACH-2(R3) 

ADD  #X$WAQ,X$WAQ*2(R3) 

MOV  R0,X$ABQt2(R3) 

ADD  #X$AaQ,X$ABQ+2{R3) 

MOVB  SP$P4,X$ST(R3) 

M0V8  *XT$PVC,X$TVP(R3) 
RETURN 


GET  UNMAPPEI  ADDRESS  OF  CIRCUIT  BLOCK 

MAP  TO  CIRCUIT  BLOCK 

RETRIEVE  MAPPED  CIRCUIT  BLOCK  ADDRESS 

GET  SIZE  OF  CIRCUIT  BLOCK 

GET  CIRCUIT  BLOCK  ADDRESS 

INITIALIZE  CIRCUIT  BLOCK  TO  ZEROES 

MORE  TO  INITIALIZE? 

BR  IF  YES 

COPY  VIRTUAL  ADDRESS  OF  XCB 

BIAS  CORRECTLY  FOR  APR6 

STORE  WINDOW  SIZE 

STORE  PACKET  SIZE 

STORE  COUNTER  TIMER 

STORE  DTE  DESCRIPTOR  ADDRESS 

STORE  PORT  NUMBER 

STORE  LOGICAL  CHANNEL  NUMBER 
INITIALISE  TRANSMISSION  QUEUE 


INITIALISE  RECEIVED  DATA  QUEUE 

INITIALISE  ACKNOWLEDGEMENT  QUEUE 

INITIALISE  ABORTED  DATA  QUEUE 

SEI'PORT  IN  DA^A  TRANSFER  STATE 

SET  CIRCUIT  TYPE  AS  PVC 
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C  10 
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CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

SF.SER 

^   000001 

#5-70 

SF.SVC 

=  000002 

#5-70 

SF.UNL 

--  000040 

#5-70 

SLTMA 

=    ».*»♦»      GX 

21-775 

21-779 

SF=ACE 

=  OOOOAO 

#6-102 

11-303 

SP$P4 

000050  RG 

#7-154 

17-626 

SYMERR 

=   ,*»»»*      GX 

*9-192 

♦9-195 

♦20-745 

S$$BAS 

r    ****** 

8-161 

8-161 

8-162 

8-162 

8-163 

8-167 

8-164 

8-165 

8-166 

8-166 

8-167 

8-167 

8-168 

8-168 

S.COST 

000001 

#5-70 

S.FLG 

oocooo 

#5-70 

S.LEN 

OOOOOA 

#5-70 

S.NMST 

000002 

#5-70 

S.OWNR 

000003 

#5-70 

MfW 

000044 

#5-66 

♦21-817 

T$LU 

000013 

#5-66 

T$LIFL 

000013 

#5-66 

TSLIFO 

000013 

#5-66 

TSLIFS 

000013 

#5-66 

T$LIN 

000000 

#5-66 

T$LPS 

000006 

#5-66 

TSLLD 

000012 

#5-66 

TSLLDC 

000045 

#5-66 

TSLLDL 

000012 

#5-66 

TSLLDO 

000012 

#5-66 

TSLLDS 

000012 

#5-66 

T$LLEN 

0^0046 

#5-66 

21-812 

TSLOPR 

000002 

#5-66 

TSLTCL 

000024 

#5-66 

TSLTIM 

000026 

#5-66 

TSLTPR 

000014 

#j-66 

TSLTPS 

000020 

#5-66 

TSNAPL 

000004 

#5-66 

T$NFE 

000000 

#■^-66 

TSNLEN 

000010 

#5-66 

T$NNiJL 

000002 

#5-66 

TSNJOPL 

000006 

#5-66 

TSNRNI 

000042 

#5-66 

TINRPL 

000005 

#5-66 

T$NRUL 

000007 

#5-65 

nwR 

000001 

#5-66 

TSRPRI 

000040 

#5-66 

TSSVC 

000034 

#5-66 

♦21-816 

T$T5 

C00030 

#5-66 

♦21-818 

T$T6 

000032 

#5-66 

♦21-819 

XTSPV'C 

-  000001 

17-627 

XSABQ 

000076 

« 17-624 

17-625 

•17-625 

x$rriM 

000060 

•17-614 

XSDTE 

000024 

♦17-615 

X$LCN 

000026 

*17-6^7 

X$L£N 

0C0106 

14-451 

17-605 

XSMOWN 

000023 

♦  14-499 

8-164 


8-165 
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CFGS 
STASl 


A$$CHK= 

oonooo 

K$$TPS= 

000074 

L$$11R= 

000000 

R$$DER= 

000000 

T$$KMG= 

A$$CPS= 

000000 

LDSLP  = 

000000 

L.COST 

000015 

R$$i<:ii  = 

000001 

T$$MIN= 

A$$PRI= 

000000 

LF.ACT= 

100C00 

L.CTL 

000012 

R$$SND= 

000000 

UNT 

A$$TRP= 

000000 

LF.BRO= 

000400 

L.CVA 

177776 

R$$11M= 

000000 

V$$CTR= 

BITS 

0001 50R 

002 

LF.BWT= 

000007 

L.DDM 

000002 

SCHEL 

000112R 

002 

X$$DBT= 

BITS! 

0001 70R 

002 

LF.ENA= 

002000 

L.DDS 

000004 

SCHELO 

000102R 

002 

$ALPHA= 

BITS2 

00020AR 

002 

LF.LPB= 

001000 

L.DLC 

000003 

SCTIM 

000070R 

002 

$ANY  = 

3RADJ 

000122R 

002 

LF.MDC= 

000100 

L.DLM 

000006 

SF.ACT= 

000200 

$BLANK= 

BRADJi 

0001 54R 

002 

LF.MFL= 

004000 

L.DLS 

000010 

SF.ENA^ 

000100 

SCTIM  = 

CFGBF  = 

»**♦»*  GX 

LF.MTP= 

000020 

L.FLG 

000000 

SF.LPS= 

000004 

$DIGIT= 

CFGFLG= 

«««**♦  GX 

LF.PA':  = 

000200 

L.KRBA 

000016 

SF.MFL= 

000040 

$DNUMB= 

CFGSZ  = 

***»*♦  GX 

LF.Rr<'  = 

040000 

L.LEN  = 

000022 

SF.PAC= 

000020 

$EOS  = 

CTL 

»***♦+  GX 

l_F.REA  = 

010000 

L.MPF 

000022 

SF.REA= 

000010 

$ERRYR= 

CI$CKP= 

000000 

LF.SER= 

000040 

L.NMSr 

000020 

SF.SER= 

000001 

$ERRZP= 

CS$ORE= 

OOOAOO 

LF.TIM= 

000010 

L.NSTA 

000014 

SF.svr= 

000002 

$ERR1T= 

C$$RSH= 

17756A 

LF.UNL= 

020000 

L . OWNR 

000021 

SF.UNL= 

000040 

SEXIT  = 

D$$BUG= 

17751A 

LF.X2P= 

000000 

L.UNT 

000013 

SLIDE 

OOOOOOR 

002 

SFAIL  = 

D$$ISK= 

GOOOOO 

LN.CLO- 

000000 

M$$CRB= 

000124 

SLTKW 

OOOOOORG 

003 

$LAMDA= 

D$$Ln  = 

000001 

LN.DUM= 

000005 

M$$CRX= 

000000 

SLTST 

OOOOOORG 

002 

$NUMBR= 

DS$YNC= 

000000 

LN.LOA= 

000004 

M$$FCS= 

000000 

SYNERR=: 

»****»  GX 

SQSLT 

CtSYMM= 

000000 

LN.LOO= 

000003 

M$$MGE= 

000000 

S$$URG= 

000000 

$RAD50= 

END 

000220R 

002 

LN.OAU= 

000003 

M$$NET= 

000000 

s$$ysz= 

007600 

$STRNG= 

ES$XPR= 

000000 

LN.OFF= 

000001 

M$$0VR= 

000000 

S.8RAD 

000210R 

$SUBXP= 

FG.X2P= 

»**»»*  GX 

lN.ON  = 

000000 

N$$ACC^ 

000001 

S.COST 

000001 

$$HTIM= 

F$$LVL= 

000001 

LN.OOP= 

000004 

N$$BUF= 

000001 

S.CTIM 

0001 26R 

$$LTIM= 

GSSTPP= 

000000 

LN.OPE^ 

000001 

N$$LDV= 

000001 

S.CTL 

000062R 

$$$FLG= 

G$$1SS= 

000000 

LN.REF= 

000UO2 

NSS/'^CF^ 

000001 

S.FLG 

000000 

$$$KEY= 

G$STTK= 

000000 

L^.SER= 

000002 

N$$MLL= 

000001 

S.HTIM 

000152R 

S$$STA= 

GS$WRD= 

000000 

LN.STA= 

000017 

N$$M0V= 

000010 

S.LEN 

000004 

$$$TMP= 

I$$RAR= 

000000 

LN.SUB= 

000360 

N$$NCT= 

000001 

S.NAME= 

**»»**  GX 

.NBRA  = 

I$$RDN= 

000000 

LN.TRI= 

000006 

N$$PEM= 

000001 

S.NMST 

000002 

.PNUMB= 

K$SCNT= 

177546 

L$$ASG= 

000000 

P$$P45= 

000000 

S.OWNR 

000005 

.PNUMH= 

K$$CSR= 

177546 

L$$D  •:■!/= 

oooooc 

P$$';ilRD  = 

000000 

S.RPRI 

000220R 

.RPRI  = 

<$$rDC= 

000000 

L$$P11= 

000001 

Q$$0PT= 

000010 

S.UNT 

000104R 

.TPARS= 

.  ABS. 

177776 
000252 

000 
001 

(RW,I,GBL,ABS,OVR) 
(RU,I,LCL,REL,COM) 

SSTaTE 

000230 

002 

CRW.D.L 

CL.REL.CON) 

$<TAB 

000006 

003 

(RW,D  LCL.REl.CON) 

SKSTR 

000025 

004 

'RW,D  LCL.REL.CON) 

Errors 

detected: 

0 

•*•  Ass 

embler  sto 

t  i  5 1  i  c 

- 

Work   f 

lie  reads 

■  0 

Work   f 

I'le  writes 

:  0 

Size  of 

work  file 

:  13185  Words 

(  52  Pages) 

Size  ol 

core  poo! 

:  14440  Words 

(  55  Pages) 

One'-at- 

ng  syster 

:  RiX- 

11M/PLUS 

GX 


GX 


GX 
GX 
GX 


000000 
000000 
****** 
001000 
000000 
000022 
000020 
000006 

****** 

000024 
000014 
000012 

****** 

***** 

****** 

000000 

W7777 

000000 

000002 

OOOOOORG 

000016 

000004 

000010 

******   GX 

♦**»**   GX 

W7777 

000002 

000000 

00001 6R  004 

******   GX 

******   GX 

******   GX 

******   GX 

******   GX 


SY?CFGSLT!v2;E132,134]CFGSLT/CR/-SP--Sr:[1.1]RSXMCM.S-'IL/ML,['30,110]NETLIB/ML,[130.10]RSXMCM/PA:1,[132.10]CfGSLT 
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CFGS 
$QS\, 


175 

.SBTTL 

STA$DF    ACTION  ROU 

176 
177 
178 
179 
180  000270 

;    STATION  ADDRESS    (STASDF) 

005?67 

OOOOOOG 

ST.NUM: 

Tsr 

.PNUMH 

181   000274 

001022 

BNE 

101$ 

182  000276 

105'67 

000001 G 

TSTB 

.PNUMB+I 

183  000302 

001017 

BNE 

101$ 

184  000304 

016700 

OOOOOOG 

MOV 

SCNT.RO                     ; 

185  000310 

022700 

000060 

CMP 

#48., RO 

186  000314 

101415 

BLOS 

111$                          ; 
.PNUMB,$$SNUM(RO) 

187  000316 

1-6760 

OOOOOOG 

OOOOOOG 

MOVB 

188  000324 

0C1406 

BEQ 

101$ 

189  000326 

0U5267 

OOOOOOG 

INC 

SCNT 

190  000332 

016767 

OOOOOOG 

OOOOOOG 

MOV 

SCNT,$$MTP 

191    000340 

RETURN 

192  000342 

101$: 

EMSG$R 

1A 

193  000350 

111$: 

EMS6$R 

18 

194 

195 

196 

197 

198  000356 

;    STATION   COST 

(STA$DF) 

026727 

OOOOOOG 

000031 

ST.CST: 

CMP 

.PNUMB,*MAXCST      ; 

199  000364 

101025 

BHI 

101$ 

200  000366 

016700 

OOOOOOG 

MOV 

$SLTA,RO 

201   000372 

032760 

000020 

000000 

BIT 

#LF.MTP,L.FLG(RO) 

202  000400 

001416 

BEQ 

10$ 

203  000402 

105760 

000014 

TSTB 

l.nsta;ro) 

204  000406 

001413 

BEQ 

10$ 

205  000410 

016701 

OOOOOOG 

MOV 

SCNT.Rl 

206  000414 

005301 

DEC 

R1                           ; 

207  000416 

006301 

ASL 

R1 

208  000420 

006301 

ASL 

R1 

209  000422 

060001 

ADD 

R0,R1 

210  000424 

062701 

000022 

ADD 

*L.MPF,R1 

211   000430 

116761 

OOOOOOG 

000001 

MOVB 

.PNUMB,S.CCST(R1) 

212  000436 

213 

214   000440 

10$: 

RETURN 

iri$: 

EMSGSR 

YP 

215 
216 
217 

;    SfATION   ACTIVE    POLLING    RATIO 

218 

219  000446 

ST. APR 

220   900446 

105767 

OOOOOIG 

TSTB 

.PNUMB+1 

221   000452 

001007 

BNE 

101$ 

222  000454 

016700 

OOOOOOG 

MOV 

SCNT.RO 

223  000400 

005300 

DEC 

RO 

224  000462 

116760 

OOOOOOG 

OOOOOOG 

MOVB 

.PNUMB,$$APR(RO) 

225  000470 
226 

227  0004  72 

RETURN 

i  C 1  $ : 

EMSG$R 

YQ 

MAKE  SURE  STATION  ADDRESS 
IS  LESS  THAN  256. 


GET  CURRENT  STATION  COUNT 

HAVE  WE  ALREADY  SEEN  ALL  48.? 

IF  LOS,  YES 

;  STORE  STATION  ADDRESS  IN  TABLE 

IF  ZERO,  II  LEGAL  STATION  ADDRESS 

INCREMENT  STATION  COUNT 

SAVE  IT  FOR  TEMPLATE  ROUTINES 

ILLEGAL  STATION  ADDRESS 
MORE  THAN  48.  STA$DF'S 


IS  THE  COST  IN  RANGE  ? 

IF  HI,  NO  ..  ERROR 

GET  THE  SLT  ADDRESS 

;  IS  THIS  A  MULTIPOINT  LINE? 

BR  IF  NO 

IS  THIS  A  MASTER  LINE  ? 

IF  EQ,  NO  ..  TREAT  AS  PT-TO-PT  LINE 

GET  THE  STATION  COUNT 

REALLY  LAST  ONE 

CONVERT  LOGICAL  oTATION  NUMBER  TO  2  WORD  INDEX 

GET  START  OF  STATION  TABLE 

;  store' STATION  COST 


;  ILLEGAL  LINE  COST 


IS  IT  A  BYTE  VALUE  ? 
IF  NE,  NO  ..  ERROR 
GET  CURRENT  STATION  COUNT 
REALLY  LAST  ONE 
;  SAVE  ACTIVE  POLLING  RATIO 


ILLEGAL  ACTIVE  POLLING  RATIO 
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15? 

153 

.SBTTL 

$QSVC  -  LC 

OK  FOR 

SVC$DF  MACRO 

15A 
155 
156 

+ 

$QSVC 

-  LOOK 

FOR  SVCSDF 

MACRO 

157 

158 

INPUTS: 

159 

NONE 

160 

161 

OUTPUTS: 

162 

ALL  REGISTERS  DESTRO/ED 

163 

16A 

- 

165 

000000 

012705 

000000' 

;QSVC:: 

MOV 

#5VCDF,R5 

STATE  TABLE  ADDRESS 

166 

OOOOOi 

005001 

CLR 

R1 

FULL  KEYWORD  MATCH  LENGTH 

167 

000006 

012702 

OOOOOU' 

MOV 

#SVCKW,R2 

KEYWORD  TABLE  ADDRESS 

168 

000012 

016703 

OOOOOOG 

MOV 

CFGSZ,R3 

RECORD  LE*'GTH 

169 

000016 

01270A 

OOOOOOG 

MOV 

*CFGBF,R4 

RECORD  BUFFER  ADDRESS 

170 

000022 

005067 

OOOOOOG 

CLR 

SVNERR 

CLEAR  SYNTAX  ERROR  FLAG 

171 

000026 

CALL 

.TPARS 

GO  DO  THE  PARSE 

172 

000032 

103003 

BCC 

20$ 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

173 

00003A 

005367 

OOOOOOG 

DEC 

SrNERR 

DID  SYNTAX  ERROR  OCCUR? 

17A 

000040 

00K01 

BEQ 

101$ 

IF  EQ,  YES 

175 

000042 

20$: 

RETURN 

176 

177 
178 
179 

■  ERRORS 

0000A4 

101$: 

EMSGSR 

IT 

SYNTAX  ERROR 
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CFG 
ERR' 


At$ChK= 

000000 

HSCUG 

000010 

A$$CPS= 

000000 

HSDST 

000012 

A$$PRI= 

000000 

HtD29 

OOOOU 

A$tTRP= 

000000 

H$FLG 

000000 

CFERR  = 

•»»*»•  GX 

HSGLEN 

0001 OA 

CFGBF  = 

.,*««•  GX 

H$GLT 

OOOOAA 

CFGS2  = 

••***•  GX 

HSGNAM 

000050 

COUNT 

00002AR 

002  H$GNML= 

000020 

CTLSVC 

00002 1R 

002  H$GPT 

0000A6 

CVTBUF 

00005AR 

002  HSHITS 

00003A 

CSSCKPr 

000000 

H$HLEN 

OOOOAA 

C$$ORE= 

0004C0 

HSLBDA 

000070 

CS$RSH= 

17756A 

H$L8DN 

000072 

DTEEND= 

OOOOAAR 

002  HSLDTE 

000002 

DTtLEN= 

000017 

HSLEN 

0000A2 

DTEPC<. 

COOOAAR 

002  HSLOTS 

000032 

DTESVC 

000025R 

002  HSNETU 

00002A 

D$$BUG= 

1775U 

HSNML  = 

000006 

D$$ISK= 

000000 

H$NPT 

000022 

D$$L11= 

000001 

H$PTB 

000020 

DSSVNC:: 

000000 

HSPVC 

000006 

D$tYNM= 

000000 

HSRDTE 

OOOOOA 

ESNBR 

oooou 

H$RNU 

0000A2 

E$NBS 

000020 

H$SVC 

000036 

E$NCR 

000034 

HSTRB 

000016 

ESNCS 

000036 

HSXAVL 

000100 

ESNIC 

OOOOAA 

HSXBIA 

00007A 

ESNLEN 

000050 

H$X29C 

OOOOAO 

ESNLLA 

000012 

I$$RARr 

000000 

ESNLNK 

000000 

I$$RDN= 

000000 

E$NML 

OOOOAO 

KSAR5  = 

!»**  ♦** 

ESNMR 

00002A 

K$$CNT= 

1775A6 

ESNMS 

000030 

KS$CSR= 

1775A6 

ESNNQD 

000002 

KS$LDC= 

000000 

E$NRT 

000OA2 

KS$TPS= 

00007A 

ESNRTP 

000005 

LD$LP  = 

000000 

ESNSEG 

000010 

LF.ACT= 

100000 

ESNTIM 

00OOA6 

LF.BRO= 

OOOAOO 

ESNUSE 

OOOOOA 

LF.BWT= 

000007 

ESSTRT 

000006 

LF.ENA= 

002000 

E$$XPR= 

000000 

LF.LP8= 

001000 

FLGSVC 

00001  OR 

002  LF.MDC= 

000100 

FMT8  = 

*»».».  GX 

LF.MFL-- 

OOAOOO 

FMT8B  = 

«♦•♦«»  GX 

LF.MTP= 

000020 

FM.8  = 

000000 

lF.PAC= 

00020C 

FM.8B  = 

000000 

LF.RDy= 

OAOOOO 

FNOOWN 

0011A6R 

LF.REA= 

010000 

f^$$LVL  = 

000001 

LF.SER= 

OOOOAO 

G$STPP= 

000000 

LF.TIM= 

000010 

G$$^SS= 

000000 

LF.UNL= 

020000 

GS$TT<= 

000000 

LF.X2P= 

000000 

G$Si^RD  = 

000000 

LLCTA  = 

****** 

hf$dl:i= 

000002 

LN.CLO= 

000000 

HF$GWy= 

000010 

LN.DUM= 

000005 

HF$HOS= 

OOOOOA 

ln.^:a= 

OOOOOA 

mF$XDF= 

000020 

LN.L00= 

000003 

HTI»1(? 

000002 R 

002  LN.0AU= 

000005 

GX 


LN.0FF= 

LN.ON  = 

LN.00P= 

LN.0PE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

LTIMR 

L$$ASG= 

L$$ORV= 

L$$P11= 

L$$11R= 

L.CQST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN  = 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MAXUND= 

M$$CR6= 

M$$CRX= 

M$$FCS= 

|1$$MGE  = 

Mt$NET= 

M$$OVR= 

NEXT 

NODTE 

NSADJI 

N$ADJ2 

NSCACH 

NSCRC 

N$HC1 

N$HC2 

N$LV1 

N$LV2 

NSMHCI 

N$MHC2 

NSPLD 

NSPRI 

NSROAI 

N$R0A2 

N$RT1X 

N$RTM1 

N$RTM2 

N$RT1 


000001 

000000 

OOOOOA 

300001 

000002 

000002 

000017 

000360 

000006 

OOOOOAR 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

OOOOOA 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

00001A 

000021 

000013 

000007 

00012A 

000000 

000000 

000000 

000000 

000000 

OOOOOOR 

0O0A20R 

000072 

00007A 

000062 

000120 

000052 

000056 

000002 

000010 

000036 

OOOOAA 

000016 

000076 

000022 

000030 

OOOOIA 

Of^OOIA 

0OOC15 

OOOOOC 


N$RT2 

N$TCTL 

N$TLC 

N$TNC 

N$TRC 

NSTTCB 

NSVER 

NSXLEN 

N$$ACC= 

002  N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
OWNSVC 
PCKBCD 
PDVID  = 
PDVTA  = 
PF$BLK= 
PF$CLC= 
PF$DLM= 
PF$EIP= 
PF$ENB= 
PF$FAI= 
PF$FM1= 
PF$FM2= 
PF$0FF= 
PF$RM1= 
PF$RM2= 
PF$RVR= 
PF$STA= 
PF$SVC= 
PF$UP  = 
PKTSVC 
PR$BED= 

002  PR$BEU= 
PR$BRD= 
PR$BRU= 
PR$DWN= 
PR$LCC= 
PR$MOP= 
PR$UP  = 
PSIPT  = 
PS$CHR= 
PS$FAI= 
PS$NTI= 
PSS0FF= 
PS$STR= 
PS$UP  = 
PS$VER= 
PS$WT  = 
PT$BRO= 
PT$DRT= 
PT$END= 
PT$LV1^ 


000006 

000112 

000100 

00011A 

000106 

000110 

000066 

00012A 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000020R 

001AA0R 

***♦«*  GX 

******  GX 

020000 

010000 

100000 

000002 

000001 

OOAOOO 

000100 

000200 

000000 

000020 

OOOOAO 

000010 

OOOOOA 

OAOOOO 

OOOOOA 

000006R 

000200 

000100 

OOOOAO 

000020 

000002 

000010 

OOOOOA 

000001 

******  GX 

000016 

OOOOIA 

0000C6 

000000 

000002 

000012 

000010 

OOOOOA 

000200 

000100 

OOOOOA 

OC-'"^? 


PT$LV2= 

PT$PH3= 

PT$XAR= 

PX$BLK= 

PX$D1M= 

PX$SVC= 

P$CHN 

P$CNT 

P$CTR 

PSDRCT 

PSDRTR 

P$FLG 

P$FWD 

PSICCB 

P$IPL 

P$LCD 

002  P$LEN 
P$LST 
PSNRNI 
PSDCCB 
P$PFQ 
PSPKSZ 
PSRMXI 
P$RMX2 
PSRPRI 
PSRTIM 
PSSTAI 
P$STA2 
P$TIM 
PSTSCT 
PSTSIZ 
P$TYP 
P$$PA5= 
P$$WRD= 
Q$$OPT= 

002  RCLSVC 
RF.CTL= 
RF.LD1= 
RF.LD2= 
RF.T1M= 
RF.TM0= 
RF.WFC= 
RF.WTD= 
RF.WTM= 
RF.WTS= 
RTSPC  = 
RTYSVC 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SETTLC 
SF$BL<= 
SF$INC= 
SF.ACT= 
SF.ENA= 
SF.LPB= 


000001 

000010 

000020 

OOOOAO 

000200 

000100 

OOOOOA 

000005 

00003A 

000015 

000036 

000012 

000030 

0000A6 

OOOOIA 

000002 

000052 

000000 

OOOOAO 

000050 

000006 

OOOOAA 

000016 

000020 

0000A2 

000003 

000022 

000023 

000010 

000026 

00002A 

000001 

000000 

000000 

000010 

000023R 

000003 

OOOOAO 

000100 

177A00 

OOOAOO 

000200 

000020 

000030 

000010 

******  GX 

00001 2R 

000000 

000001 

000000 

000000 

001202R 

000001 

000002 

00C200 

000 : 00 

000'  0' 


002 


002 


0  U 


r 
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CFGJNT  -  CONFIG  ULE  SCAN  ACTIO  MACRO  vOS.05u  Monday  15-Jul-85  18:56  Page  7 
ERROR  MESSAGES 


101 

102 

103 

10A 

105 

106 

107  000000 

108 

109 

110  000000 

111  00002A 
r2  000060 
115  000116 
11A  00015A 

115  000216 

116  00025A 
117 

118 

119  000040 


.SBTTL   ERROR  MESSAGES 


ERROR  MESSAGES 


.PSECT  DATA.D 


.ENA8L 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
.DSASL 

.PSECT 


LC 

,1G,8e,CERR,RTSPC,CFLIN,<Umt  Number> 
,1H,8,CERR,RTSPC,CFLIN,<UNTSDF  Out  Of  Oroir> 
, 1K,8B,CERR,RTSPC,CFL I N,< Character! St  1 cs  Va I ut ' 
,lL,8B,CERR,RTSPC,CFLlN,<Secondary  CSR  Address^ 
,1M,8,CERR,RTSPC,CFLIN,<Secondary  CSR  Not  Allowed> 
, IN, 8, CERR.RTSPCCFLIN, ^Secondary  CSR  Missing> 
,Z0,8A,CERR,REP8A,CFLIN,<Secondary  CSR  OftlTne> 
Lf 


0  15 


C  16 
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SYMBOL   CROSS  REFERENCE  CREF       0^.00 

SYMBOL      VALUE  REFERENCES 

12-303 
12-303 

13-392 

13-394 


L.CVA 

177776 

#5-60 

L.DOM 

000002 

#5-60 

L.DDS 

00000^; 

#5-60 

L.DLC 

000003 

#5-60 

L.DLM 

000006 

#5-60 

L.DLS 

OiOOlO 

#5-60 

L.FLG 

0.0000 

#5-60 

L.KREA 

000016 

#5-60 

L.LEN 

=  000022 

#5-60 

L.MPF 

000022 

#5-60 

L.NMST 

000020 

#5-60 

L.NSTA 

OOOOU 

#5-6r 

L.OWNR 

000021 

#5-6' 

L.UNT 

000013 

#5-6i, 

MAXC5T 

=  000031 

#6-92 

MS. SEC 

r     »***♦* 

GX 

13-352 

RDBSZ 

r     ****** 

GX 

12-311 

REP8A 

-     ****** 

GX 

7-116 

RTSPC 

=     ****** 

GX 

7-110 

SETTMO 

OOOAOO 

R 

11-254 

SF.ACT 

=  000200 

#5-60 

SF.ENA 

=  000100 

#5-60 

SF.LPB 

=  000004 

#5-60 

SF.MFL 

=  000040 

#5-60 

SF.PAC 

=  000020 

#5-60 

SF.REA 

=  000010 

#5-60 

SF.SER 

=  000001 

#5-60 

SF.SVC 

=  000002 

#5-60 

SF.UNL 

=  000040 

#5-60 

SPEEDT 

000000 

R 

#6-73 

SYNERR 

-    ****** 

GX 

•8-140 

S$$BAS 

~    ****** 

7-110 
7-114 

S.COST 

000001 

#5-60 

S.FLG 

000000 

#5-60 

S.LEN 

000004 

#5-60 

S.NMST 

000002 

#5-60 

S.OuiNR 

000003 

#5-60 

UCNT 

—     ****** 

GX 

11-219 
13-386 

UNTDF 

000000 

R 

8-135 

UNTKW 

000000 

RG 

8-137 

UNT5T 

000000 

RG 

#9-153 

U.CHAO 

000156 

R 

#11-228 

U.CHAl 

000262 

fi 

#11-25' 

U.CST 

001022 

R 

#13-383 

U.DPR 

001114 

R 

#13-405 

U.PECH 

000334 

R 

#11-267 

U.SlSR 

000614 

R 

#13-339 

U.UNT 

00OM2 

R 

#11-215 

U.XCSR 

000756 

R 

#13-3''0 

SAlPMi 

=  000022 

#9-153 

11-233  11-256  11-271  12-289  13-356  13-388 

13-383 


7-111  7-112  7-113  7-114  7-115 

#12-284 


12-300 
♦8-143 

7-110  7-111  7-111  7-112  7-112  7-113  7-113  7-114 

7-115  7-115  7-116  .'-116 

«i:-395 


11-230  11-253  11-269  13-341  13-356         *13-361  13-374  *13-376 

#9-153 


D   16 


EVL       CREATED  BY  MACRO  ON  28-JUN-85  AT  22:58 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


NETIME 

NStVCT 

OPSINI 

OP$TER 

OSACHD 

PDVID 

PDVTA 

PHSHDE 

PH$LOC 

PHSMTS 

PHSUMP 

PH$WCS 

PR7 

PS 

PSIPT 

QUEUE 

QSPORT 

GISTN 

RESADC 

RESADF 

REtADR 

RESBLK 

RESCAF 

RESDAT 

RESDRP 

REtLDT 

RESLSN 

RESNML 

RESOPE 

RESOPR 

RE SRC V 

RESSED 

RESSKW 

RESSTA 

RESSUM 

RESSYN 

RESTME 

RE$TMO 

RESTMR 

RESUPT 

RESURE 

RESVER 

RESVRQ 

RT$INI 

RTSOFF 

RTSON 

R$$MPL 

RSSIID 

R$$11M 

R$$ns 

SCSQFF 
SCION 


000^26  R 

=   ****** 

=  000000 

=  000001 

000012 

000030  R 

000032  R 

=  000004 

=  000002 

=  000003 

=  000000 

=  000001 

~    ****** 
=  ****** 

000034 
001132 
000003 
000002 
=  000004 
=  000017 
=  000007 
=  000010 
=  000014 
=  000001 
=  000016 
=  000013 
=  000012 
=  000001 
=  000004 
=  000000 
=  000001 
=  000011 
=  000006 
=  000002 
=  000003 
=  000000 
=  000021 
=  000000 
=  000020 
=  000002 
=  000003 
=  000005 
=  000015 
=  000002 
=  000001 

=  ooooon 


000000 

****** 

000001 
000000 


GX 
GX 

R 

R 


REFERENCES 

7-81 

9-174 
#5-61 
#5-61 

13-464 
#8-108 
#8-109 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 

9-199 

9-199 
#8-110 

9-211 

13-468 

13-470 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 

8-86 
5-62 
5-62 
5-62 
#5-61 
#5-61 


#10-291 
13-421 


10-295 
10-299 


11-338 
•9-199 
13-424 
11-353 


13-462 


12-398 


*9-223 
13-443 
#14-491 
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CREF       04.00 


13-473 


ALCt 
SDME 


11-338 


•11-338 


•11-368 


-89 


8-102 


9-201 


9-215 


9-226 


11-540 


11-35 


EVL 


CREATED  BY     MACRO     ON  28-JUN-85  AT   22:58 
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E     1 


ALCI 


D  2 

ALCMEM  -  ALLOCATE  A  BLOCK  OF  ME  MACRO  V05.03b  Saturday  29-Jun-85  00:"1 
SDMEM   -  DEALLOCATE  MEMORY  FROM  PARTITION 


Page  7-1 


286  000264 

287  00026A 

288  000266 
289 

290 
291 
292 
293 
294 
295 

296  000270 

297  000272 
298 

299  000274 

300  000276 

301  000300 
302 

303 
304 
305 
306 
307 

308  000300 

309  000302 

310  000304 

311  000306 

312  000310 

313  000312 
314 

315 
316 
317 
318 

319  000314 

320  000316 
321 

322 

323 

324 

325 

326  000316 

327 

328  Q0032C 

329 

330  000322 

331  000324 
332 

333 

334 

335  000326 

336 

357 

338 

539 

340 

341 

342  000326 


011200 
001404 


020312 
103402 

010015 
000772 


005722 
011546 
061216 
022603 
001002 
061612 


000404 


005742 

010312 

011215 
010022 


40$: 


50$: 


MOV 
BEO 


CMP 
BLO 

MOV 
BR 


60$: 


BR 


TST 

MOV 

MOV 
MOV 


70$: 


01'546 


MOV 


(R2),R0 
50$ 


R3,CR2) 

R0,(R5) 
40i 


TST 

(R2)  + 

MOV 

(R5),-(SP) 

ADD 

(R2),(SP) 

CMP 

tSP)+,R3 

BNE 

60$ 

ADD 

(SP),(R2) 

70$ 


-(R2) 

R3,(R2) 

(R2),(R5) 
R0,(R2)+ 


{R5),-(SP) 


SAVE  NEXT  HOLE  POINTER. 

IS  THIS  THE  LAST  HOLE? 

THIS  BRANCH  IS  TAKEN  IF 

THE  PARTITION  WAS  FULL 

INITIALLY  LIN  WHICH  CASE 

(R5)=(KP.AR3)=R3=  1/64  TH  THE 

BASE  ADDRESS  OF  THE  TASK  SEGMENT; 

OR  IF  (R3)  IS  G.T.  THE 

LAST  HOLE. 

NO  —  IS  THE  NEXT  HOLE  G.T.  THE 

TASK  SEGMENT  HOLE--  I.E.  IS  IT  THE 

MINIMUM  UPPER  BOUND? 

NO  —  SET  ASR  TO  NEXT  HOLE 

AND  CONTINUE  SCAN. 

YES  —  CHECK  TO  SEE  IF  THE  LOWER 

BOUND  [THE  BASE  ADDRESS  OF  WHICH 

IS  (KP.AR3)]  IS  ADJACENT  TO 

TASK  SEGMENT  HOLE.   NOTE  THAT  IF  THERE 

IS  NO  LOWER  BOUND  THE  TASK  SEGMENT 

HOLE  WILL  BE  COMPARED  TO  ITSELF 

AND  THE  CHECK  WILL  FAIL. 

SET  PTR  TO  LOWER  HOLE  SIZE. 

=BASE  ADDRESS  TO  STACK 

=  BASE  +  SIZE. 

ADJANCY? 

YES  —  SET  LOW  HOLE  SIZE  =  OLD 

SIZE  +  MAX  TASK  SEGMENT  SIZE.  THE 

TASK  SEGMENT  HOLE  IS  NOW  GONE,  HAVING 

BEEN  ADJOINED  TO  ITS  LOWER 

BOUND. 

GO  TEST  FOR  HIGH  ADJANCY 

NO  —  LINK  LOWER  BOUND  TO 

TASK  HOLE.  IF  THE  LOW  BOUND 

IS  TASK  HOLE  THIS  CODE  IS 

AN  EFFECTIVE  NOP  AND  THE  1ST 

GUESS  CONDITIONS  ABOVE  REMAIN 

(AND  OF  COURSE  ARE  VALID). 

BACK  UP  TO  NEXT  HOLE  POINTER. 

NOTE  ALSO  THAT  (R2)  =  R5. 

THIS  SETS  LOW  BOUND  HOLE  TO 

POI,  T  TO  TASK  SEGEMTN  HOLE. 

SET  ASR  TO  ACCESS  TASK  SEGMENT  HOLE. 

THIS  LINKS  THE  TASK  SEGMENT  HOLE  TU 

THE  HOLE  THAT  THE  LOW  BOUND 

USED  TO  POINT  TO.  NOTE  THAT 

R2  POINTS  TO  SIZE  I.E.  =  60002. 

CHECK  TO  SEE  IF  LOWER  BOUND 

CPASE  ADDRESS  IN  KP.AR3)  IS  ADJACENT 

TO  UPPER  BOUND.   IT  SHOULD  BE 

CLEAR  THAT  THE  NGN  EXISTENT 

UPPER  BOUND  CASE  (I.E.,  THE 

LOWER  BOUND  HOLE  POINTER  =  0) 

WILL  FAIL  THE  ADJANCY  TEST. 

=(KP.AR3)=L0W  BASE  ADDR  TO  STK 


CEAL 

MACfi 

MACR 

CALL 

RETU 
SWST 


ALCMEM  -  ALLOCATE   A  BLOCK  OF   ME  MACRO  V05.03b  Saturday  29-Jun-85 
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»»F1 


CEALL  CREATED  B*     MACRO     ON  29-JUN-85  AT  00:01 

MACRO   CROSS  REFERENCE 

MACRO  r^AME  REFERENCES 

CALL  5-6?  5-77  5-82  6-107 


RETURN 
SWSTKS 


5-69 
8-2U 
5-89 
5-69 


6- '22 

6-107 


7-181 
7-158 


8-220 
7-169 


D     3 

PAGE   2 

CREF       OA.OO 

6-121 
8-206 


7-158 


7-162 


7-169 


7-173 


8-206 


CFGC 

MACR 

MACR 

ASLt 
CALL 
DBGT 
EHSC 
IST/! 
MTR/i 
NTLE 
REJI 
RETL 
STAl 
TRAf 


E    3 


'•f  UE"ID««CFr,CNT 


**F 


CFGCNT     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:01 
MACRO  CROS^  REFERENCE 


D  4 

PAGE  3 

CREf   0^.00 


CFGD 
TabL 


MACRO  NAME 

REFERE.NCES 

ASLS 

#5-57 

9-22A 

CALL 

7-110 

9-196 

9-206 

)BGTP$ 

#8-125 

EMSG$B 

#5-57 

7-119 

9-188 

9-189 

9-211 

9-212 

9-228 

ista:^ 

#5-57 

8-123 

"ITRANS 

#8-123 

NTLERS 

#5-57 

6-77 

6-78 

6-79 

6-80 

6-81 

REJ$ 

#5-65 

9-172 

RETURN 

7-114 

9-173 

9-187 

9-210 

9-227 

STATES 

#5-57 

8-127 

#8-129 

#8-131 

#8-133 

#8-135 

#8-137 

#8-139 

8-U4 

TRANS 

#5-57 

#8-128 

#8-130 

#8-132 

#8-134 

#8-136 

#8-138 

#8-K0 

#8-K5 

8-164 


**FII  F««ID««CFGDDM 


E  4 


CFGDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:02 
Table  of  contents 

MACRO  DEFINITIONS 

LOCAL  SYMBOL  DEFINIMONS 

LOCAL  DATA 

ERROR  MESSAGES 

LOOK  FOR  DTESDF  MACRO 

TPARS  STATE  TABLES 

LINE- ID  SUBEXPRESSION 

DTESDF  ACTION  ROUTINES 

CHKDTE  -  CHECK  FOR  VALID  DTE  ADDRESS 

BIASX  -  SET  APR6  BIAS  CORRECTLY 

LINE-ID  ACTION  ROUTINES 

STRNXT  -  STORE  NEXT  DIGIT 

PCKBCO  -  PACK  STRING  OF  DIGITS  IN  BCD  FORMAT 


CFG 
CHK 


s- 

SA 

h- 

/K 

f- 

9H 

K- 

12S 

4- 

UO 

10- 

164 

n- 

221 

12- 

2A^ 

16- 

■;s2 

u- 

<9S 

1H- 

^16 

19- 

1,1,/ 

20- 

l.l'i 

■FnnTF  -  iNiriAi    roMFir,  F'iF   sr  macro  vns.O'Sb  Saturday  29-Jun-85  00:02     Paae  4 
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CH<DTE  -  CHECK  FOR  VALID  DTE  ADDRESS 


Page  16 


CFG 


352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 

368  000360 

369  000364 
370 

371  000370 

372  00037A 

373  000400 

374  000402 

375  000404 

376  000406 

377  000412 

378  000414 

379  000416 

380  000422 

381  000424 

382  000430 

383  000432 

384  000436 

385  000442 

386  000444 

387  000446 

388  00045C 

389  000452 

390  000454 

391  000466 

392  000472 
395  C00476 


017700  OOOOOOG 
062700  000002 


005004 

011000 

001423 

010067  OOOOOOG 

005204 

010046 

012600 

012701  000010 

010002 

06270^  000020 

012703  000017' 

122223 

001356 

005301 

003374 

000405 


C!0466  OOOOi: 


.SBTTL  CHKPTE  -  CHECK  FOR  VALID  DTE  ADDRESS 


CHKDTE  -  CHECK  FOR  VALID  DTE  ADDRESS 

INPUTS: 

NONE 

OUTPUTS: 

CARRY  CLEAR  -  DTE  ADDRESS  IS  UNIQUE 

R4  =  COUNT  OF  DTES  DEFINED  ALREADY 
CARRY  SET  -  DTE  ADDRESS  IS  NOT  UNIQUE 
R0,R1,R2  DESTROYED 


CHKDTE:  MOV 
ADD 


10$: 


20$: 


25$: 
30$: 

40$: 


SUSTK$ 

SAVMAP 

CLR 

MOV 

BED 

MOV 

INC 

MOV 

CALL 

MCV 

MOV 

MOV 

ADD 

MOV 

CMPB 

BNE 

DEC 

BGT 

BR 

RETC 

RESMAP 

MOV 

RETURN 


aPSIPT.RO 
#H$LDTE,RO 

40$ 

R4 

(ROJ.RO 

25$ 

RO.DTEDES 

R4 

RO,-(SP) 

$CEACX 

(SPH.RO 

#<DTEALN'1>/2,R1 

R0,R2 

#L$DTEA,R2 

#DTEPCK,R3 

(R2)t,(R3)* 

10$ 

R1 

20$ 

30$ 

RO 

R4,R$R4(SP) 


POINT  TO  PSI  HOME  BLOCK 
POINT  TO  LOCAL  DTE  LISTHEAD 

ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

INITIALISE  DTE  COUNT 

POINT  TO  NEXT  BLOCK  IN  LIST 

BR  IF  END  OF  LIST 

SAVE  UNMAPPED  ADDf^ESS  OF  DTE 

ONE  MORE  BLOCK  SEEN 

SET  UP  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

GET  DTE  ADDRESS  LENGTH 

GET  ADDRESS  OF  LOCAL  DTE  DESCRIPTOR 

POINT  TO  DTE  ADDRESS 

POINT  TO  SPECIFIED  DTE  ADDRESS 

DO  THE  ADDRESSES  MATCH? 

BR  IF  NO 

MORE  OF  ADDRESS  TO  CHECK? 

BR  IF  YES 

BR  IF  FOUND  IT 

INDICATE  NOT  FOUND 

RESTORE  PREVIOUS  MAPPING 

RETURN  COUNT  IN  TASK  R4 


MAT  Dn 


nn.Ap 


.-J 


L_ 
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CFG 
LOC 


2 
5 

5 
6 
7 
b 
9 
10 
11 
12 
15 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE   CFGFEA  -  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOftUARf.  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INTORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.C0     04-JUN-81 

DECNET-HM/S   V3.1 
DECNET-11M-PLUS   VI. 1 

3.00  16-APR-82 

DECNET-IIM  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-IIM  V4.0 
DECNET-IIH-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-11M/5   V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Micro/RSX   VI. 0 


ITS 


E     7 

DC     7\r\  .  m 


r 
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LOCAL  DATA 


Page  7 


CFGP' 
FNDH' 


116 

117 

118 

119 

120 

121  000000 

122 

123 

124 

125 

126 

127 

128  000000 

129  000002 

130  000004 

131  000006 

132  000010 

133  000012 

134  000014 

135  000C16 

136  000020 

137  000022 

138  000024 

139  000026 

140  00C030 

141  000032 
142 

143  000034 

144  000035 

145  000036 

146  00^044 

147  00:^045 

148  000046 
149 

150 

151 

152 

153 

154  000050 

155 


000001 


000 


000003 


.SBTTL  LOCAL  DATA 


;  LOCAL 

DATA 

.PSECT 
.NLJST 

DATA.D 
BEX 

;•  LOCAL 

DATA  FOR  PVCIDF 

MACRO 

HTIHR: 

.BLKW 

LOCAL  COPY  OF  HELLO  TIMER 

LTIMR: 

.8LKU 

LOCAL  COPY  OF  LISTEN  TIMER 

PORTNO 

.8LKW 

NUMBER  OF  PORTS 

PRTADD 

.8LKU 

ADDRESS  OF  ENTRY  IN  PORT  TABLE 

PVCLCN 

.BLKW 

LOGICAL  CHANNEL  NUMBER 

PVCCTM 

.BLKW 

COUNTER  TIMER 

PVCPSZ 

.BLKW 

MAXIMUM  BLOCK  SIZE 

PVCWSZ 

.BLKW 

WINDOW  SIZE 

PVCOWN 

.BLKW 

OWNER  PROCESS 

DLMPDV 

.BLKW 

ADDRESS  OF  DLM  PDV 

OLMSLT 

.BLKW 

ADDRESS  OF  DLM  SLT 

DLMSTA 

.BLKW 

DLM'S  STATION  NUMBER 

DLMSLN 

.BLKW 

DLM'S  SYSTEM  LINE  NUMBER 

FLAG: 

.BLKW 
PF.DLM 

=  1 

LOCAL  FLAGS  WORD 
PVC  IS  A  DLM  CIRCUIT 

PVCPRT 

.BLKB 

PORT  NUMBER  OF  FREE  ENTRY 

PVCFLG 

.BLKB 

PVC  FLAGS  BYTE 

PVCNAM 

.BLKB 

6 

CIRCUIT  IDENTIFICATION 

DLMCTL 

.BLKB 

DLM'S  CONTROLLER  NUMBER 

OLMUNT 

.SrTE 

0 

DLM'S  UNIT  NUMBER  (ALWAYS  0,  MUST  BE  MTP) 

DLMIND 

.BLKB 
.EVEN 

DLM'S  PDV  INDEX 

;  STAT 

:  VALUE 

■OR  "DATA 

TRANSFER 

STATE"  ,-OR  XCB 

;  GLOB 

^L  PATCHA6LE  JUST 

IN 

CASE 

... 

SP$P4::  .WORD 


VALUE  FOR  DATA  TRANSFER  STATE 


L9, 
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FNDHSH  -  MND  HASH  lASLE  ENTRY 
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630 
631 
632 
633 
654 
635 
636 
637 
638 
639 
6A0 
641 
642 
643 
644 
645 

646  001452 

647  001456 

648  0C1-;:2 

649  001466 

650  001470 

651  001474 

652  001500 

653  001502 

654  001506 

655  001512 

656  001516 

657  001520 

658  001524 

659  001530 

660  001532 

661  001534 

662  001536 

663  001540 

664  001542 

665  001546 

666  001552 

667  001554 

668  001556 

669  001562 
67'  001564 

671  001566 

672  001570 

673  001572 

674  001576 

675  001602 

676  0C1606 


.SBTTL  FNDHSH  -  FIND  HASH  TABLE  ENTRY 


FNDHSH  -  FIND  HASH  TABLE  ENTRY 


LOGICAL  CHANNEL  NUMBER 
PORT  NUMBER 


016746  OOOOOOG 


012602 
016202 
022702 
101004 
042702 
052702 
010267 
005002 
016700 
016701 
005401 
040100 
010001 
006300 
006300 
066^00 
005760 
001407 
005202 
026702 
103407 
060201 
010100 
000755 
016720 
116710 


000030 
120000 

160000 
120000 
OOOOOOG 

000010' 
OOOOOOG 


OOOOOOG 
000002 


OOOOOOG 


000010' 
000034' 


INPUTS: 

PVCLCN 

PVCPRT 
OUTPUTS: 

CARRY  CLEAR  -  TABLE  ENTRY  AVAILABLE  AND  SET  UP  WITH  LCN/PORT 

CARRY  SET  -  NO  ENTRIES  AVAILABLE 

R0,R1,R2  DESTROYED 

MAPHlNG  PRESERVED 


SAVE  MAPPING 

GET  UNMAPPED  DTE  DESCRIPTOR 

MAP  TO  LOCAL  DTE  (AND  ALSO  HASH  TABLE) 

GET  MAPPED  ADDRESS  OF  DTE  DESCRIPTOR 

GET  HASH  TABLE  ADDRESS 

IS  ADDRESS  IN  DSR? 

BR  IF  YES 

SET  APR  5  BIAS 

SAVE  HASH  TABLE  ADDRESS 

INITIAL  OFFSET  FOR  HASH  TABLE  INSERTION 

GET  LOGICAL  CHANNEL  NUMBER 

GET  NUMBER  OF  ENTRIES  IN  HASH  TABLE 

GET  MASK  FOR  HIGH  BITS 

COMPUTE  ENTRY  NUMBER  (MODULO  TABLE  SIZE) 

SAVE  ENTRY  NUMBER 

MULTIPLY  BY  4  TO  DETERMINE  OFFSET 

...  INTO  HASH  TABLE 

DETERMINE  ENTRY  ADDRESS  IN  HASH  TABLE 

IS  THIS  ENTRY  AVAILABLE? 

BR  IF  YES  (CLEARS  CARRY) 

ELSE,  COLLISION  -  UPDATE  OFFSET 

ANY  ENTRIES  AVAILABLE? 

BR  IF  NO  (SETS  CARRY) 

CALCULATE  ENTRY  NUMBER  +  OFFSET 

SAVE  ENTRY  NUMBER  +  OFFSET 

FIND  NEXT  AVAILABLE  ENTRY 

STORE  LOGICAL  CHANNEL  NUMBER  IN  HASH  TABLE 

STORE  PORT  NUMBER  IN  LOW  BYTE  OF  HASH  TABLE 

RESTORE  MAPPING 


FNDHSH: 

SAVMAP 

MOV 

DTEDES,-(SP) 

CALL 

$CEACX 

MOV 

(SP)+,R2 

MOV 

L$CHTB(R2),R2 

CMP 

#120000, R2 

8HI 

5$ 

BIC 

#160000, R2 

BIS 

#120000, R2 

5$: 

MOV 

R2,HSHADD 

CLR 

R2 

MOV 

PVCLCN, RO 

10$: 

MOV 

HSHSZ.Rl 

NEG 

R1 

BIC 

RI.RO 

MOV 

R0,R1 

ASL 

RO 

ASL 

RO 

ADD 

HSHADD.RO 

TST 

2(R0) 

BED 

20$ 

INC 

R2 

CMP 

HSHSZ,R2 

BLO 

30$ 

ADD 

R2,R1 

MOV 

R1,R0 

BR 

10$ 

20$: 

MOV 

PVCLCN, (RO)*- 

MOVB 

PVCPRT, (RO) 

30$: 

RESMAP 
RE'URN 

E  9 
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CFGPVC     CREATED  BY  MACRO  ON  29-JUN-85  AT  OO-QA 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


X$PKSZ 

XtPRT 

X$RXQ 

X$ST 

XST^LZ 

XSTXQ 

XtTYP 

XIWAQ 

XSWSZ 

ZTIME 

Z.DAT 

Z.MAP 

Z.NAM 

SALPHA 

tANY 

SBlANK 

tCA^S 

SCEACX 

tDIGIT 

SDNUMB 

$EOS 

SERRNO 

SERRNI 

$ERRN2 

$ERRN3 

SERRDO 

$ERR05 

$ERR09 

$ERRP8 

SERRIT 

$EXIT 

SFAIL 

SGPRM 

SHEADR 

SLAMDA 

SNUMBR 

SQPVC 

$RAD50 

SRONLY 

SSLTA 

SSTRNG 

SSUBXP 

STRIB 

SXALDC 

IX3DB5 

$X3DWS 

$$HTiM 

$$LT.M 

$$$FLG 

$$$<EY 

.PNUMB 


000016 

000021 

000072 

000005 

000030 

000066 

000015 

000062 

000020 

=  ****** 

=  ****** 

-  ****** 

=  ****** 

=  000022 

=  000020 

=  000006 

=   ****** 

r  ****** 

=  000024 
=  00001A 
=  000012 
000052  R 
000112  R 
C00U6  R 
000200  R 
000300  R 
000334  R 
000370  R 
0002A4  R 

r  ****** 

=  000000 
=  177777 


GX 
GX 
GX 
GX 


GX 
GX 


GX 


•-**  r** 
******   GX 

COOOOO 

000002 

000000  RG 

000016 

****** 

****** 

OOOCOA 

000010 

***■*  »* 
*»»* t * 
**♦♦♦*■ 
♦****♦ 


GX 


****** 
177777 
177777 

**♦♦♦*■ 


GX 
GX 
GX 
GX 
GX 
GX 


GX 


REFERENCES 

*17-613 
»17-616 
»1 7-620 
*1 7-626 
»U-502 
*17-618 
•17-627 
•17-622 
•17-612 

U-500 

21-803 

21-800 

21-795 
#10-208 
#10-208 
#10-208 

12-381 

13-A27 
#10-208 
#10-208 
#10-208 
#8-161 
#8-162 
#8-163 
#8-164 
#8-166 
#8- 1 67 
#8-168 
#8-165 

9-202 
#10-208 
#10-208 

10-208 

13-423 
#10-208 
#10-208 
#9-186 
#10-208 

10-208 

20-742 

#10-208 

#10-208 

-750 

j-421 

,1-311 

11-312 

13-409 

13-410 
#10-208 
#10-208 

11-326 

20-754 


17-621 

17-619 
17-623 


20-712 
14-486 


11-319 
12-387 
12-401 
13-465 
12-372 
11-347 
11-335 
12-360 


13-441 


10-208 
21-776 


14-482 


11-342 
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CREF       04.00 


•17-621 

•17-619 
•17-623 


15-530 


13-464 


16-569  17-603 

20-732 


18-648 


13-450 


10-208 


15-544  20-720 


■2-394 


12-396  20-737 


20-740 


20-743 


20-749 


20-750 


L.CO 
1  .CT 

L.rv 

1  .DD 

1  .1)1) 

L.DL 

1  .Dl 

1  .Dl 

1  .Fl 

L  .M 

1  .1  i 

1  .MP 

1     NM 

1  .NS 

L.OW 

1  .UN 

SF.A 

SF.E 

SF.I 

SF.M 

E  10 


CFGSLT 


CREATED  B^  MACRO  ON  29-JUN-85  AT  00.05 


SYMBOL  CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

CFGBF 

=  »••♦•«  GX 

6-88 

CFGSZ 

r  «*»«♦*   GX 

6-87 

CTL 

=  ,»«»*»  GX 

9-192 

LF.ACT 

=  100000 

#5-58 

.F.BRO 

=  000400 

#5-58 

-F.BWT 

=  ooooo:' 

#5-58 

^F.ENA 

=  002000 

#5-58 

LF.LPB 

=  001000 

#5-58 

.F.HDC 

=  000100 

#5-58 

LF.MFL 

=  004000 

#5-58 

LF.MTP 

=  000020 

#5-58 

.F.FAC 

=  000200 

#5-58 

.F.RDY 

=  040000 

#5-58 

.F.REA 

=  010000 

#5-58 

LF.SER 

=  00004C 

#5-58 

_F.TIM 

=  000010 

#5-58 

_F.UNL 

=  020000 

#5-58 

.F.X2P 

=  000000 

#5-58 

LN.CLO 

=  000000 

#5-58 

LN.DUM 

=  000005 

#5-58 

LN.LOA 

=  OOOOOA 

#5-58 

IN. LOO 

=  000003 

#5-58 

LN.OAU 

=  000005 

#5-58 

LN.OFF 

-  000001 

#5-58 

LN.ON 

=  000000 

#5-58 

LN.OGP 

=  000004 

#5-58 

LN.OPE 

=  000001 

#5-58 

LN.REF 

=  0000^2 

#5-58 

LN.5ER 

=  0OOGO2 

#5-58 

LN.STA 

=  000017 

#5-58 

LN.SUB 

=  00036. 

#5-58 

LN.TRI 

=  000006 

#:-58 

L.COST 

000015 

#5-58 

L.CTL 

000012 

#5-58 

L.CVA 

177776 

#5-58 

L.DDM 

000002 

#5-58 

L.DDS 

000004 

#5-58 

L.DLC 

000003 

#5-58 

L.DLM 

OOOOC  6 

#5-58 

L.DLS 

000010 

#5-58 

L.FLG 

000000 

#5-58 

L.KRBA 

000016 

#5-58 

1  .LCN 

=  000022 

#5-58 

L.MPF 

000022 

#5-58 

L.NMST 

000020 

#5-58 

L.N5TA 

000014 

#5-58 

L.OWNR 

000021 

#5-58 

L.UNT 

000013 

#5-58 

SF.ACT 

=  000200 

#5-58 

SF.ENA 

i  OOUIOO 

#5-58 

SF.LPB 

=  000004 

#5-58 

SF.MFL 

=  OOC040 

#5-58 

0  11 
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CREF   04.00 


CFGS 
STA$ 


E  11 


1 


L_ 
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CFGSTA  -  CONFIG  FILE   SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85   00:06 
STASDF    ACTION   ROUTINES 


229 
250 
231 
252 
255  000500 

;  HELLO 

TIMER 

005767 

OOOOOOG 

ST. HTM: 

TST 

.PNUMH 

254  000504 

001015 

BNE 

101$          ; 

255  000506 

016700 

OOOOOOG 

MOV 

SCNT.RO 

256  000512 

005500 

DEC 

RO 

257  000514 

006500 

ASL 

RO  ; 
.PNUMB,$$HTIM(RO) 

258  000516 

016760 

OOOOOOG  OOOOOOG 

MOV 

259  000524 

006367 

OOOOOOG 

ASL 

.PNUMB  ; 
.PNUMB,$$LTIM(RO! 

240  000550 

016760 

OOOOOOG  OOOOOOG 

MOV 

241  000536 

242 

243  000540 

RETURN 

101$: 

EMSGSR 

YA 

244 

245 

000001 

.END 

Page  11 


DOUBLE  WORD  VALUE? 

BR  IF  YES  -  ERROR 

GET  CURRENT  STATION  COUNT 

REALLY  LAST  ONE 

MAKE  IT  A  WORD  OFFSET 

;  SAVE  HELLO  TIMER 

MULTIPLY  BY  2 

;  STORE  LISTEN  TIMER 


ILLEGAL  HELLO  TIMER 


CFG5 
SVC1 


I  12 


1 


CFGSVC  - 

CONFIG  FILE 

SVCSDF  STATE  TABLE 

181 

182 

183 

184 

185 

000052 

186 

187 

188 

169 

000052 

190 

000052 

191 

192 

000052 

193 

000052 

19A 

195 

000052 

196 

000052 

197 

198 

000052 

199 

000052 

200 

201 

000052 

202 

000052 

203 

204 

000032 

205 

000052 

:j6 

207 

000052 

208 

000052 

209 

2i0 

000052 

211 

000052 

212 

000052 

213 

2U 

000052 

215 

000052 

216 

217 

000052 

218 

000052 

219 

000052 

220 

221 

000052 

222 

000052 

223 

224 

000052 

225 

000052 

226 

227 

000052 

228 

000052 

229 

230 

000052 

231 

000052 

232 

233 

000052 

234 

000052 

235 

236 

000052 

237 

000052 
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.SBTTL 

SVCSDF  STATE  TABLE 

;■  TPAfiS  STATE  TABLES 

ISTATS 

SVCST.SVCKW 

•  SVCSDF 

STATES 
TRANS 

SVCDF 
!iSVCSDF%,,,l,SYNERR 

STATES 
TRANS 

$RAD50,,SVNAM  ;  PROCESS  NAME 

STATES 
TRANS 

■- 

STATES 
TRANS 

SDNUMB,,SVCTL   ;  CONTROLLEf^  NUM 

STATES 
TRANS 

<'  .> 

STATES 
TRANS 

SDNUMB,,SVSTA  ;  STATION  NUMBER 

STATES 
TRANS 

<',> 

STATES 
TRANS 
TRANS 

;  PACKET  SIZE 
<',>,SVCWND 

$nui';br,,svpkt 

STATES 
TRANS 

<',> 

STATES 

SVCWND         ;  WINDOW  SIZE 

TRANS   <",>,S\/CFLG 
TRANS   SNUMBR,,SVUND 


STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SVCFLG 
SNUMBR , 

.SVFLAG 

FLAGS 

STATES 
TRANS 

<'  -> 

STATES 
TRANS 

SNDMBR, 

.SVRCLL 

RECALL  TIMER 

STATES 
TRANS 

<'  .> 

STATES 
TRANS 

SNUMBR, 

.SVRTRY 

RETRY  TIMER 

E  13 
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CFGSVC  -  CONf I- 
SymboL  table 


FILE  SCAN  ACTIO  MACRO  V05.03b 


D  U 

Saturaay  29-Jun-85  00:06 


Page  V-2 


CFG 
$QU 


SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SLTA 

SLTMA  = 

STASVC 

STRNXT 

SVCDF 

SVCDTE 

SVCFLG 

SVCKU 

bVCST 

SVCTL 

SVCWND 

SVDTED 

SVDTEE 

SVDTES 

?VFIAG 

bVr.AM 

SVOwN 

SVOWNR 

SVPKT 

SVRCLL 

SVRTRV 

SVSTA 

SVUND 

.  ABS. 

DATA 
SSTATE 
$KTAB 
$KSTR 


000040 

000020 

000010 

000001 

000002 

000040 

00001 6R 

♦••»•*  GX 

OOOOUR 

00152OR 

OOOOOOR 

00011  OR 

00005AR 

OOOOOORG 

OOOOOORG 

0001 14R 

0000A2R 

000476R 

000522R 

000440RG 

00031 6R 

000052R 

000122R 

000550R 

000236R 

000342R 

000374R 

0001 6AR 

000262R 

177776 
001554 
1^00424 
000130 
000002 
000007 


SYNERR: 
S$ADS2 
StCTL 
StDTE 
S$FLG 
SSLEN 
SSLFT 
SSLNK 
SSOWNR 
SSPKSZ 
003  S$RCL 
003  S$STA 

003  SSTIM 

004  SSTMR 
003  SSUND 

S$SWRG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

TSFLAG 

T$LIF 

TSLIFL 

TSLIFO 

TSLIFS 

T$LIN 

TSLIPS 


002 
002 


003 


003 


•.♦*•»  GX 

000007 

000002 

000020 

000010 

000032 

000012 

000000 

000030 

000004 

000013 

000003 

000014 

000016 

000006 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000044 

000013 

000013 

000013 

000013 

000000 

000006 


Errors  detected: 


000 
001 
002 
003 
004 
005 
0 


(rw,!,gbl,a8s,0vr) 
(rw,i,lcl,rel,c0n) 
(rw,d,lcl,rel,con) 
(rw,d,lcl,rel,con) 
(rw,d,lci,rel,con; 
(rw,d,lcl,rel,c0n) 


'♦♦  Assembler  statistics 


Work  file  reads: 
Work  tile  writes: 
Size  of  work  file: 
Size  of  core  pool: 
Operating  system: 


55 

61 

2000-  Words 

17608  Words 

RSX-11M/PLUS 


{  79  Pages) 
(  67  Pages) 


TSLLD 

TSLLDC 

TSLLDL 

TSLIDO 

T$LLi)S 

IJLLEN 

TSLOPR 

TtLTCL 

TSLTIM 

TSLTPR 

TSLTPS 

TSNAPL 

T$NFE 

TSNLEN 

TSNNUL 

TSNOPL 

TSNRNI 

TSNRPL 

TSNRUL 

T$NVR 

TSRPRI 

TSSVC 

T$T5 

T$T6 

T$$KHG= 

T$$MIN= 

VF$RCV= 

VF$XMT= 

V$FLG 


000012 
000045 
000012 
000012 
000012 
00"046 
000002 
000024 
000026 
000014 
000020 
000004 
000000 
000010 
000002 
000006 
000042 
000005 
000007 
000001 
000040 
000034 
000030 
000032 
000000 
000000 
100000 
040000 
000000 


V$LEN 

V$RCV 

V$XMT 

V$$CTR= 

WNDSVC 

X$$DBT= 

Z.DAT  = 

Z.MAP  = 

$ALPHA= 

$ANV  = 

$BLAN<= 

$CAT5  = 

SCDTB  = 

$CEACX= 

$DJGIT= 

$DNUMB= 

$E0S  = 

$ERR1T= 

$ERR21= 

$ERR3D 

$ESR3E 

$ERR3F 

$ERR3G 

$ERR3H 

$ERR3I 

$ERR3J 

$ERR3K 

$ERR3M 


000022 

000002 

000012 

1/01000 

000022R 

000000 

**^*** 

****** 

000022 

000020 

000006 

****** 
****** 
****** 

000024 

000014 

000012 

******  I 

******  I 

000056R 

000102R 

000126R 

000152R 

000200R 

000224R 

000250R 

000266R 

000340R 


GX 
GX 
GX 


$ERR3Z 

$EXIT  r 

$FAIL  = 

$HEADR= 

002  $LAMDA= 

$LINKX= 

$NUM8R= 

$QSVC 

$RAD50= 

$SAVRG= 

SSLTA  = 

$STRNG= 

$SUBXP= 

STRIB  = 

$XALOC= 

$$HTIM= 

$$LTIM= 

$$$FLG= 

$$$KEY= 

002  $$$R  - 

002  $$$STA= 

002  $$$TMP= 

002  .PCHAR= 

002  .PNUMB= 

002  .PNUMH= 

002  .PSTCN= 

002  .PSTPT= 

002  .TPARS= 


000374R 

000000 

M7777 

******  GX 

000000 

******  GX 

000002 

OOOOOORG 

000016 

****** 
****v* 

00000'. 
00001  v) 

****** 
****** 
****** 
****** 


GX 
GX 


GX 
GX 
3X 
GX 


177777 
000000 
000010 
000000 
COOOOOR 
******  Ga' 
******  GX 
******  GX 
*x****  GX 
******  GX 
******  GX 


SYfcFGSVc!v2|[132,134JCFGSVC/CR/-SP=SY:[1,1]RSXI»ICM.SML/ML,n30,110]NETLIB/[«lL,C130,10]RSXMCM/PA:1,[132,10]CFGSVC 


002 


005 


E  U 


r 


D  15 

CFGUNT  -  CONFIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Monday  15-Jul-85  18:56  Page  8 
tQUNT  -  LOOK  FOR  UNTSDF  MACRO 


121 

.SBTTL 

$QUNT  -  LO 

OK  FOR 

UNT$DF  MACRO 

122 

123 
12A 
125 

+ 

$QUNT 

-  LOOK 

FOR  UNTSDF 

MACf?0 

126 

127 

INPUT 

S: 

128 

NONE 

129 

130 

OUTPUTS: 

131 

CARRr 

SET  -  UNTSDF 

NOT  FOUND 

132 

CARRY 

CLEAR  -  UNTSDF  FOUND 

133 

13A 
135 

000040 

012705 

000000' 

;QUNT;: 

MOV 

#UNTDF,R5 

STATE  TABLE  ADDRESS 

136 

000044 

005001 

CLR 

Rl 

FULL  KEYWORD  MATCH  LENGTH 

137 

000046 

012702 

000000' 

MOV 

#UNT/<U,R2 

KEYWORD  TABLE  ADDRESS 

138 

000052 

016703 

OOOOOOG 

MOV 

CFGSZ,R3 

RECORD  LENGTH 

139 

000056 

012704 

OOOOOOG 

MOV 

#CFG8F,R4 

RECORD  BUFFER  ADDRESS 

KO 

000062 

005067 

OOOOOOG 

CLR 

SYNERR 

CLEAR  SYNTAX  ERROR  FLAG 

U1 

000066 

CALL 

.TPARS 

GO  DO  THE  PARSE 

142 

000072 

103003 

BCC 

20$ 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

U3 

000074 

005367 

OOOOOOG 

DEC 

SYNERR 

DID  SYNTAX  ERROR  OCCUR? 

UA 

000100 

001401 

BEQ 

101$ 

IF  EQ,  YES 

H5 

000102 

?0$: 

RETURN 

146 

H7 
148 
149 

■  ERRORS 

000104 

01$: 

FMSGSR 

IT 

SYNTAX  ERROR 

E  15 


D  16 

[FOUNT 

CREATED  BY 

MACRO     ON   15 

-JUL -85  AT 

18:57 

PAGE   3 

SYMBOL 

CROSS  REFERENCE 

CREf        04.00 

SYMBOL 

VALUE 

REFERENCES 

$ANY 

=  000020 

#9-153 

SBLANK 

=  000006 

#9-153 

SDIGIT 

=  00002A 

#9-153 

$D1V 

=   ****** 

GX 

12-309 

12-312 

SDNUMB 

=  OOOOK 

#9-153 

$EOS 

=  000012 

#9-153 

SERRYP 

-      ****** 

GX 

13-400 

SERRZO 

000254 

R 

#7-116 

13-365 

tERRIG 

000000 

R 

#7-110 

11-222 

SERRlH 

00002'!, 

R 

#7-111 

11-223 

SERRU 

000060 

R 

#7-112 

11-246 

SERRIL 

000116 

R 

#7-113 

13-363 

SERRIM 

000154 

R 

#7-114 

13-364 

$ERR1N 

000216 

R 

#7-115 

13-378 

SERRIT 

=  ****** 

GX 

8-149 

SEXIT 

=  000000 

#9-153 

SFAIL 

=   177777 

#9-153 

SFLAGS 

=   ****** 

GX 

11-235 

11-238 

13-339 

13-342 

$GPRM 

=   ****** 

9-153 

SLAMDA 

=  000000 

#9-153 

SWISS 

~    ♦♦♦♦*♦ 

GX 

13-352 

SNLCSR 

-    ****** 

GX 

13-358 

SNUMBR 

=  000002 

#9-153 

SQUNT 

000040 

RG 

#8-135 

$RAD50 

=  000016 

#9-153 

SRONL'' 

-      ****** 

9-153 

9-153 

9-153 

SSLTA 

=      ****** 

GX 

11-231 

11-255 

11-270 

12-302 

SSTRNG 

=  00000^ 

#9-153 

SSUBXP 

=  000010 

#9-153 

$$DCHA 

=    ****** 

GX 

•11-241 

♦  11-2',  4 

*11-258 

M1-261 

$$DPR 

=    ****** 

GX 

*1 3-406 

SSPCHA 

r     ****** 

GX 

*11-273 

.11-275 

$$SC5R 

-    **♦♦*♦ 

GX 

♦13-360 

$$$FLG 

=   177777 

#9-153 

$$$KEr 

=    177777 

#9-153 

. PNUMB 

r     ****** 

GX 

11-217 

11-219 

11-232 

11-258 

*12-332 

13-383 

13-395 

13-397 

.PNUMH 

-     »♦***♦ 

GX 

11-215 

11-228 

11-251 

11-267 

.TPARS 

3     ****** 

GX 

8-141 

..SCSR 

■ 

GX 

13-350 

13-370 


13-372 


13-351 
12-291 


11-261 
13-406 


13-385 
12-295 

11-273 


12-306 


11-275 


12-285 


*12-331 


E  16 


EVL 


CREATED  BY     MACRO     ON  28-JUN-85  AT   22:58 


SYMBOL   CROSS   REFERENCE 
SYMBOL     VALUE 


E     1 

PAGE   6 

CREF       OA.CO 


ALCf 
SDMi 


REFERENCES 


SCSRST 

=  000003 

#5-61 

SCtSHU 

=  000002 

#5-61 

SF.ACT 

=  000200 

#5-60 

SF.ENA 

=  000100 

#5-60 

Sr.LPB 

=  OOOOOA 

#5-60 

SF.MFL 

=  0000^0 

#5-60 

SF.PAC 

=  000020 

#5-60 

SF.REA 

=  000010 

#5-60 

SF.SER 

=  000001 

#5-60 

SF.SVC 

=  000002 

#5-60 

SF.UNL 

=  000040 

#5-60 

SLTMA 

000036  R 

#8-111 

SVSDUM 

=  000001 

#5-61 

SVSLOA 

=  000000 

#5-61 

S.COST 

000001 

#5-60 

S.FLG 

000000 

#5-60 

S.LEN 

OOOOOA 

#5-60 

S.NMST 

000002 

#5-60 

S.OWNR 

000003 

#5-60 

TTNS 

000012  R 

#8-94 

XTSPVC 

=  000001 

13-440 

X$TYP 

000015 

13-440 

XlUSR 

000022 

13-437 

X$$MCB 

-  ****** 

5-62 

ZERTAB 

000422  R 

9-247 

Z'.COU 

=  001000 

#5-62 

ZF.DOM 

=  000001 

#5-62 

ZF.DIA 

=  004000 

#5-62 

ZF.DLC 

=  000002 

#5-62 

ZF.DVP 

=  100000 

#5-62 

ZF.INI 

=  040000 

#5-62 

ZF.KHX 

=  000020 

#5-62 

ZF.LLC 

=  000004 

#5-62 

ZF.LMC 

=  000100 

#5-62 

ZF.MAN 

=  020000 

#5-62 

ZF.MFL 

=  000010 

#5-62 

ZF.MTM 

=  000400 

#5-62 

ZF.MUX 

=  000040 

#5-62 

ZF.PSE 

=  002000 

#5-62 

ZF.SLI 

=  010000 

#5-62 

ZF.TIM 

=  000200 

#5-62 

ZF.X3P 

=  000000 

#5-6? 

ZS.ASN 

=  100000 

#5-62 

ZS.BSY 

=  140000 

#5-62 

ZTIM2 

000040  R 

#8-112 

Z.AVL 

000014 

#5-62 

Z.DAT 

000016 

#5-62 

Z.DSP 

000000 

#5-62 

Z.FLG 

000010 

#5-62 

Z.LEN 

--  000016 

#5-62 

Z.LLN 

000006 

#5-62 

Z.MAP 

000020 

#5-62 

13-459 


14-494 


13-455 
5-62 
#9-275 


9-265 

10-301 
5-62 


12-404 


EVL 
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ALC 


ALCMEM 
SDMEf. 


ALLOCATE   A  BLOCK  OF  ME  MACRO  V05.03b 
-  DEALLOCATE   MEMORY   FROM  PARTITION 


Saturday  29-Jun-85  00:01     Page  1-2 


345  000530 
344  000332 
345 

346  000334 

347  000336 
348 

349  000340 

350 

351  000342 

352 

353  000344 

354  000346 

355  000350 
356 

357 

358  000352 

359 

36: 

361 

362  00035. 

363  000356 
364 

365  000356 

366  000362 
367 

368 


061216 
024226 

001007 
011500 

011215 

012246 

011246 
010C15 
062612 


012642 

005726 

012677  1/'7416 

000001 


ADD 
CMP 

(R2),(SP) 
-(R25,(SP)t 

BNE 
MOV 

80$ 
(R5),R0 

MOV 

(R2),(R5) 

MOV 

(R2H,-(SP) 

MOV 
MOV 
ADD 

(R2),-(SP) 

R0,(R5) 

(SP)+,(R2) 

MOV 

(SP)+,-(R2) 

80$: 
90$: 


TST 


(SP)  + 


MOV    (SP;t,aKS6 

RETURN 
.END 


=  BASE  +  SIZE 

IS  NEXT  HOLE  POINTER  (BASE 

ADDRESS  OF  UPPER  BOUND)  =  TO 

LOU  ADDR  +  LOU  SIZE? 

YES  —  COMPACT  LOUER  AND  UPPER 

BOUNDS.  SAVE  LOU  BASE  ADDR. 

SET  ASR  TO  ACCESS  UPPER 

BOUND  ARGS. 

=  NEXT  HOLE  THAT  UPPER  BOUND 

POINTS  TO. 

=  UPPER  BOUND  SIZE. 

RESET  ASR  TO  LOW  BOUND  HOLE. 

LOU  SIZE  =  OLD  LOU  SIZE  +  UPPER 

BOUND  HOLE  SIZE 

LOUER  BOUND  NOU  POINTS  TO 
HOLE  THAT  UPPER  BOUND  HOLE 
USED  TO  AND  UPPER  BOUND 
HOLE  IS  GONE. 
CLEAN  STACK 


;  RESTORE  MAPPING  REGISTER 


ALCMEM  -  ALLOCATE  A  BLOCK  OF  ME  MACRO  V05.03b  Saturday  29-Jun-8S 


00:01 
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«FILE«MD'«rFGCNT 


E     3 


CCCCCCCC   F 

FFFFFFFFF 

GGGGGGGG 

CCCCCCCC 

NN 

NN 

TTTTTl 

TUT 

CCCCCCCC   F 

FFFFFFFFF 

GGGGGGGG 

CCCCCCCC 

m 

NN 

TTTTTl 

nil 

CC          F 

GG 

C 

m 

NN 

c"       r 

fifi 

C 

NN 

NN 

GR 

C 

NNNN 

NN 

GG 

NNNN 

NN 

FFFFFFF 

GG 

NN  NN  NN 

FFFFFFF 

GG 

NN  NN  NN 

GG 

GGGGGG   C 

NN 

NNNN 

GG 

GGGGGG   C 

NN 

NNNf 

GG 

GG   C 

NN 

f,  . 

GG 

GG   C 

NN 

NN 

CCCCCCCC   F 

GGGGGG 

CCCCCCCC 

NN 

NN 

CCCCCCCC    F 

GGGGGG 

CCCCCCCC 

NN 

NN 

r 

LL 

ssssssss 

TTTTT 

TTTTT 

LL 

SSSSSSS5 

TTTTT 

TTTTT 

-L 

ss 

-L 

ss 

.L 

ss 

-L 

ss 

-L 

ssssss 

LL 

^sssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

F     3 

CFCCVJT    -   SCAN   rnNFIGilRATION   FIL   MACRO   V05.03b   Satu'-day   29-Jun-85   00:01 


**fILE»«lD«< 

CFGDDM 

CCCCCCCC 

FFFFFFFFFF 

GGGGGGGG 

CCCCCCCC 

FFFFFFFFFF 

G6GGGGGG 

cc 

GG 

cc 

GG 

cc 

GG 

cc 

GG 

cc 

FFFFFFFF 

GG 

cc 

FFFFFFFF 

GG 

cc 

GG  GG6GG6 

cc 

GG  GGGGGG 

cc 

GG     GG 

cc 

GG      GG 

CCCCCCCC 

GGGGGG 

CCCCCCCC 

GGGGGG 

LL 

SSSSSSSS 

TITTTTTTTT 

LL 

SS5SSSSS 

TTTTT^TTTT 

LL 

SS 

LL 

ss 

LL 

SS 

LL 

ss 

LL 

ss^sss 

LL 

SS'SbS 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLlLLL 

SSSSSSSS 

E  A 


CFGC 


ODDDDDDD 

DDDDDDDD 

DD 

DD 

DD 

DD 

DD 

DD 

DD 

DD 

DD 

DD 

DDDDDDDD 

DDDDDDDD 


DDDDDDDD 
DDDDDDDD 
DD      DD 
DD      DD 
DD     DD 
DD     DD 
DD     DD 
DD      DD 
DD     DD 
DD     DD 
DD      DD 
DD      DD 
DDDDDDDD 
DDDDDDDD 


MM  MM 

MM  m 
MMMM  MMMM 
MMMM  MMMM 

MM  MM  MM 

m:  MM  MM 

MM  MM 

MM  MM 

MM  MM 

MM  MM 

MM  MM 

m  MM 

MM  MM 

MM  MM 


F     4 
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FFfif 


E  5 
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CFG 
BIA 


1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  CFGDTE  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 


SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
A  COMMITMENT  BY  DIGITAL  EQUIPMENT 


THE  INFORMATION  IN  THIS  SOFTWARE  IS 
AND  SHOULD  NOT  BE  CONSTRUED  AS 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINE'^RING 

IDENT  HISTORY: 

1.00  28-0rT-81 

DECNET-IIM/S  V3.1 
0ECNET-11M-PLUS  V1.1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


ITS 


f  5 
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BIASX  -  SET  APR6  BIAS  CORRECTLY 


E0:g 


2  Page  17 


CFG 
MAC 


395 
396 
397 
398 
399 
400 
'.01 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 


.SBTTL  BIASX  -  SET  APR6  BIAS  CORRECTLY 


BIASX  -  SET  APR6  BIAS  CORRECTLY 

INPUTS: 

RO  =  ADDRESS  (POOL  OR  APR5) 

OUTPUTS: 

RO  =  ADDRESS  (POOL  OR  APh 


000500 

000500  0200?7  12000C 

000504  103404 

000506  042700  160000 

000512  052700  140000 

000516 


BIASX: 

CMP 

R0,*120P00 

BLO 

10§ 

BIC 

#1 60000, RO 

BIS 

#140000, RO 

10$: 

RETURN 

ADDRESS  IN  APR5  ? 
BR  IF  NO  (ASSUME  POOL) 
CLEAR  ALL  APR  BITS 
AND  BIAS  FOR  APR6 
RETURN 


rFf.riTF  -  INITIAI  rnNFir,  rilF  sr  macro  V05.03b  Saturday  29-Jun-85  00:02  Paqe  18 
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MACRO  DEFINITIONS 


CFG 
ERR 


55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 


.S8TTL  MACRO  DEFINITIONS 

LI8RAf(Y  MACROS 

.MCALL   I  STATS, TRANS, STATES, EMSGSR 
LOCAL  MACRO  DEFINTIONS 


REJECT  TPARS  TRANSITION 

.MACRO  REJS 
ADD     #2,(SP) 
CLR     SyNf'R 
.ENDM   REJS 


RETURN  TO  CALLER+2 
INDICATE  NO  SYNTAX  ERROR 


r  r  rr  c  A 


F     7 
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c 


CFGPVC  -  INITIAL  CONFIG  fILE  SC  MACRO  VO5.03b  Saturday  29-Jun-85 
ERROR  MESSAGES 


00:01 
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CFGP 
BIAS 


157 
158 
159 
160 

161  000052 

162  00C112 

163  000U6 
161  000200 

165  000214 

166  000300 

167  000331 

168  000370 
169 

170 
171 
172  000000 


.SBTTL  ERROR  MESSAGES 
.ENABL  LC 


NTLERS 

,N0 

NTLERS 

,N1 

NTLERS 

,N2 

NTLERS 

,N< 

NTLERS 

,PH 

NTLERS 

,00 

NTLERS 

,ns 

NTLERS 

,09 

.DSABL 

IC 

.EVEN 

.LIST 

BEX 

.PSECT 

,8B,CERK,RTSPC,CFLIN,<circuit  ident i f ication> 
,8B,CERR,RTSPC,CFLIN,<process  owner  name> 
,8B,CERR,RTSPC,CFL]N,<flags  byte  \/alue> 
,8,CERR,RTSPC,CFLIN,<Resource  alLocation  failure> 
,8B,CERR,RTSPC,CFLIN,<maximum  block  si2e> 
,8B,CERR,RTSPC,CFLIN,<maximum  window  size> 
,8B,CERR,RTSPC,CFLIN,<counter  timer  value> 
,8B,CERR,RTSPC,CFLIN,<logical.  (hannel  number> 


MAl-Dn      WnC      n7k      C-t*-iir<rJ3 


Jz 


CFGPVr 
BIASX  ■ 

678 
679 
680 
681 
682 
683 
68A 
685 
686 
687 
688 
689 
690 
691 
692 
693 
69A 
695 
696 


E  9 

-  INITIAL  CONFIG  FILE  SC  MACRO  VC5.03b  Saturday  29-Jun-85  00:04  Page  19 
BIAS  XPOOL  ADDRESS  FOR  APR6 


.SBTiL  BIASX  -  BIAS  XPOOL  ADDRESS  FOR  APR6 

^ 
BIASX  -  BIAS  XPOOL  ADDRESS  FOR  APR6 

INPUTS: 

RO  =  ADDRESS  (POOL  OR  APRS) 

OUTPUTS: 

RO  =  ADDRESS  (POOL  OR  APP6) 


CFGP 

SV'IB 

SYMB 

.PNU 
.PST 

.PST 
.TPA 


001610 
001610 
001614 
001616 
001622 
001626 


020027  120000 
103404 

042700  160CG0 

052700  140000 


BIASX: 


10$: 


CMP 
BLO 
BIC 
BIS 
RETURN 


RO, #120000 
lOi 

#160000, RO 
#140000, RO 


POOL  ADDRESS? 
YES,  LEAVE  AS  IS 
CLEAR  APR  BITS 
BIAS  FOR  APR6 
RETURN 


C  Cr      MArOn  \in^      n7h   Cafi 


F  9 


CFGPVC     CREATED  BY 
SY1B0L  CROSS  REFERENCE 
SYMBOL  VALUE 


MACRO  ON  29-JUN-85  AT  OC'C 


E  10 

PAGE  6 

CREf   04.00 


PNUMH  =  «*«**• 

PSTCN  =  «•♦••* 

PSTPT  =  »»•••* 

TPARS  =  «*♦»*» 


CX 
GX 

GX 
GX 


REFERENCES 

11-324 
11-298 
r-306 
9-193 


11-340 
12-377 
12-379 


12-392 


20-738 


20-752 


I iM-Qt;  AT  nci. r\/. 


f   10 


CFGSLT     CREATED  BY  MACRO  ON  ?9-JUN-o5  AT  00:05 
SYMBOL  CROSS  REFERENCE 


E  n 

PAGE  2 

CREf   04.00 


SYMBOL 

VALUE 

REFERENC 

ES 

3F.PAC 

=  000020 

.«-58 

SF.REA 

=  000010 

#5-58 

SF.SER 

=  000001 

#5-58 

SF.SVC 

=  000002 

#5-58 

SF.UNL 

=  OOOOAO 

#5-58 

SLTDF 

000000 

R 

6-84 

SLTKW 

000000 

RG 

6-86 

#7-107 

SLTST 

000000 

RG 

#7-107 

SYNERR 

r  ****** 

GX 

♦6-89 

♦  6-94 

S.BRAD 

000210 

R 

#9-229 

S.COST 

000001 

#5-58 

S.CTIM 

000126 

R 

#9-207 

S.CTL 

000062 

R 

#9-192 

S.FLG 

000000 

#5-58 

S.HTIM 

000152 

R 

#9-216 

S.LEN 

OOOOOA 

#5-58 

S.NMST 

000002 

#5-58 

S.OUNR 

000003 

#5-58 

S.RPR! 

000220 

R 

#9-256 

S.UNT 

000104 

R 

#9-200 

UNT 

~      ****** 

GX 

9-200 

SALPHA 

=  000022 

#7-107 

$ANV 

=  000020 

#7-107 

SBLANK 

=  000006 

#7-107 

SCTIM 

-      ****** 

GX 

♦9-209 

SDIGIT 

=  000024 

#7-107 

SDNUMB 

=  000014 

#7-107 

$EOS 

^  000012 

#7-107 

SERRYR 

=   ****** 

GX 

9-211 

SERRZP 

=      ****** 

GX 

9-223 

SERRU 

=   ****** 

GX 

6-101 

$EX!T 

=  000000 

#7-107 

SFAIL 

=  177777 

#7-107 

$GPRM 

=  ****** 

7-1C7 

SLAMDA 

=  000000 

#7-107 

SNUMBR 

=  000002 

#7-107 

SQSLT 

000000 

RG 

#6-84 

$RAD50 

=  000016 

#7-107 

SRONLV 

=  ****** 

7-107 

7-107 

SSTRNG 

=  000004 

#7-107 

SSUBXP 

=  000010 

#7-107 

$$HTIM 

r  ****** 

GX 

•9-218 

$$LTIM 

=    ****** 

GX 

*9-220 

$$$FLG 

::  ^77777 

#7-107 

$$$KEY 

r  ^77777 

#7-107 

.NSRA 

-  ****** 

GX 

♦6-90 

♦9-229 

.PNUMB 

r  ****** 

GX 

9-192 

9-200 

.PNUMH 

-  ****** 

GX 

9-207 

9-216 

.RPR  I 

~     ****** 

GX 

♦  6-91 

♦9-238 

.TPAPS 

r  ****** 

GX 

6-92 

♦9-194 


♦9-202 


♦9-241 


7-107 


9-209 


9-218 


♦9-219 


9-220 


9-229 


9-236 


9-238 


_oc  AT  nn .  nt; 


F  11 


CFGSTA  -  CONFIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85 
Symbol  table 


^  12 

00:0i 


A$JCHK= 

000000 

K$$TPS= 

000074 

L.COST 

000015 

At$CPS= 

OOOGOO 

LD$LP  = 

000000 

L.CTL 

?§§9l? 

A$$PRI= 

000000 

LF.ACT= 

100000 

L.CVA 

177776 

A$$TRP= 

000000 

LF.BRO= 

000400 

L.DDM 

000002 

BITS 

000076R 

002 

LF.BWT= 

000007 

L.DDS 

000004 

BlTSl 

0001 06R 

002 

LF.ENA= 

002000 

L.DLC 

000003 

BIT^2 

0001 22R 

002 

LF.LPB= 

001000 

L.DLM 

000006 

CERR 

•♦♦♦**  GX 

LF.MDC= 

000100 

L.DLS 

000010 

CFGBF  -= 

«»••♦•  GX 

LF.MFL= 

004000 

L.FLG 

000000 

CFGSZ  = 

.♦»«♦«  GX 

LF.MTPr 

000020 

L.KR8A 

000016 

CFLIN  = 

«♦«»♦»  GX 

LF.PAC= 

000200 

L.LEN  = 

000022 

C$$CKP= 

000000 

LF.RDY= 

040000 

L.MPF 

000022 

C$$ORE= 

OOOAOO 

LF.REA= 

010000 

L.NMST 

000020 

Ct$RSH= 

17756A 

LF.SER= 

000040 

L.NSTA 

000014 

D$$BiJG= 

177514 

LF.T1M= 

000010 

L . OWNR 

000021 

[?StISK;  = 

000000 

LF.UNL= 

020000 

L.UNT 

959SII 

D$$L11= 

000001 

LF.X2P= 

000000 

MAXCST= 

000031 

0$iyNC= 

000000 

LN.CL0= 

000000 

M$$CR8= 

000124 

D$$YNM= 

000000 

LN.DUM= 

000005 

M$«;CRX= 

000000 

END 

000066R 

002 

LN.LOA= 

000004 

M$$FCS= 

000000 

E$$XPR= 

000000 

LN.l00= 

000003 

M$iHGE= 

000000 

FMT8  = 

»♦*♦**  rx 

LN.OAU= 

000003 

Mt$NET= 

000000 

FMT8B  = 

»*««♦*  GX 

LN.OFF= 

000001 

H$$OVR= 

000000 

FM.8  = 

000000 

LN.ON  = 

000000 

N$$ACC= 

000001 

FM.8B  = 

000000 

LN.00P= 

000004 

N$$BUF= 

000001 

FS$LVL= 

000001 

LN.OPE= 

000001 

N$$LDV=: 

000001 

G$$TPP= 

000000 

LN.REF= 

000002 

N$$MCP= 

000001 

G$$TSS= 

000000 

LN.SER= 

000002 

NI$MLL= 

000001 

G$$TTK= 

000000 

LN.STA= 

000017 

N$$MOV= 

000010 

G$$WRb= 

000000 

LN.SU8= 

000360 

N$$NCT= 

000001 

I$$RAR= 

000000 

LN.TRI= 

000006 

N$$PEI»I= 

000001 

I$$RDN= 

000000 

L$$ASG= 

000000 

P$$P45= 

000000 

K$$CNT= 

177546 

L$$DRV= 

000000 

P$$WRD= 

000000 

K$$CSR= 

177546 

L$$P11= 

000001 

Q$$OPT= 

000010 

K$$LDC= 

000000 

L$$11R= 

000000 

RTSPC  = 

♦*•***  GX 

.  ABS. 

177776 

000 

(RW,I,GBL,ABS,OVR) 

000546 

001 

(RW,I,LCL,REL,C0N) 

SSTATE 

000126 

002 

(RW,D,LCL,REL,C0N) 

SKTAB 

000002 

003 

(RW,D,LCL,REL,CON) 

SKSTR 

000007 

004 

(RW,D,LCL,R£L,CON) 

Errors 

detected: 

0 

*••♦  Ass 

embter  statistics 

Work   f 

ile  reads 

0 

Work   f 

ile  writes 

0 

Size  0) 

work  file 

14408  Words 

(  57  Pages) 

Size  ol 

core  oool 

•  15496  Words 

(  59  Pages) 

Operating  system 

•  RSX- 

11M/PLUS 

06  Page  11-1 


R$SDER= 

R$$K11= 

R$$SND- 

R$$11M= 

SCNT  = 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.HFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SIADF 

STADF2 

STAKW 

STAST 

ST. APR 

ST.CST 

Sr.HTM 

ST.NUM 

SYNERR= 

S$$WRG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S . OWNR 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 


cfg; 
svri 


000000 

$ALPHA=: 

000022 

000001 

$ANY  = 

000020 

000000 

$BLANK= 

000006 

000000 

$digit= 

000024 

******  GX 

$DNUHB= 

000014 

000200 

$EOS  = 

000012 

000100 

SERRYA 

000130R 

000004 

SERRYB 

0001 62R 

000040 

$£RRYP= 

******  GX 

000020 

SERRYQ 

000070R 

000010 

SERRIA 

OOOOOOR 

000001 

SERRIB 

000030R 

000002 

$ERR1T= 

******  GX 

000040 

$EXIT  = 

000000 

OOOOOOR 

002 

JFAIL  = 

177777 

000032R 

002 

ILAHDA= 

000000 

oooooorg 

(){)', 

$NUMBR= 

000002 

OOOOOORG 

002 

$qsta 

000216RG 

000446R 

$RAD50= 

000016 

000356R 

$slta  = 

******  GX 

000500R 

$strng= 

000004 

000270R 

$SUBXP= 

000010 

******  GX 

S$APR  = 

******  GX 

000000 

$$htih= 

******  GX 

007600 

$$LTIM= 

******  GX 

000001 

$$MTP  = 

******  GX 

000000 

$$SNUM= 

******  GX 

000004 

$$$flg= 

177777 

000002 

$$$KEY= 

OOOOUO 

000003 

$$$STA= 

000106R     002 

000000 

$$$TMP= 

OOOOOOR    004 

000000 

.PNUMB= 

******  GX 

001000 

.PNUMH= 

******  GX 

000000 

.TPARS= 

******  GX 

Sy?CFGSTA!v2;[132,134JCFGSTA/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,n30,10]RSXFlCM/PA:l,[132,10]CFGSTA 
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CFGSVC  -  CONfIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85 
SVrSDF  STATE  TABLE 


I   13 

00:0i 


06  Page  9-1 


238 

239  000052 

240  000052 
241 

242  000052 

243  000052 

244  000052 
245 

246  000052 

247  000052 

248  000052 
249 

250  000052 

251  000052 
252 

253  000052 


STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 


;  START  OF  DTE  ADDRESS 
<',>,SVOUN,NODTE  ;  NO  DTE  ADDRESS  SPECIFIED 
SDIGIT,,SVDTES 


SVCDTE 
SDJGIT.SVCDTE.SVDTED 
<',>,,SVDTEE 

SVOWN  ;  OWNER 

SRAD50,$EXIT,SVOUNR 


NEXT  DIGIT  IN  DTE  ADDRESS 
END  OF  DTE  ADDRESS 


F  13 


L 


CFGSVC     CREATED  BV  MACRO  ON  29-JUN-85  AT  00:07 
SYMBOL  CR0"5  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

CFERR 

=  .««»»*  GX 

7-138 
7-147 

7-139 

7-14: 

CFGBF 

=  »..».*  GX 

8-169 

CFGSZ 

=  •♦••*»  GX 

8-168 

COUNT 

00002A  R 

#6-127 

•12-B87 

13-460 

CTLSVC 

000021  R 

#6-124 

»10-279 

13-453 

CVTBUF 

000054  R 

#6-i32 

*1 7-637 

17-638 

OTEENO 

=  000044  R 

#6-130 

12-395 

DTELEN 

=  000017 

#6-128 

6-129 

6-131 

DTEPCK 

000044  R 

#6-131 

12-410 

13-464 

DTESVC 

000025  R 

#6-129 

12-383 

12-388 

ESNBR 

000014 

#5-62 

ESNBS 

000020 

#5-62 

ESNCR 

000034 

#5-62 

E$NCS 

000036 

#5-62 

E$NIC 

000044 

#5-62 

ESNLEN 

000050 

#5-62 

ESNLLA 

000012 

#5-62 

E$NLN< 

000000 

#5-62 

EINML 

000040 

#5-62 

ESNMR 

000024 

#5-62 

ESNMS 

000030 

#5-62 

ESNNOD 

000002 

#5-62 

ESNRT 

000042 

#5-62 

ESNRTP 

000005 

#5-62 

ESNSEG 

000010 

#5-62 

ESNTIM 

000046 

#5-62 

ESNUSE 

000004 

#5-62 

ESSTRT 

000006 

#5-62 

FLGSVC 

000010  R 

#6-119 

♦11-336 

12-372 

FMT8 

=  *♦♦*♦♦  GX 

7-145 

7-146 

7-147 

FMT8B 

=  *»♦♦*»  GX 

7-138 

7-139 

7-140 

FM.8 

=  000000 

#7-145 

#7-146 

#7-147 

FM.8B 

=  000000 

#7-138 

#7-139 

#7-140 

FNDOWN 

001146  R 

13-424 

#14-511 

HTIMR 

000002  R 

#6-116 

M3-429 

15-580 

H$Si/C 

000036 

13-469 

I$$AS 

r  ****** 

16-612 

KSAR5 

-     »*»*»*   GX 

13-442 

13-448 

13-483 

LF.ACT 

=  100000 

#5-65 

LF.BRO 

=  000400 

#5-65 

LF.8WT 

^  000007 

#5-65 

LF.ENA 

=  002000 

#5-65 

LF.LPB 

=  001000 

#5-65 

LF.MDC 

=  000100 

#5-65 

LF.MFL 

=  004000 

#5-65 

LF.MTP 

=  000020 

#5-65 

LF.PAC 

=  000200 

#5-65 

1  F.RDV 

=  040000 

#5-65 

LF.REA 

^  010000 

#5-65 

LF.SER 

=  000040 

#5-65 

LF.TIM 

=  000010 

#5-65 

E  U 

PAGE  1 

CREF   04.00 
7-141 


CFC 
UNT 


16-602 


12-382 
12-409 


7-142 


•17-642 


12-408 


7-143 


13-461 


7-144 


7-145 


7-146 


13-456 
7-141 

#7-141 


15-559 


7-142 
#7-142 


15-561 


7-143 
#7-143 

15-582 


7-144 
#7-144 


F  H 


r 


E  15 

FGUN!   -  CONFIG  FILE   SCAN  ACTIO  MACRO  V05.03b  Monday  15-Ju'.-85   18:56     Page  9 
UNT$DF    STATE    TABLE 

151 

152 

153  00011? 

15A 

155 

156 

157  000112 

158  000112 

159  000112 

160  000112 

161  000112 

162  000112 

163  000112 
16^  000112 

165  000112 

166  000112 

167  000112 

168  000112 

169  000112 

170  000112 

171  000112 
172 

173  000112 

174  000112 

175  000112 
176 

177  ooot:2 

178  0001" 2 

179  000112 
180 

181  000112 

182  000112 

183  000112 
184 

185  000112 

186  000112 

187  000112 
1 RR 

189  000112 

190  000112 

191  000112 
192 

193  000112 

194  000112 

195  000112 
196 

197  000112 

198  000112 
199 


.SBTTL 

UNTSDF  STATE  TABLE 

ISTATS 

UNTST.UNTKW 

UNIT  DEFINITION  (UNTSDF) 

STATES 

UNTDF 

TRANS 

XUNTSDFX,,,1,SYNERR 

STATES 

;  UNIT  NUMBER 

TRANS 

SNUMBR,,U.UNT 

STATES 

TRANS 

<'  ,> 

STATES 

:    CHARACTERISTICS  WORD  0 

TRANS 

SNUMPR,,U.CHA0 

STATES 

TRANS 

<',> 

STATES 

;  CHARACTERISTICS  WORD  1 

TRANS 

SNUMBR,,U.CHA1 

STATES 

TRANS 

IEND,SEXIT,U.XCSR 

TRANS 

<'  .> 

STATES 

;  SECONDARY  CSR  (OPTIONAL) 

TRANS 

$NUMBR,COST,U.SCSR 

TRANS 

SLAMDA,,U.XCSR 

STATES 

COST 

TRANS 

<',>,C0ST1 

TRANS 

SLAMDA,SEXIT   ;  DON'T  REQUIRE  ANYMORE 

STATES 

C0ST1          ;  LINE  COST 

TRANS 

SNUMBR,DPR,U.CST 

TRANS 

SLAMDA 

STATES 

DPR 

TRANS 

<',>,DPR1 

TRANS 

SLAMDA, SEX  IT 

STATES 

DPR1           ;  DEAD  POLLING  RATIO 

TRANS 

SNUMBR,PECH,U.DPR 

TRANS 

SLAMDA 

STATES 

PECH 

TRANS 

<',>,PECH1 

TRANS 

SLAMDA, SEXIT 

STATES 

PECHl          ;  PROTOCOL  EMULATOR  CHARAC 

IRANS 

SNUMBR,$EXIT,U.PECH 

F  15 


CFGUNT  CREATED  BY 

MACRO   CROSS   REFERENCE 


MACRO     ON  15-JUL-85  AT   18:57 


PAGE   4 
CREf 


E  16 

OA.OO 


MACRO  NAME 

REFERENCES 

CALL 

8-U1 

11-25A 

12-309 

12-312 

13-354 

13-358 

CHADFt 
DBGTPS 

#5-57 
#9-153 

5-59 
#9-171 

#9-175 

#9-179 

#9-183 

#9-187 

#9-191 

#9-195 

#10-206 

EMSGiR 

#5-57 

8-U9 

11-222 

11-223 

11-246 

13-363 

13-364 

13-365 

13-378 

13-400 

ISTATt 

#5-57 

9-153 

MTRANS 

#9-153 

NTLERS 

#5-57 

7-110 

7-111 

7-112 

7-113 

7-114 

7-115 

7-116 

RESRG 
RETURN 

#5-57 
8-U5 

12-333 

11-221 

11-245 

11-262 

11-276 

12-334 

13-362 

13-377 

13-398 

13-407 

SAVRG 

#5-57 

12-284 

SLTDFS 
STATES 

#5-57 
#5-57 

5-60 
9-157 

#9-159 

#9-161 

#9-163 

#9-165 

#9-167 

#9-169 

#9-173 

#9-177 

#9-181 

#9-185 

#9-189 

#9-193 

#9-197 

#10-204 

#10-208 

TRANS 

#5-57 

#9-158 

#9-160 

#9-162 

#9-164 

#9-166 

#9-168 

#9-170 

#9-171 

#9-174 

#9-175 

#9-178 

#9-179 

#9-182 

#9-183 

#9-186 

#9-187 

#9-190 

#9-191 

#9-194 

#9-195 

#9-198 

#10-205 

#10-206 

F  16 


EVL 


CREATED  BY  MACRO  ON  28-JUN-85  AT  ?2:58 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


Z.NAM 

Z.PCB 

Z.SCH 

SCEACC 

$EVLTB 

SEVLVL 

SEVIVT 

SEXRQN 

SLGDOE 

SLGLST 

SLGPDV 

SLGSTT 

SLOST 

SPDVID 

SPDVTA 

SPSIPT 

SSLTMA 

STTNS 

$ZTIM2 


000004 

000012 

000007 

******  GX 

000000  RG 

000013  G 

000012  RG 

******  GX 

******  GX 

******  GX 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


PAGE  7 

CREF   OA.OO 


REFERENCES 

#5-62 
#5-62 
#5-62 

8-95 
#7-77 
#8-1 U 
#8-85 

8-96 

8-98 

11-350 

8-99 

8-100 

11-335 

8-108 

8-109 

8-110 

8-111 

8-94 

8-112 


8-114 

»11-356 

11-352 


ALCI 
Syml 

A$$l 
A$$i 
A$tl 
A$$ 
BUF 
CMOI 
C$$i 
C$$l 
C$SI 
D$$l 
DS$ 
D$S 
D$$ 
D$$ 
ESS 
FSS 
GSS 

.    A, 

Err 


Wor 
Wor 
Siz 
Siz 
Ope 

Ela 
SY: 


EVL 


CREATED  BY  MACRO  ON  28-JUN-85  AT  22:58 
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G  1 


ALC 


ALCMEM  -  ALLOCATE   A  BLOCK  OF   ME  MACRO  V05.03b   Saturday  29-Jun-85  00:01 
Symbol   table 


Page  7-3 


CFGC 
TaLL 


A$$CH<= 

000000 

GS$TSS= 

000000 

L$$11R= 

000000 

PIRQ  = 

ymi2 

R$$SND= 

000000 

AS$CPS= 

OOCOOO 

G$$TTK= 

000000 

HPArt  = 

172100 

PMODE  = 

030000 

R$$11M= 

000000 

A$$PR1= 

000000 

G$$wRD= 

000000 

MPCSR  = 

77746 

PRO   = 

000000 

swR  = 

177570 

A$$TRP= 

000000 

I$$RAR= 

000000 

M$$CRB= 

000124 

PR1   = 

000040 

S$$WRG= 

99§999 

BUFUMP= 

172354 

I$$RDN= 

000000 

M$$CRX= 

000000 

PR2   = 

959]92 

S$$YSZ= 

007600 

CMODE  = 

V.OOOO 

KISARO= 

172340 

M$$FCS= 

000000 

PR3   = 

000140 

TPS 

177564 

C$$CKP= 

000000 

KISAR6= 

172354 

H$$HGE= 

000000 

PR4   = 

000200 

T$$KMG= 

999999 

C$$ORE= 

000400 

KSAR6  = 

******  GX 

M$$NET= 

000000 

PR5   = 

9591^9 

r$$MIN= 

000000 

C$$RSH= 

177564 

KS6 

OOOOOOR 

M$$Ci/R= 

000000 

PR6   = 

000300 

UBMPR  = 

170200 

D$$BUG= 

177514 

K$$CNT= 

i:'7546 

N$$ACC= 

000001 

PR  7   = 

000340 

UISARO= 

177640 

D$$ISK= 

000000 

K$$CSR= 

177546 

N$$BUF= 

000001 

PS 

■\7n7k 

UISAR1= 

177642 

0$$L11= 

000001 

K$$LDC= 

000000 

N$$LDV= 

000001 

P$$P45= 

000000 

V$$CTR= 

001000 

D$SYNC= 

000000 

K$$TPS= 

000074 

N$$MCP= 

000001 

P$$URD= 

000000 

X$$DBT= 

000000 

D$$YNM= 

000000 

LDSLP  = 

000000 

N$$MLL= 

000001 

Q$$OPT= 

000010 

$AMEM 

000002RG 

E$SXPR= 

000000 

L$$ASG=: 

000000 

N$$M0V= 

000010 

R$$DER= 

000000 

$DMEM 

000220RG 

F$$LVL= 

000001 

LS$DRV= 

000000 

N$$NCT= 

000001 

R$$K11= 

000001 

.BASEB= 

140000 

G$$TPP= 

000000 

L$$P11  = 

000001 

N$$PEM= 

000001 

.  ABS. 

000000 
000364 

000 
001 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 

Errors 

detected: 

0 

»**  Assembler  statistics 

Work   1 

ile  reads 

0 

Work   f 

i le  writes 

0 

Size  or 

KOrk  file 

9770 

Words 

(  39  Pages) 

Size  of 

core  pool 

14440  Words 

(  55  Pages) 

Operati 

ng  system 

RSX- 

11M/PLUS 

SY?ALCMEMly2;[132,134DALCMEM/CR/-SP=SY:[1,1]RSXI«ICM.SML/ML,[130,110]NETLIB/ML,[130,10]RSXMCM/PA:1,[132,10]ALCMEM 
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CFGC 


F  3 

CFGfNT  -  SCAN  CONFIGURATION  FR  MACRO  V05.03b  Satu'-day  29-Jun-85  00:01 
Tat,L9  cf  contents 


CFGD 
Tabl 


s- 

S^ 

MACRO  DEFINITIONS 

6- 

70 

ERROR  MESSAGES 

7- 

91 

SQCNT  -  LOOK  FOR  CNTSDF  MACRO 

H- 

VI 

TPARS  STATE  TABLES 

9- 

166 

CNTSDF  ACTION  ROUTIMES 

CFGCNT  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:01 


Page  k 


CFGt 


F  4 

CFGDDM  -  SCAM  CONF IGURA I  ION  FIL  MACRU  VO5.03b  Saturday  29-Jun-85  00:02 

Table  ot  contents 

5-  53    MACRO  DEFINITIONS 

6-  60    SQDDM  -  LOOK  FOR  DDMSDF  MACRO 

7-  90    TPARS  STATE  TABIFS 

8-  ■'52    ACTION  ROUTINES 


CFGC 
MACF 


CFGDDM  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85 


5o;02 


Page  4 


CFGDTE  - 

MACRO  DE 

5^, 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 


F  5 

INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:02  Page  5 
FINITIONS 

.S8TTL  MACRO  DEFINITIONS 


CFC 
LIN 


;  LIBRARY  MACROS 


.MCALL  EMSG$R,SLTDF$,SAVRG,RESRG,DTEDF$,RETC 
.MCALL  PH8DF$,NTLER$, I  STATS, TRANS, STATES, ASL$ 


000000 
000000 
000000 


LIBRARY  SYMBOLS 

DTEDFS 
PHBDFS 
SLTDFS 

LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MOV     aKSAR5,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV     (SP)+,aKSAR5 

.ENDM 


LOCAL  DTE  DESCRIPTOR  BLOCK  OFFSETS 
DEFINE  PSI  HOME  BLOCK  OFFSETS 
DEFINE  SLT  OFFSETS 


SAVE  APR  5 


RESTORE  APRS 


rpr.nTF  -  imitiai  rnNfir,  riiF  ->r  macro  V05.03b  Saturday  29-Jun-85  00:02  Paqe  6 


CF( 


CFGDTE  -  INITIAL  CONFIG 
LINE-ID  ACTION  ROUTINES 
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CFG 
$QF 


416 

.SBTTL 

LINE-ID  ACTION  ROUTINES 

417 

.ENA8L 

LSB 

418 

419 
420 
421  000520 

;•  DEVICE  NAME 

022767 

000003 

OOOOOOG 

DEVNAM:  CMP 

#3,.PSTCN 

io1$ 

422  000526 

103425 

BLO 

423  000530 

016700 

OOOOOOG 

MOV 

.PSTPT.RO 

424  000534 

CALL 

SCATS 

425  000540 

010167 

000042' 

MOV 

R1,LINNAH 

426  000544 

427 

428 

RETURN 

■  DEVICE  CONTROLLER  NUMBER 

429 

• 

430  000546 

005767 

OOOOOOG 

DEVCTL;  TST 

.PNUMH 

431  000552 

001013 

BNE 

101$ 

432  000554 

016767 

OOOOOOG 

000044' 

MOV 

.PNUMB.LINCTL 

433  000562 

RETURN 

434 

435 

;  DEVICE  UNIT  NUMBER 

436 

437  000564 

005767 

OOOOOOG 

DEVUNT:  TST 

.  PNUMH 

438  000570 

001004 

BNE 

101$ 

439  000572 

116767 

OOOOOOG 

000045' 

MOVB 

.PNUMS,LINUNT 

440  000600 

RETURN 

441 

442 

;  ERRORS 

443 

444  000602 

101$:   EMSGSR 

06 

4',5 

.DSA8L 

LSB 

VALID  DEVICE  NAME? 

BR  IF  NO 

GET  ADDRESS  OF  FIRST  CHARACTER 

CONVERT  TO  RAD50 

SAVE  DEVICENAME 


LEGAL  CONTROLLER  NUMBER  VALUE? 

BR  IF  NO 

SAVE  CONTROLLER  NUMBER 


LEGAL  UNIT  NUMBER  VALUE? 

BR  IF  NO 

SAVE  UNIT  NUMBER 


ILLEGAL  LINE-ID 


fFGDTF 
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SQFEA  -  LOOK  FOR  FEASDF  MACRO 


Page  6 


CFG 
LOC 


75 
74 
75 

78 
79 
80 
81 
82 
83 
84 

+ 

.SBTTL 

$QFEA  -  LC 

OK  FOR 

FEASDF  MACRO 

SQFEA 

-  LOOK 

FOR  FEA$DF 

MACRO 

INPUTS: 

NONE 

OUTPUTS: 

ALL  REGISTERS  DESTROYED 

85 

86  OOOOOO 

87  000004 

88  000006 

89  000012 

90  000016 

91  000022 

92  000026 

93  000032 

94  000034 

95  OOOO'.O 

96  000042 
97 

012705 
005001 
012702 
016703 
012704 
005067 

103003 
005367 
001401 

OOOOOO' 

OOOOOO' 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

.QFEA:: 
?0$: 

MOV 

CLR 

MOV 

MOV 

MOV 

CLR 

CALL 

BCC 

DEC 

BEQ 

RETURN 

#FEADF,R5 

R1 

#FEAKU,R2 

CFGSZ,R3 

#CF'^8F,R4 

SYNERR 

.TPaRS 

20$ 

SYNERR 

101$ 

STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EQ,  YES 

98 
99 
100  000044 

•  ERRORS 

101$: 

EMSG$R 

IT 

SYNTAX  ERROR 

G  7 

rnwFin  fiif  %rM   ArTin  macro  V05.03b  Saturday  29-Jun-85  00:05 
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CFGPVC  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:OA  Page  9 
LOOK  FOR  PVCtDF  MACRO 


CFGP 

PVOL 


174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
18A 
185 

186  000000 

187  000004 

188  000010 

189  000012 

190  000016 

191  000022 

192  000026 

193  000032 

194  000036 

195  000040 

196  000044 

197  000046 
198 

199 
200 
201 
202  000050 


.SSTTL  lOOK  FOR  PVCSDF  MACRO 


$QPVC  -  LOOK  FOR  PVCtOF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-B1T=SUCCESS/FAILURE 
R3,R4,fi5=DESTROYED 


005067 
012705 
005001 
012702 
016703 
CI  2704 
005067 

103003 
005367 
001401 


000032' 
000000' 

000000' 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 


IqPVC:: 

CLR 

FLAG 

MOV 

*PVCDF,R5 

CLR 

Rl 

MOV 

#PCVKW,R2 

MOV 

CFGSZ,R3 

MOV 

#CFGBF,R4 

CLR 

SVNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SVNERR 

BEO 

101$ 

20$: 

RETURN 

;  ERROR 

CONDITION 

101$: 

EMSGSR 

IT 

CLEAR  LOCAL  FLAGS  WORD 

STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  to,  YES 


SYNTAX  ERROR 


Q  8 
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PVDLM  -  Ct'ECK  FOR  DLM  PVC 


Page  20 


698 

.SBTTL 

PVDLM  -  CHECK  FOR 

DLM  PVC 

699 

700 
701 
702 
703 
704 

+ 

PVDLM 

-  CHECK 

FOR  DLM  PVC 

INPUTS: 

705 

PVCNAM 

-  PROCESS  NAME  (ASCII) 

706 

707 

OUTPU 

TS: 

708 

DLMPDV 

-  DlM'S  PDV  ADDRESS 

709 

710 

711  001630 

012700 

000035' 

PVDlM: 

MOV 

*PVCNAM,RO 

POINT  TO  SPECIFIED  PROCESS  NAME 

712  001634 

CALL 

$CAT5 

CONVERT  TO  RAD50 

713  001640 

020127 

015355 

CMP 

R1,#*RDLM 

IS  THIS  DLM? 

714  001644 

001025 

BNE 

INVCIR 

BR  IF  NO  -  IGNORE  IT 

715  001646 

010102 

MOV 

R1,R2         ; 

GET  DLM'S  RAD50  PROCESS  NAME 

716 

717  001650 

SUSTK$ 

20$ 

;  ENTER  SYSTEM  STATE 

718  001654 

CALL 

aPDVlD 

;  GET  DLM'S  PDV  INDEX 

719  001660 

103006 

BCC 

10$ 

;  BR  IF  FOUND  IT 

720  001662 

RETC 

RO 

;  ELSE  SET  USER  C-BIT 

721  001674 

000406 

BR 

15$ 

;  AND  EXIT 

722  001676 

110267 

000046' 

10$: 

Move 

R2,DLMIND 

;  SAVE  PDV  INDEX 

723  001702 

067702 

OOOOOOG 

ADD 

aPDVTA,R2 

;  POINT  TO  ENTRY  IN  PDV  VECTOR  TABLE 

724  001706 

011267 

000022' 

MOV 

(R2), DLMPDV 

;  SAVE  DLM'S  PDV  INDEX 

725  001712 

15$: 

RETURN 

;  EXIT  SYSTEM  STATE 

726 

727  001714 

103401 

20$: 

BCS 

INVCIR 

BR  IF  DLM  NOT  IN  SYSTEM 

728  001716 

RETURN 

729 

730 

731 

732  001720 

733 

734 

735 

736 

•  ERRORS 

[NVCIR: 

EMSG$R 

NO 

ILLEGAL  CIRCUIT  ID 

;  PVCTL 

-  GFT  CONTROLLER  NUMBER  FOR  DLM 

.ENABL 

LS8 

737  001726 

116767 

OOOOOOG 

000044' 

PVCTL: 

MOVB 

.PNUMB,DLMCTL 

SAVE  CONTROLLER  NUMBER 

738  001734 

005767 

OOOOOOG 

TST 

. PNUMH 

LEGAL  VALUE? 

739  001740 

001367 

BNE 

INVCIR 

BR  IF  NO  -  ERROR 

740  001742 

105767 

000001G 

TST8 

.PNUMBtl 

LEGAL  VALUE? 

741  001746 

001364 

BNE 

INVCIR 

BR  IF  NO 

742  001750 

016700 

OOOOOOG 

MOV 

$SLTA,RO 

GET  SLT  ADDRESS 

743  001754 

126760 

OOOOOOG 

000012 

CMPB 

.PNUM8,L.CTL(R0), 

IS  THIS  THE  CORRECT  CONTROLLER  NUMBER 

744  001762 

001405 

BEQ 

7$ 

CHECK  FOR  VALIDITY 

745  001764 

005067 

OOOOOOG 

5$: 

CLR 

SVNERR 

ELSE  NO  SYNTAX  ERROR 

746  001770 

062716 

000002 

ADD 

#2,(SP) 

AND  REJECT  TRANSITION 

747  001774 

000416 

BR 

20$ 

748  001776 

7$: 

RETURN 

749  002000 

116767 

OOOOOOG 

000026' 

PVSTA: 

MOVB 

.PNUMB.DLMSTA 

SAVE  STATION  NUMBER 

750  002006 

126767 

OOOOOOG 

OOOOOOG 

CMPB 

.PNUMB,$TRIB 

CORRECT  STATION  NUMBER? 

751  002014 

001363 

BNE 

5$ 

BR  IF  NO 

752  002016 

005767 

OOOOOOG 

10$: 

TST 

. PNUMH 

LEGAL  VALUE? 

753  002022 

001336 

BNE 

INVCIR 

BR  IF  NO  -  ERROR 

754  00202'. 

105767 

000001G 

TSTB 

.PNUMB+1 

LEGAL  VALUE? 

MAron     v/At.     n7k     C? 
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CFGPVC 

CREATED  BY     MACRO     ON  29- 

■JUN-85  AT   00 

•04           PAGE 

7 

MACRO   CROSS 

REFERENCE 

CREF 

04.00 

MACRO  NAME 

REFERENCES 

BIAS 

#5-92 

21-807 

CALL 

9-193 

12-353 

12-365 

12-381 

13-413 

13-448 

13-455 

14-482 

14-486 

14-489 

17-603 

17-611 

18-648 

20-712 

20-717 

CTRDFt 

#5-61 

5-66 

DBGTPS 

#10-208 
#10-272 

#10-236 

#10-240 

#10-244 

#10-248 

DTEDFS 

#5-61 

5-65 

EMSGIR 

#5-59 
13-465 

9-202 
20-732 

11-319 

n-335 

11-347 

ISTAr$ 

#5-60 

10-208 

MAP 

#5-86 

21-804 

MTRANl 

#10-208 

NTLERS 

#5-60 

8-161 

8-162 

8-163 

8-164 

PHBDFS 

#5-60 

5-68 

PLBUFS 

#5-61 

5-72 

PVCDFS 

#5-59 

5-69 

RESMAP 

#5-80 

13-456 

15-545 

16-583 

18-675 

RESRG 

#5-59 

RETC 

#5-59 

13-423 

13-441 

13-450 

15-544 

RETURN 

9-197 

11-315 

11-331 

11-343 

12-356 

14-505 

15-546 

16-584 

17-628 

18-676 

21-821 

SAVMAP 

#5-76 

13-418 

15-526 

16-565 

18-646 

SAVRG 

#5-59 

SLTDFS 

#5-61 

5-70 

SOB 

21-797 

21-813 

STATES 

#5-60 

10-213 

#10-216 

#10-219 

#10-222 

#10-242 

#10-246 

#10-250 

#10-254 

#10-258 

#10-282 

#10-285 

#10-288 

#10-291 

SWSTKS 

13-417 

15-525 

20-717 

TRANS 

#5-60 

#10-214 

#10-217 

#10-220 

#10-223 

#10-239 

#10-240 

#10-243 

#10-244 

#10-247 

#10-259 

#10-260 

#10-263 

#10-264 

#10-267 

#10-283 

#10-286 

#10-289 

XCBDFS 

#5-59 

5-71 

XPDDBS 

#5-61 

5-67 

13-417 
14-490 
20-718 

#10-252 


12-360 


8-165 


21-820 

20-720 
12-368 
19-696 

21-802 


#10-225 
#10-262 


#10-226 
#10-248 
#10-268 


13-421 
14-498 


#10-256 
12-372 

8-166 


12-383 
20-725 


#10-228 
#10-266 


#10-229 
#10-251 
#10-271 


13-427 
15-525 


#10-260 
12-387 

8-167 


12-397 
20-728 


#10-231 
#10-270 


#10-232 
#10-252 
#10-272 


13-439 
15-530 


#10-264 
12-401 

8-168 


13-457 
20-748 


#10-234 
#10-276 


#10-235 
#10-255 
#10-277 


13-445 
16-569 


#10-268 
13-464 


CFGSl 

MACRC 

MACRC 

CALL 
DBGTF 

EMSG1 
ISTA' 
MTRAr 
REJ$ 
RETUI 
SLTDI 
STATI 


TRAN' 


13-460 
20-756 


#10-238 
#10-279 


#10-236 
#10-256 
#10-280 


**c  lie**  Tri**rFr,t:i  t 
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MACRO   CROSS   REFERENCE 


MACRO  NAME 

CALL 
DBGTPS 

EMSGtR 

ISTATS 

MTRANS 

REJ$ 

RETURN 

SLTDFS 

STATES 


TRANS 


REFERENCES 

6-92 
#7-107 
#8-174 
#5-56 
#5-56 
#7-107 
#5-66 

6-96 
#5-56 
#5-56 
#7-130 
#7-157 
#5-56 
#7-131 
#7-U7 
#8-170 


#7-136 

#8-175 

6-101 

7-107 

9-1 9A 

9-195 

5-58 

7-112 

#7-132 

#7-159 

#7-113 

#7-133 

#7-K8 

#8-171 


#7-139 

#8-178 

9-211 


9-202 
9-203 

#7-114 
#7-134 
8-168 
#7-115 
#7-135 
#7-150 
#8-173 


F  11 
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CREF       04.00 


#7-142 

#8-184 

9-223 


9-241 
9-210 

#7-116 
#7-137 
#8-172 
#7-117 
#7-136 
#7-151 
#8-174 


#7-145 


9-221 

#7-118 
#7-140 
#8-176 
#7-119 
#7-138 
#7-153 
#8-175 


#7-148 


9-231 

#7-120 
#7-143 
#8-182 
#7-121 
#7-139 
#7-154 
#8-177 


#7-151 


9-239 

#7-122 
#7-146 
#8-186 
#7-123 
#7-141 
#7-156 
#8-178 


#7-154 


9-242 

#7-124 
#7-149 

#7-125 
#7-142 
#7-158 
#8-183 


B-170 


#7-126 
#7-152 

#7-127 
#7-144 
#7-160 
#8-184 


#8-171 


#7-128 
#7-155 

#7-129 
#7-145 
#8-169 
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SYMBOL    CROSS   REFERENCE 
SYMBOL     VALUE 


REFERENCES 


CERR 

=  ......   GX 

7-75 

:fgbf 

=  »»♦..*  GX 

8-100 

CFGSZ 

;  »..♦♦*  GX 

8-99 

:flin 

=  .*....  GX 

7-75 

■MT8 

=  «♦»*.«  GX 

7-76 

■MTSB 

:  *♦.«..  GX 

7-75 

■M.8 

=  000000 

#7-76 

■M.8B 

=  000000 

#7-75 

LF.ACT 

=  100000 

#5-63 

LF.BRO 

=  000400 

#5-63 

.F.BWT 

=  000007 

#5-63 

.F.ENA 

=  002000 

#5-63 

LF.LPB 

=  001000 

#5-63 

-F.MCC 

=  000100 

#5-63 

LF.MFL 

=  004000 

#5-63 

LF.MTP 

=  000020 

#5-63 

LF.PAC 

=  000200 

#5-63 

LF.RDY 

=  040000 

#5-63 

LF.REA 

=  010000 

#5-63 

LF.SER 

=  000040 

#5-63 

LF.TIM 

=  000010 

#5-63 

LF.UNL 

=  020000 

#5-63 

LF.X2P 

=  000000 

#5-63 

LN.CLO 

=  000000 

#5-63 

LN.DUM 

=  000005 

#5-63 

LN.LOA 

=  000004 

#5-63 

LN.LOO 

=  000003 

#;-63 

LN.OAU 

=  000003 

#5-63 

LN.OFF 

=  000001 

#5-63 

LN.ON 

=  000000 

#5-63 

LN.OOP 

=  000004 

#5-63 

LN.OPE 

=  000001 

#5-63 

LN.REF 

=  000002 

#5-63 

LN.SER 

=  000002 

#5-63 

LN.STA 

=  000017 

#5-63 

LN.SUB 

=  000360 

#5-63 

LN.TRI 

=  000006 

#5-63 

L.COST 

000015 

#5-63 

L.CTL 

000012 

#5-63 

L.CVA 

177776 

#5-63 

L.DDM 

000002 

#5-63 

L.DDS 

000004 

#5-63 

L.DLC 

000003 

#5-63 

L.DLM 

000006 

#5-63 

L.DLS 

000010 

#5-63 

L.FLG 

000000 

#5-63 

L.KRBA 

000016 

#5-63 

L.LEN 

=  000022 

#5-63 

L.MPF 

000022 

#5-63 

L.,NMST 

000020 

#5-63 

L.NSTA 

000014 

#5-63 

L.OWNR 

000021 

#5-63 

7-76 

7-76 
7-77 


10-201 


1-11 

1-11 

1-li 

111-18 


f  12 
PAGE   1 

CREF        04.00 

7-78 

7-78 

7-79 

ltl-19 


CFG' 
SVC 


7-79 
7-79 


10-201 

10-210 
10-203 


rDC  A  TCr\    DV 


iiM-H";  ti  nn-n^ 


G  12 


F  13 

CFGSVC  -  CONfIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  00:06 
SVCSDF  ACTION  ROUTINES 


Page  10 


255 
256 
257 
258 
259 
260 

261  000052 

262  000060 

263  000062 

264  000066 

265  000070 

266  000074 

267  000100 

268  000102 

269  000106 

270  000112 
271 

272 
273 
274 

275  0001 U 

276  000120 

277  000122 

278  000126 

279  000130 

280  000136 

281  000142 

282  000150 

283  000152 

284  000162 
285 

286 
287 
288 

289  000164 

290  000170 

291  000172 

292  000176 

293  000200 

294  000206 

295  000214 

296  000216 

297  000226 
298 

299 
300 
301 
302 


000230 


.SBTTL  SVCSDF  ACTION  ROUTINES 
.ENA8L  LSa 


022767 
001063 
016700 
005001 

022701 
001053 
005067 
105067 


005767 
001043 
105767 
001040 
116767 
01670C 
126760 
001404 


005767 
001017 
105767 
00,014 
116767 
126767 
001404 


;  SVNAM 

-  PROCE 

SS  NAME 

000003 

OOOOOOG 

SVNAM: 

CMP 

#3..PSTCN 

lols 

BNE 

OOOOOOG 

MOV 
CLR 
CALL 

.PSTPT.RO 

Rl 

$CAT5 

015355 

CMP 
BNE 

**RDLM,R1 
101$ 

000006' 

CLR 

PKTSVC 

000022' 

CLR8 
RETURN 

UNDSVC 

■  SVCTL 

-  CONTROLLER  NUMBER 

OOOOOOG 

SVCTL: 

TST 
BNE 

.PNUMH 
101$ 

000001G 

TST8 
BNE 

.PNUMB+1 
101$ 

OOOOOOG 

000021' 

MOVB 

.PNUMB.CTLSVC 

OOOOOOG 

MOV 

SSLTA,RO 

OOOOOOG 

000012 

CMPB 

BEQ 

REJS 

.PNUMB,L.CTL(RO) 
10$ 

10$: 


RETURN 


OOOOOOG 

OOOOOIG 

OOOOOOG  000014' 
OOOOOOG  OOOOOOG 


SV5TA  -  STATION  NUMBER 
SVSTA: 


20$: 


ERROR 
101$: 


TST 

. PNUMH 

BNE 

101S 

TSTB 

.PNUMBtl 

BNE 

101$ 

MOVB 

.PNUMB,STASVC 

CMPB 

$TR1B,.PNUMB 

BEQ 

20$ 

REJ$ 

RETURN 

EMSG$R 

21 

.DSABL 

LSB 

VALID  NAME? 
BR  IF  NO 
POINT  TO  PROCF 


;S  NAME 


CONVERT  TO  RAD50 

IS  IT  DLM? 

BR  IF  NO  -  ERROR 

INITIALIZE  OPTIONAL  PARAMETERS 


VALID  LINE-ID? 
BR  IF  NO 

br'if  invalid  line-ID 
save  controller  number 
get  slt  address 
correct  controller  number? 

BR  IF  YES 

ELSE  REJECT  TRANSITION 


VALID  LINE-ID? 
BR  IF  NO 

br'if  invalid  id 
save  station  number 
correct  station  number? 

BR  IF  YES 

ELSE  REJECT  TRANSITION 


ILLEGAL  LINE-ID 


'Tin  MAron  Mf^^    A^k  Cat-. 


G  13 


L 


CFGSVC     CREATED  BY  MACRO  ON  P9-JUN-85  AT  00:07 
SYMBOL  CROSS  REFERENCE 


F  U 

PAGE  2 

ChEF   04.00 


CFC 
UNI 


SYMBOL  VALUE 


LF.UNL 

LF.X2P 

LLCTA 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TR! 

LTIMR 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MAXWND 

NEXT 

NODTE 

N$TLC 

N$$VCT 

OWNSVC 

PCKBCD 

PDVID 

PDVTA 

PKTSVC 

PSIPT 

PXSDLM 

PXSSVC 

RCLSVC 

RTSPC 

RTYSVC 
R$$E1S 


GX 


020000 
000000 

****** 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000004  R 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

:  ooooi; 

000000  R 
000420  R 
000100 

****** 

000020  R 
001440  R 

:  ******    GX 
:  ******    GX 

000006  R 

:  ******   GX 

:  000200 

:  000100 

000023  R 

:  ******    GX 

000012  R 


REFERENCES 

#5-65 
#5-65 

15-542 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#6-117 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#6-108 
#6-115 
#12-372 

15-561 

13-439 
#6-123 

12-411 

14-513 

15-554 
#6-118 

13-431 

15-572 

15-572 
#6-126 

7-138 

7-147 
#6-120 

16-612 


»13-430 
10-281 


15-581 


11-322 
»12-388 

15-562 

14-515 

13-468 

#16-601 


•10-268 


M1-350 
7-139 

•12-362 


12-395 

15-563 

♦14-516 


•11-310 


13-457 
7-140 

13-459 


17-640         *17-641 


15-553 


13-455 


7-141  7-K2 


7-143 


7-144 


7-145 


7-146 


_DC    AT    nn . n? 


G  K 


r 


F  15 

CfGUNT  -  CONFIG  fILE  SCAN  ACTIO  MACRO  V05.05b  Monday  15-Jul-85  18:56  Page  10 
UNTSDF  STATE  TABLE 


201 
202 
203 

20A  000112 

205  000112 

206  000112 
207 

208  000112 


CHECK  FOR  END  OF  SOURCE  LINE 


STATES 
TRANS 
TRANS 

STATES 


END 
<';>,SEX1T 
SEOS.SFXIT 


1 


G  15 


«f  1LE«>ID"CFGX2P 


F  16 


CCCCCCCC   F 

FFFFFFFFF 

GGGGGGGG 

XX      XX 

222222 

PPPPPPPP 

CCCCCCCC   F 

FFFFFi^FFF 

GGGGGGGG 

XX      XX 

222222 

PPPPPPPP 

GG 

XX      XX 

22     22 

PP     PP 

GG 

XX      XX 

22     22 

PP     PP 

GG 

XX  XX 

22 

PP     PP 

Gfi 

XX  XX 

22 

PP     PP 

FFFFFFF 

GG 

XX 

^ 

PPPPPPPP 

FFFFFFF 

GG 

XX 

22 

PPPPPPPP 

GG 

GGGGGG 

XX   XX 

22 

PP 

GG 

GGGGGG 

XX  XX 

22 

PP 

GG 

GG 

XX      XX 

22 

PP 

GG 

GG 

XX      XX 

22 

PP 

CCCCCCCC   F 

GGGGGG 

XX      XX 

2222222222 

PP 

CCCCCCCC   F 

GGGGGG 

XX      XX 

2222222222 

PP 

LL 

ssssssss 

TTTTT 

TiTTT 

LL 

ssssssss 

TTTTT 

TTTTT 

-L 

ss 

-L 

ss 

-L 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLlLL 

ssssssss 

G  16 


EVL       CREATED  BY  MACRO  ON  28-JUN-85  AT  22:58 
MACRO  CROSS  REFERENCE 


G  1 

P\GE  8 

CREF   04.00 


MACRO  NAME 

REFERENCES 

CALL 

9-146 
13-433 

9-179 
13-448 

9-183 

9-211 

9-239 

10-295 

CCBDFS 

#5-51 

5-63 

)LMDF$ 

#5-54 

5-59 

ENABLS 

#5-51 

9-223 

11-368 

ENDFVE 

#6-71 

9-276 

EVENT 

#6-67 

9-275 

EVLDFS 

#5-51 

5-61 

INHIB$ 

#5-51 

9-199 

11-338 

SAP 

#5-51 

9-174 

13-462 

3DVDF$ 

#5-51 

5-62 

=HBDF$ 

#5-54 

5-56 

=VCDF$ 

#5-54 

5-58 

RESMAP 

#5-52 

13-473 

"!tSRG 

#5-51 

9-243 

9-264 

11-376 

12-405 

14-504 

RETURN 

9-269 

10-315 

11-379 

12-406 

13-474 

14-505 

SAVMAP 

#5-52 

13-421 

SAVRG 

#5-51 

9-149 

9-261 

11-373 

12-395 

14-491 

SLTDFS 

#5-51 

5-60 

SOB 

9-197 

9-263 

XCBDFS 

#5-54 

5-57 

10-313 


11-353 


11-375 


13-427 


H  1 


ALCMEM 

CREATED  BY 

MACRO     ON  29 

-JUN-85  AT  00:01 

PA(. 

SYMBOL 

CROSS  REFERENCE 

CR! 

SYMBOL 

VALUE 

REFERENCES 

BUFUMP 

; 

172354 

#5-117 

CMODE 

r 

KOOOO 

#5-117 

1$$AS 

- 

****** 

5-117 

KISARO 

r 

1723A0 

#5-117 

K1SAR6 

= 

17235A 

#5-117 

KSAR6 

- 

****** 

GX 

6-160 

7-258 

KS6 

000000 

R 

#5-119 
6-206 
7-365 

•6-160 
6-208 

6-161 
6-211 

( 

MPAR 

= 

172100 

#5-117 

MPCSR 

= 

177746 

#5-117 

M$$MGE 

- 

000000 

5-117 

PIRa 

= 

177772 

#5-117 

PMODE 

- 

030000 

#5-117 

PRO 

- 

000000 

#5-117 

PR1 

= 

000040 

#5-117 

PR2 

= 

000100 

#5-117 

PR3 

- 

000140 

#5-117 

PR4 

- 

000200 

#5-117 

PR  5 

= 

000240 

#5-117 

PR6 

r 

000300 

#5-117 

PR7 

= 

000340 

#5-117 

PS 

~ 

177776 

#5-117 

R$$MPL 

r 

****** 

5-117 

5-117 

5-117 

R$$11D 

= 

****** 

5-117 

SWR 

= 

177570 

#5-117 

IPS 

3 

177564 

#5-117 

UBMPR 

= 

170200 

#5-117 

UISARO 

r 

177640 

#5-117 

U1SAR1 

= 

177642 

#5-117 

SAMEM 

000002 

RG 

#6-158 

SDMEM 

000220 

R6 

#7-257 

.BASES 

140000 

#5-117 
•6-209 

6-171 
•6-210 

6-180 
•6-212 

* 

G    2 


04.00 


CFGC 


6-166 
6-215 


6-179 
6-217 


6-181 
6-225 


6-187 
•7-258 


6-19? 
7-259 


6-194 
7-262 


•6-182 
6-216 


•6-183 
•6-218 


6-188 
7-264 


6-194 


6-198 


6-207 


ALCMEM 
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CFG( 
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CFGC 


1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
lA 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  CFGCNT  -  SCAN  CONFIGURATION  FILE  FOR  DYNAMIC  INFORMATION 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  "CAN  FOR  "SET  LINE"  AND  "SET  PROCESS" 

DISTRIBUTED  SYSTEMS  SOr [WARE  ENGINEERING 

IDENT  HISTORY: 

1.00  06-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-PLus  V3.0 
OECnet-Micro/RSX  Vl.O 


OF   ITS 


H  3 
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CFGI 


G  4 

CFGODM  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:02  Page  4 


CFGt 
LOC 


1 
2 
3 

5 

6 
7 
8 
9 
10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
25 
21 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
41 
A2 

';3 

A4 
i5 
A6 
47 
48 
49 
50 
51 


.TITLE  CFGDDM  -  SCAN  CONFIGURATION  FILE  FOR  DYNAMIC  INFORMATION 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  Of  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  SCAN  FOR  "SET  LINE"  AND  "SET  PROCESS" 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  06-AUG-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

OECNET-lIM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-PLus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF   ITS 


H  4 


CFGDDM  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:02  Page  5 


CFGI 


CFGDTE  - 

INITIAL  CONFI 

LOCAL  SV 

MBOL 

DEFIMTIO 

78 

79 

80 

81 

82 

83 

OOOOAO 

8^ 

000040 

85 

001000 

86 

000020 

87 

88 

89 

90 

91 

000002 

92 

OOOOOA 

93 

000006 

94 

000010 

95 

000012 

96 

OOOOK 

TIAL  CONFIGFILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:02  Page  6 

.SBTTL  LOCAL  SYMBOL  DEFINITIONS 


CFC 
STF 


LOCAL  SYMBOL  DEFINITIONS 


SPACE 
HSHMN 
HSHMX 
NUMDTE 


=  AO 
=  32. 
=  512. 
=  16. 


ASCII  SPACE 

MINIMUM  VALUE  FOR  HASH  TABLE 
MAXIMUM  VALUE  FOR  HASH  TABLE 
MAXIMUM  DTES  ALLOWED 


SIZE 
SIZE 


SAVED  REGISTER  OFFSETS  ON  STACK  FOR  SWSTKS 


R$RO 
R$R1 
R$R2 
R$R3 
R$R4 
R$R5 


2 

4 

6 

10 

12 

U 


SAVED  RO 

SAVED  R1 

SAVED  R2 

SAVED  R3 

SAVED  RA 

SAVED  R5 


H  5 

CFGDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:02  Page  7 


CFI 


G  6 

CFGDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:02 
STRNXT  -  STORE  NEXT  DIGIT 


Page  19 


CFG 
FEA 


^47 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
4^8 
459 
460 
461 

462  000610 

463  000616 

464  000622 

465  000630 

466  000632 

467  000636 

468  000642 

469  000646 

470  000652 

471  000656 


116767 
012701 
126727 
001404 
012700 

110177 
005267 
105267 


OOOOOOG  000036' 
000017 
OOOOOOG  000052 

000036' 

000040' 
000040' 
000035' 


.SBTTL  STRNXT  -  STORE  NEXT  DIGIT 


STRNXT  -  STORE  NEXT  DIGIT 

INPUTS: 

.PCHAR  -  MATCHED  CHARACTER  FROM  TPARS  TRANSITION 
NEXT  -  ADDRESS  OF  NEXT  BYTE  AVAILABLE  FOR  STORAGE 

OUTPUTS: 

NEXT  -  ADDRESS  OF  NEXT  AVAILABLE  BYTE 
COUNT  -  UPDATED 
R0,R1  DESTROYED 


STRNXT: 


10$: 


M0V8 

.PCHAR, CVTBUF 

MOV 

*17,R1 

CMP6 

. PCHAR, #'♦ 

BEQ 

10$ 

MOV 

#CVTBUF,RO 

CALL 

$CDT8 

MOVB 

R1,SNEXT 

INC 

NEXT 

INC6 

COUNT 

RETURN 


MOVE  DIGIT  TO  CONVERTSION  BUFFER 

ASSUME  CHAR  IS  AN  '*' 

IS  CHAR  AN  •*'  ? 

BR  IF  YES 

POINT  TO  CONVERSION  BUFFER 

CONVERT  TO  BINARY 

STORE  BINARY  DIGIT 

POINT  TO  NEXT  AVAILABLE  BYTE 

INCREMENT  DIGIT  COUNT 


CFGDTE 


H  6 

INITIAL  CONFIG  FILE  SC  MACRO  V05.05b  Saturday  29-Jun-85  00:02  Page  20 


fFC 


CFGFEA  -  CONFIG  FILE 
FEASDF  STATE  TABLE 

102 

104 

105 

106  000052 

107 

108 

109 

110 

111  000052 

112  000052 
113 

1U  000052 
115  0:0052 
116 

117  000052 

118  000052 
119 

120  000052 

121  000052 
122 

123  000052 
12A  000052 
125 

126  000052 

127  000052 
128 

129  000052 

130  000052 
131 

132  000052 

133  000052 
134 

135  000052 

136  000052 
137 
138  000052 


G  7 

SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  00:03  Page  7 

.SBTTL  FEASDF  STATE  TABLE 
TPARS  STATE  TABLES 

ISTATS  FEAST, FEAKW 


FEATURES  DEFINITION  (FEASDF) 

STATES  FEADF 
TRANS  5!FEA$DF!!,,,1,SYNERR 

STATES 
TRANS  SALPHA,, F.CHI 

STATES 
TRANS  SALPHA,, F.CH2 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUM8R,,F.FEA 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUMBR,,F.MOD 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUMBR.SEXIT.F.SET 

STATES 


CFC 
TP; 


fFGFFA 


H  7 
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CFGPVC   -    INITIAL   CONFIG   FILE 
TPARS    STATE    TABLES 

205 

206 

207 

208  000056 

209 

210 

211 

212 

213  000056 

2U  000056 

215 

216  000056 

217  000056 
218 

219  000056 

220  000056 
221 

222  000056 

223  000C56 
22A 

225  000056 

226  000056 
227 

228  000056 

229  000056 
230 

231  000056 

232  000056 
233 

234  000056 

235  000056 

236  000056 
237 

238  000056 

239  000056 
2A0  000056 
241 

242  000056 

243  000056 

244  000056 
245 

246  000056 

247  000056 

248  000056 
249 

250  000056 
251 


0000'=6 
252  000056 
253 

254  000056 

255  000056 

256  000056 
257 

258  000056 

259  000056 

260  000056 


G  8 

SC  MACRO  V05.03b  Saturday  29-Jun-85  00:04  Page  10 

.SBTTL  TPARS  STATE  TABLES 
TPARS  STATE  T.'^BLES 

ISTATS  rVCST.PCVKW 


CFGP 
PVDL 


;  PVCSDF  STATE 

TABLES 

STATES 
TRANS 

PVCDF 
XPVCSDF!! 

STATES 
TRANS 

SRAD50,,PVNAM 

CHANNEL 

IDENT 

STATES 
TRANS 

!CHKDLM,CHNLNO 

STATES 
TRANS 

CHNLNO 
SNUMBR,,PVLCN,1,SyNERR 

LOGICAL 

CHANN 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SNUMBR,,PVCT 

COUNTER 

TIMER 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 
TRANS 

"OFF",PSZ 
"0N",PSZ 

;  STATE 

STATES  PSZ 

TRANS  :end,sexit,pvend 

TRANS   <',> 

STATES 
TRANS   SNUMBR,WND5Z,PVPSZ     ;  PACKET  SIZE 
TRANS   SLANDA 

STATES  WNDSZ 
TRANS   IEND,SEXIT,PVEND 
TRANS   <',> 

STATES 
TRANS   SNUMBR, OWNER, PVUSZ     ;  WINDOW  SIZE 
TRANS   SLAMDA 

STATES  OWNER 
TRANS   lEND.SEXIT.PVEND 
TRANS   <',> 

STATES 
TRANS   $RAD50,PFLAGS,PV0WN    ;  PROCESS  OWNER 
TRANS   SLAMDA 


H     8 

rtnpvr  -   tNiTiAi    rnNFiG  FliF  SC  MACRO  v05.03b  Saturday  29-Jun-85  00:04     Paqe  10- 


CFGPVC  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:OA  Page  ?0-1 


PVDLM  -  CHECK  FOR  DLM  PVC 

755  002030  001333 

756  002032 
757 


20$ : 


BNE 

INVCIR 

;  BR  IF  NO 

RETURN 

.OSABL 

LS8 

H     9 

rcr.D\/r   -   iwrriii    rnwfir,  FiiF   ';r  MArRn  unS-n3h   Ssturrlav  ?9-Jun-85   00:04 


Pane  21 


'•F!LE««iD' 

•CFGSLT 

cccccccc 

FFFf  FFPi^FF 

GGGGGGGG 

SSSSSSSS 

cccccccc 

FFFFFFFFFF 

GGGGGGGG 

SSSSSSSS 

cc 

GG 

SS 

cc 

GG 

3S 

cc 

GG 

SS 

cc 

GG 

SS 

cc 

FFFFFFFF 

GG 

SSSSSS 

cc 

FFFFFFFF 

GG 

SSSSSS 

cc 

GG  GGGGGG 

SS 

cc 

GG  GGGGGG 

SS 

cc 

GG      GG 

SS 

cc 

GG      GG 

SS 

cccccccc 

GGGGGG 

SSSSSSSS 

cccccccc 

GGGGGG 

SSSSSSSS 

LL 

SSSSSSSS 

FTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

ssssss 

LL 

ssssss 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

G  10 


LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLLLLLLLL 

LLLLLLLLLL 


TTTT7 
TTTT7 


^TTTT 
fTTTT 


rnnir  r /-i  ID  A  T  I  nM    c  T I 


i/n";  aih   <:  =  !■:, rr^^^,   7Q-  i, 


H  K 

-RS  nn:f 


G  11 


••FILE««10««CFGSTA 


CCCCCCCC   f 

FFFFFFFFF 

GGGGGGGG 

SSSSSSSS 

TTTTT 

TTTTT 

AAAAAA 

CCCCCCCC   F 

FFFFFFFFF 

GGGGGGGG 

SSSSS5SS 

TTTT7 

TTTTT 

AAAAAA 

GG 

SS 

AA      AA 

GG 

SS 

AA      AA 

GG 

SS 

AA      AA 

GG 

SS 

AA     AA 

FFFFFFF 

GG 

SSSSSS 

AA      AA 

FFFFFFF 

GG 

SSSSSS 

AA      AA 

GG 

GGGGGG 

SS 

AAAAAAAAAA 

GG 

GGGGGG 

SS 

AAAAAAAAAA 

GG 

GG 

SS 

AA      AA 

GG 

GG 

SS 

AA      AA 

CCCCCCCC   F 

GGGGGG 

SSSSSSSS 

AA      AA 

CCCCCCCC   F 

GGGGGG 

SSSSSSSS 

AA      AA 

SSSSSSSS 

TITTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

CFGc 

SYME 

SYME 

L.UN 
MAXC 
RTSF 
SCNl 
SF./ 
SF.E 
SF.L 
SF.^ 
SF.F 
SF.F 

SF.; 

SF.! 
SF.l 
STAC 
STA* 
STA! 
STJ 
ST.( 
ST.J 
ST.f 
SYNf 
S$$f 

S.C( 
S.Fl 
S.LI 
S.NI 
S.OI 
$ALI 
$AN' 
$BL; 
$DIi 
SDNI 
$E0! 
$ERI 
$ERI 

$m 

$EKI 
$ERi 
$ER 
$ER 
SEX 
$FA 
$GP 
SLA 
SNU 
$QS 
$RA 
SRO 
SSL 
SST 
SSJ 


i   C      crAM     ATTTP     MArDfl     \/nc;     A'ZK     Cafi 


H  11 

5Q.  i,,n-ss  nn-ni<, 


CFGiTA  CREATED  BY     MACRO     ON  29-JUN-85  AT   00:06 

SYMBOL   CROSS  REFERENCE 


G  12 

PAGE  2 

CREF        OA.OO 


CFG 
SVC 


SYMBOL      VALUE 


L.UNT 

MAXCST 

RTSPC 

SCNT 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

STADF 

STAKU 

STAST 

ST. APR 

ST.CST 

ST. HTM 

ST.NUM 

SYNERR 

S$$BAS 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

SALPHA 

$ANY 

SBLANK 

SDIGIT 

SDNUMB 

$EOS 

SERRYA 

SERRYB 

SERRYP 

SERRYQ 

SERRIA 

SERRIB 

SERRIT 

SEXIT 

$FA1L 

$GPRM 

SLAMDA 

SNUMBR 

$OSl"A 

$RAD50 

SRONLY 

$SLTA 

SSTRNG 

ISUBXP 


000013 
=  000031 
=  ****** 
=  ****** 


GX 
GX 


000200 

000100 

OOOOOA 

OOOOAO 

000020 

000010 

000001 

000002 

OOOOAO 

000000  R 

000000  RG 

000000  RG 

000446  R 

000356 

000500 

0002^0 

****** 


GX 


****** 

000001 
000000 
000004 
000002 
000003 
000022 
000020 
000006 
000024 
000014 
000012 
000130 
000162 
****** 
000070  R 


R 
R 
GX 


R 
R 
GX 


000000 
000030 

*■♦**♦* 

000000 

*♦♦♦*♦ 

000000 
000002 
000216  RG 
000016 


000004 
000010 


GX 


REFERENCES 

#5-65 
#6-70 

7-75 

10-184 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 

8-96 

8-98 
#9-114 
#10-219 
#10-198 
#11-233 
#10-180 
*8-101 

7-75 

7-79 
#5-63 
#5-63 
#5-63 
#5-65 
#5-63 
#9-114 
#9-114 
#9-114 
#9-114 
#9-114 
#9-114 
#7-78 
#7-79 

10-214 
D7-77 

in-ib 

8-110 
#9-114 
#9-114 

9-114 
#9-114 
#9-114 
#8-96 
#9-114 

9-114 

10-200 
#9-114 
#9-114 


10-198 
7-76 
»10-189 


7-77 
10-190 


7-78 
10-205 


7-79 
10-222 


11-235 


#9-114 


*8-104 
7-75 

.10-211 


7-76 


7-76 


7-77 


7-77 


7-76 


7-7S 


7-79 


11-243 


10-227 
10-192 
10-195 


9-114 


9-114 


_QC  AT  f^r^.n^ 


H  12 


G  13 

fFGSVC   -  CONFIG  FILE   SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  00:06 
SVCtDF    ACTION  ROUTINES 


Page  11 


30A 
305 
306 
307 

308  000256 

309  000242 

310  0002A4 

311  000252 
312 

315 

3U 

515  000254 

316 

517 

518 

319 

520  000262 

521  000266 
322  000270 

523  000276 

524  000500 

525  000306 
526 

527 

328 

529  000510 

530 

551 

552 

555 

534  000316 

535  000322 
356  000524 
337  000352 
538 

559 

540 

341  000554 

342 

343 

544 

545 

346  000542 

347  000546 

548  000350 

549  000354 

550  000556 
351  000564 
552 

555 
354 
555  000366 


005767  OOOOOOG 

001004 

016767  OOOOOOG  000006' 


005767 
001007 
105767 
001004 
116767 


PACKET  SIZE 

SVPKT:  TST 
BNE 
MOV 
RETURN 


.PNUMH 

101$ 

.PNUMS.PKTSVC 


005767  OOOOOOG 

001010 

022767  000007  OOOOOOG 

103404 

116767  OOOOOOG  000022' 


005767  OOOOOOG 

001004 

016767  OOOOOOG  000010' 


OOOOOOG 
000001 G 
OOOOOOG  000023' 


;  ERROR 

101$: 

EMSG$R 

3D 

•  WINDOW  SIZE 

SVUND: 

TST 

BNE 

CMP 

BLO 

MOVB 

RETURN 

.PNUMH 

101$ 

#MAXWND , . PNUM8 

101$ 

.PNUMB,WNDSVC 

;  ERROR 

101$: 

EMSG$R 

3E 

;  FLAGS 

WORD 

SVFLAG: 

TST 
BNE 
MOV 
RETURN 

.PNUMH 

101$ 

.PNUMB.FLGSVC 

;  ERROR 

101$: 

EMSGSR 

5F 

;•  RECALL  TIMER 

SVRCLL: 

TST 

BNE 

TST8 

BNE 

MOVB 

RETURN 

.PNUMH 

101$ 

.PNUMB+1 

101$ 

.PNUMB.RCLSVC 

:•  ERROR 

101$: 

EMSGSR 

5G 

LEGAL  PACKET  SIZE? 

BR  IF  NO 

SAVE  PACKET  SIZE 


ILLEGAL  PACKET  SIZE 


LEGAL  WINDOW  SIZE? 
BR  IF  NO 

BR'IF  illegal  WINDOW  SIZE 
SAVE  WINDOW  SIZE 


ILLEGAL  WINDOW  SIZE 


legal  flags  WORD? 

BR  IF  NO 

SAVE  flags  word 


ILLEGAL  FLAGS  WORD 


LEGAL  RECALL  TIMER? 
BR  IF  NO 

BR"IF  ILLEGAL  RECALL  TIMER 
SAVE  RECALL  TIMER 


ILLEGAL  RECALL  TIMER 


rnMCTr    cue    crAM    ArTin    MArDfl    \lCiK    n^h    ^afiirH;iv    ?9- 


H  13 

-RS   nn-.Cif,      Psnp    12 


L 


CFGSVC  CREATED  BY     MACRO     CiK  29-JUM-85   AT   00:07 

SYMBOL    CROSS   REFERENCE 


G  U 

PAGE   3 

CREF       04.00 


CF( 
UN' 


SYMBOL      VALUE 


RSSIID 

SETTLC 

SFiINC 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SLTA 

SLTMA 

STASVC 

STRNXT 

SVCDF 

SVCKW 

SVCST 

SVCTL 

SVDTED 

SVDTEE 

SVDTES 

SVFLAG 

SVNAM 

SVOWNR 

SVPKT 

5VRCLL 

SVRTRY 

SVSTA 

SVWND 


=  ****** 
001202 
=  000002 
=  000200 
=  000100 
=  000004 
=  000040 
=  000020 
=  000010 
=  000001 
=  000002 
=  000040 
000016 


GX 


000014  R 
001520  R 
000000  R 
000000  RG 
000000  RG 
000114  R 
000476  R 
000522  R 
000440  RG 
000316  R 
000052 
000550 
000236 
000342 


000374  R 


000164 
000262 


REFERENCES 

16-612 

13-482 

12-372 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#6-122 

15-537 
#6-121 

12-389 

8-165 

8-167 
#9-185 
#10-275 
#12-395 
#12-407 
#12-382 
#11-334 
#10-261 
#13-417 
#11-308 
#11-346 
#12-360 
#10-289 
#11-320 


#15-537 


*1 3-426 
15-541 

MO-293 
12-397 

#9-185 


15-538 

13-427 
#17-637 


13-454 


15-545 


SYNERR 

:     *»»«»»        GX 

*8-170 

SSADSZ 

000007 

*13-460 

SSCTL 

000002 

♦13-453 

SSDTE 

000020 

13-463 

SSFLG 

000010 

♦13-456 

5$i  EN 

000032 

13-436 

SSOWNR 

000030 

•13-468 

SSPKSZ 

000004 

♦13-455 

SSRCL 

000013 

♦13-457 

S$STA 

000003 

♦13-454 

SSTMR 

000016 

♦13-459 

SSWND 

000006 

♦13-458 

S$$BAS 

r     ****** 

7-138 
7-142 
7-147 

S.COST 

000001 

#5-65 

S.FLG 

000000 

#5-65 

S.LEN 

000004 

#5-65 

S.NMST 

000002 

#5-65 

S.OWNR 

000003 

#5-65 

rSFLAG 

000044 

#5-62 

♦8-173 


♦10-283 


♦10-296 


7-138 
7-143 
7-147 


•15-572 


7-139 
7-143 


7-139 
7-144 


7-140 
7-144 


7-140 
7-145 


7-141 
7-145 


7-141 
7-146 


7-142 
7-146 


r  DC  A  Tcrri     dv 


iiM_Q(;   AT   nn-n? 


H  K 


r 


1_ 
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CfGUNT  -  CONFIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Monday  15-Jul-85  18:56  Page  11 
UNTSDF  ACTION  ROUTINES 


CFG 
Tab 


210 
211 
212 
213 
2H 

215  000112 

216  000116 

217  000120 

218  000126 

219  000130 

220  000136 

221  OOOUO 

222  000K2 

223  000150 
22A 

225 
226 
227 

228  000156 

229  000162 

230  00016'-. 

231  000170 

232  000174 

233  000200 
23A  000204 

235  000206 

236  0002U 

237  000216 

238  000222 

239  000230 

240  000232 

241  000236 

242  000242 

243  000244 

244  000246 

245  000252 

246  000254 
247 

248 
249 
250 

251  000262 

252  000266 

253  000270 

254  000274 

255  000300 

256  000304 

257  000310 

258  000312 

259  000320 

260  000322 


261 


_.  000324 

262  000332 

263 

264 

265 

266 


.SBTTL  UNTSDf  ACTION  ROUTINES 


005767 
001011 
026727 
103005 
026767 
001 004 


005767 
001034 
016700 
016701 
016702 
126100 
001016 
032767 
001402 
042702 
032767 
001402 
052702 
010267 
006300 
006300 
010260 


005767 
001372 
016700 

016701 
126100 
001003 
016767 
006300 
006300 
C16760 


OOOOOOG 
OOOOOOG  000060 
OOOOOOG  OOOOOOG 


UNIT  NUMBER  (UNTSDF) 


U.UNT: 


101$: 
111$: 


TST 

BNE 

CMP 

BHIS 

CMP 

BNE 

RETURN 

EMSGSR 

EMSGSR 


.PNUMH 

101$ 

.PNUMB,#48. 

101$ 

.PNUMB,UCNT 

111$ 

IG 
1H 


MAKE  SURE  IT'S  A  VALID  UNIT  NUMBER 

MAX  OF'48.  ALLOWED 

IS  this' THE  NEXT  ASCENDING  UNIT  NUMBER? 
IF  NE,  NO 

ILLEGAL  UNIT  NUMBER 
UNT$DF  OUT  OF  ORDER 


CHARACTERISTICS  WORD  0  (UNT$DF) 


OOOOOOG        U.CHAO: 

OOOOOOG 
OOOOOOG 
OOOOOOG 
000013 

OOOOOOG  OOOOOOG 

000001 

OOOOOOG  OOOOOOG  2$: 


000001 
OOOOOOG 


000004G 


5$: 
10$: 


CHERR: 


TST 
BNE 
MOV 
MOV 

MOV 

CMPB 

BNE 

BIT 

BEQ 

BIC 

BIT 

BEQ 

BIS 

MOV 

ASL 

ASL 

MOV 

RETURN 

EMSG$fi 


,R0 


.PNUMH 

CHERR 

UCNT.RO 

$SLTA,R1 

.PNUMB,R2 

L.UNT(Rl) 

10$ 

#FL.FDX,$FLAGS 

2$ 

#1,R2 

#FL.HDX,$FLAGS 

5$ 

#1,R2 

R2,$$DCHA 

RO 

RO 

R2,$$DCHAt4(R0) 

IK 


OOOOOOG 

OOOOOOG 

OOOOOOG 
000013 

OOOOOOG  000002G 


U.CHA1  : 


10$: 


OOOOOOG  000006G 


TST 

BNE 

MOV 

CALL 

MOV 

CMPB 

BNE 

MOV 

ASL 

ASL 

MOV 

RETURN 


.PNUMH 

CHERR 

UCNT.RO 

SETTMO 

$SLTA,R1 

L.UNT(RI) 

10$ 

.PNUMB,$$DCHA+2 

RO 

RO 


,R0 


MUST  BE  SINGLE  PRECISION 

GET  UNil"  COUNT 

SLT  ADDRESS 

AND  CHARACTERISTICS  VALUE 

IS  THIS  THE  KEY  UNIT? 

IF  NE,  NO 

FULL-DUPLEX  SPECIFIED? 

IF  EQ,  NO 

BIT  0  OFF=FDX 

HALF-DUPLEX  SPECIFIED? 

IF  EQ,  NO 

BIT  0  ON=HDX 

SAVE  DLC  CHARACTERISTICS 

CONVERT  TO  A  DOUBLEWORD  INDEX 

STORE  PARAMETER  VALUE 

ILLEGAL  PARAMETER  VALUE 


CHARACTERISTICS  WORD  1  (UNT$DF) 


MUST  BE  SINGLE  PRECISION 

GET  UNlt'cOUNT 

SET  UP  TIMEOUT  VALUE 

AND  SLT  ADDDRESS 

IS  THIS  THE  KEY  UNIT? 

IF  NE,  NO 

SAVE  DLC  CHARACTERISTICS 

CONVERT  TO  A  DOUBLEWORD  INDEX 


.PNUMB,$$DCHAi-6(R0)  ;  STORE  PARAMETER  VALUE 


PROTOCOL  EMULATOR  CHARACTERISTICS  WORD 
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CfGX^P  -  CONfIG  FILE  SCAN  ACTIO  MAC=iO  V05.05b  Saturday  29-Jun-85  00;C 
Table  ot  contents 

MACRO  DEFINITIONS 

CONSTANT  DEFINITIONS 

LOCAL  DATA 

ERROR  MESSAGES 

$QX2P  -  LOOK  FOR  X2P$DF  MACRO 

X2P$DF  STATE  TABLE 

X2P$DF  ACTION  ROUTINES 


s- 

ss 

(S- 

/f 

82 

R- 

92 

9- 

10< 

in- 

M2 

n- 

19') 

H  16 

_  o  c  r\(\ .  AO 


H     1 


ALC 

MAC 

MAC 

MHW 
RET 


NNN 

NNN 

TTTTTTTTTTTTTTT 

NNN 

NNN 

TTTTTTTTTTTTTTT 

NNN 

NNN 

TTTTTTTTTTTTTTT 

NNN 

NNN 

^JNN 

NNN 

MNN 

NNN 

MNNNNN 

NNN 

MNNNNN 

NNN 

NINNNNN 

NNN 

^JNN   NN^ 

NNN 

NNN   NNN 

NNN 

NNN   NNN 

NNN 

MNN 

NNNNNN 

NNN 

NNNNNN 

NNN 

NNNNNN 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

LLLLLLLLLLLLLLL 

NNN 

NNN 

LLLLLLLLLLLLLLL 

NNN 

NNN 

LLLLLLLLLLLLLLL 

*»FILE'«1D«*ALCMEM 


I      1 


♦*F 


ALCMEM  CREATED  BY      MACRO     OM  29-JUN-85   AT    00:01 

MACRO   CROSS   REFERENCE 
MACRO  NAME  REFERENCES 


H     2 

PAGE   2 

CREf        0^.00 


CFGC 
MACF 


NHWDF$ 
RETURN 


#5-115 
6-226 


5-117 
7-366 


♦♦F!LE"1D«»CEALL 


I     2 


CFGl 


H  3 

CFGCNT  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:01  Page  5 
MACRO  DEFINITIONS 


53 
5A 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
6? 


CFGt 
MACF 


.SBTTL  MACRO  DEFINITIONS 
■  LIBRARY  MACROS 

.MCALL  EMSG$R,1STAT$, STATES, TRANS, NTLER$,ASL$ 
•  LOCAL  MACROS 


;  REJECT  TPARS  TRANSITION 

.MACRO  REJS 
ADD     #2,(SP) 
CLR     SYNERR 
.ENDM   REJS 


RETURN  TO  CALLER+2 
INDICATE  NO  SYNTAX  ERROR 


CFGCNT  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:01  Page  6 


CFGI 


H  A 

CFGDDM  -  SCAM  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:02  Page  5 
MACRO  DEFINITIONS 


CFG[ 
LOC/ 


53 
5^ 
55 
56 
57 
58 


.SBTTL  MACRO  DEFINITIONS 
LIBRARY  MACROS 

.MCALL  EMSGSR, I  STATS, STATES, TRANS 


I  4 

CFGDDM  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:02  Page  6 


CFG 


H  5 

CFGDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:02 
LOCAL  DATA 


Page  7 


CF( 

PC* 


98 

99 
100 
101 
102 
103 

10'!.  000000 
105 
106 
107 
108 
109 
110 
111 

112  000000 
113 

114  000017 
115 

116  000027 

117  000035 

118  000036 
119 

120  000040 

121  000042 

122  000044 

123  000045 


.SBTFL  LOCAL  DATA 


000017 

000016' 

000006 


;  LOCAL 

DATA 

.PSECT 

DATA.D 

.NLIST 

BEX 

;  LOCAL 

DATA  FOR  DTESDF  MACRO 

DTEALN 

=  15. 

DTEADD 

.BLKS 

DTEALN 

DTEND  = 

.-1 

DTEPCK 

.BLKB 

8. 

DTNMMX 

=  6. 

DTNTNM 

.BLKB 

DTNMMX 

COUNT: 

.BLKB 

1 

CVTBUF 

.BLKB 
.EVEN 

1 

NEXT: 

.BLKW 

1 

LINNAM 

.BLKW 

1 

LINCTL 

.8LK8 

1 

LINUNT 

.BLKB 

1 

MAXIMUM  NUMBER  OF  DIGITS  IN  DTE  ADDRESS 
TEMPORARY  STORAGE  FOR  UNPACKED  DTE  ADDRESS 

PACKED  DTE  ADDRESS 

MAX  CHARACTERS  IN  NETWORK  NAME 

NETWORK  NAME 

COUNT  OF  NUMBER  OF  DIGITS  IN  DTE  ADDRESS 

CONVERSION  BUFFER  FOR  ASCII  TO  DECIMAL  DIGIT 

ADDRESS  OF  NEXT  AVAILABLE  BYTE 
DEVICE  NAME  FROM  LINE-ID  (RAD50) 
CONTROLLER  NUMBER 
UNIT  NUMBER 
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PCKBCD  -  PACK  STRING  OF  DIGITS  IN  BCD  FORMAT 
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CFG 
FEA 


^73 
47A 
A75 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 

489  000660 

490  000662 

491  000666 

492  000670 

493  000672 

494  000674 

495  000676 

496  000700 

497  000702 

498  000704 

499  000706 

500  000710 

501  000720 

502  000722 
505  000724 

504  000726 

505  000730 

506  000732 

507  000734 

508  000736 
509 


010501 
116702 
001423 
105021 
005300 
003375 
005001 
005305 
112400 
005701 
001007 

005201 
005205 
000401 
005301 
150015 
005302 
003362 

000001 


000035' 


.SBTTL  PCKBCD  -  PACK  STRING  OF  DIGITS  IN  BCD  FORMAT 

PCKBCD  -  PACK  A  STRING  OF  DIGITS  IN  BCD  FORMAT 

INPUTS: 

RO  -  NUMBER  OF  BYTES  IN  PACKED  ADDRESS 

R4  -  ADDRESS  OF  BUFFER  CONTAINING  ASCI  DIGITS  TO  PACK  {0=END  OF  BUFFER) 

R5  -  ADDRESS  OF  BUFFER  TO  STORE  PACKED  DATA 

COUNT  -  NUMBER  OF  DIGITS  SPECIFIED 

OUTPUTS: 

BUFFER  SPECIFIED  IN  R5  CONTAINS  DATA  IN  BCD  FORMAT 


GET  ADDRESS  OF  PACKED  DATA 

GET  NUMBER  OF  DIGITS  IN  STRING 

BR  IF  NOTHING  TO  DO 

INITIALIZE  PACKED  ADDRESS 

MORE  TO  INITIALIZE? 

BR  IF  YES 

POSITION  INIDCATOR  (0=HIGH  FOUR  BITS) 

UPDATE  ADDRESS  FOR  FIRST  TIME 

GET  DIGIT  TO  PACK 

STORE  IN  HIGH  FOUR  BITS? 

BR  IF  NO 

MOVE  TO  HIGH  FOUR  BITS 

INDICATE  STORE  IN  LOW  FOUR  BITS  NEXT 

POINT  TO  NEXT  BYTE 

BR  TO  STORE  DECIMAL 

INDICATE  STORE  IN  HIGH  FOUR  BITS  NEXT 

PACK  THE  NUMBER  INTO  THE  BUFFER 

MORE  TO  CONVERT? 

BR  IF  YES 


PCKBCD: 

MOV 

R5,R1 

MOVB 

COUNT, R2 

BEQ 

40$ 

5$: 

CLRB 

(R1)  + 

DEC 

RO 

BGT 

5$ 

CLR 

R1 

DEC 

R5 

10$: 

MOVB 

(R4)+,R0 

TST 

R1 

BNE 

20$ 

ASL$ 

4,R0 

INC 

R1 

INC 

R5 

BR 

30$ 

20$: 

DEC 

R1 

30$: 

BISB 

R0,(R5) 

DEC 

R2 

BGT 

10$ 

40$: 

RETURN 
.END 

CFGDIE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
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CF( 


126767  OOOOOOG 
OOKOA 


126767  OOOOOOG 
001 A04 


CFGFEA  -  CONFIG  FILE  SCAN  ACTIO 
FEAtDF  ACTION  ROUTIMES 


KO 

Kl 

U2 

U3 

lAA  000052 

U5  000060 

H6  000062 

U7  000072 

1A8 

149 

150 

151  0000^4 

152  000102 

153  000104 

154  000114 
155 

156 
157 

158  000116 

159  000124 
160 

161 
162 

163  000126 

164  000134 
165 

166 
167 

168  000136 

169  000144 
170 

171 
172 
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MACRO  V05.03b  Saturday  29-Jun-85  00:03  Page  8 

.SBTTL  FEASDF  ACTION  ROUTINES 
FIRST  CHARACTER  OF  DEVICE  NAME  (FEASDF) 
OOOOOOG  F.CHI 


CFC 
TP/ 


10$: 


CMPB 
BEQ 
REJ$ 
RETURN 


.PCHAR,$$DEV 
10$ 


IS  THIS  THE  RIGHT  FEATURES  DEFINITION 

IF  EO,  YES 

ELSE,  REJECT  TRANSITION 


SECOND  CHARACTER  OF  DEVICE  NAME  (FEA$DF) 


000001 G  F.CH2:   CMPB 
BEQ 
REJ$ 
10$:    RETURN 


.PCHAR,$$DEV+1 
10$ 


INITIAL  FEATURES  UORD  (FEA$DF) 


016767  OOOOOOG  OOOOOOG  F.FEA: 


MOV 
RETURN 


.PNUMB,$FEATR 


ARE  WE  SURE  THIS  IS  THE  RIGHT  ONE  ? 
IF  EO,  YUP 
ELSE,  REJECT 


SETUP  THE  FEATURES  WORD 


MODIFIABLE  BITS  IN  THE  FEATURES  WORD  (FEASDF) 

046767  OOOOOOG  OOOOOOG  F.MOD:  BIC     .PNUMB,$FEATR   ;  CLEAR  THE  MODIFIABLE  BITS 

RETURN 

BITS  CURRENTLY  SET  IN  THE  FEATURES  WORD  (FEA$DF) 


056767  OOOOOOG  OOOOOOG  F.SET:  BIS     .PNUMB,$FEATR 

RETURN 


SET  THE  CURRENT  STATES 


000001 


.END 
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CF 


CFGPVC  - 

INITU 

TPARS  STATE  TAE 

261 

262 

000056 

263 

000056 

264 

000056 

265 

266 

000056 

267 

000056 

268 

000056 

269 

270 

000056 

271 

000056 

272 

000056 

275 

274 

275 

276 

000056 

277 

000056 

278 

279 

000056 

280 

000056 

281 

282 

000056 

283 

000056 

284 

285 

000056 

286 

000056 

287 

288 

000056 

289 

000056 

290 

291 

000056 

H  8 
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CFGP 
OLMT 


STATES 
TRANS 
TRANS 

PFLAGS 
1END,SEXIT,PVEND 

STATES 
TRANS 
TRANS 

$NUMBR,END,PVFG       ;  FLAGS  BYTE 
SLAMDA 

STATES 
TRANS 
TRANS 

END 
SEOS.SEXIT 
<';>,SEXIT 

;  CHECK  FOR  DLM 

CIRCUIT  NAME  -  SUBEXPRESSION 

STATES 
TRANS 

CHKDLM 
'-,,PVDLM 

STATES 
TRANS 

SDNUMB,,PVCTL 

STATES 
TRANS 

-. 

STATES 
TRANS 

SDNUMB,,PVSTA,PF.D,.f1,FLAG 

STATES 
TRANS 

<',>,SEXIT 

STATES 


fFGPvr 
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DLMTLC  -  SET  UP  TRANSPORT  LINE  COUNTERS 


CFGS 
Tab  I 


759 
760 
761 
762 
763 
76A 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 

775  002034 

776  002040 

777  002044 

778  002046 

779  002050 

780  002054 

781  002060 

782  002064 

783  002070 

784  002072 

785  002074 

786  002100 

787  002102 

788  002104 

789  002106 

790  002110 

791  002112 

792  002114 

793  002120 

794  002124 

795  002126 

796  002134 

797  002136 

798  002142 

799  002144 

800  002146 

801  002152 

802  002154 

803  002160 

804  002164 

805  002172 

806  002176 

807  002202 

808  002212 

809  002214 

810  002216 

811  002220 

812  002222 

813  002226 

814  002232 

815  00^234 


OOOOOOG 
OOOOOOG 


OOOOOOG 
000030' 
000030' 
OOOOOOG 


000026' 


OOOOOOG 
OOOOOOG 


017703 
022367 
001375 
005743 
167703 
010367 
006267 
067703 
011303 
100004 
066703 
006303 
011303 
005046 
110316 
006316 
012603 
017704 
017700 
012402 
022762 
001403 

000452 
060203 
062703 
011304 


016202  OOOOOOG 


.SBTTL  DLMTLC  -  SET  UP  TRANSPORT  LINE  COUNTERS 

I- 

DLMTLC  -  SET  UP  TRANSPORT  LINE  COUNTERS 

INPUTS: 

Rl  -  PORT  NUMBER 

OUTPUTS: 

PORT  NUMBER  STORED  IN  TRANSPORT  LINE  COUNTER  BLOCK 

R0,R1,R2,R3,R4  DESTROYED 

NOTE:  THIS  ROUTINE  MUST  BE  CALLED  FROM  SYSTEM  STATE 


114224  OOOOOOG 


OOOOOOG 


016203 
016202 

005712 
100407 
021204 
001406 
062702 

000414 
010412 


000100 
000104 


000046 


DLMTLC: 

MOV 

5$: 

CMP 

BNE 

TST 

SUB 

MOV 

ASR 

ADD 

MOV 

BPL 

ADD 

ASL 

MOV 

10$: 

CLR 

MOVB 

ASL 

MOV 

MOV 

MOV 

15$: 

MOV 

CMP 

BEQ 

SOB 

BR 

17$: 

ADD 

ADD 

MOV 

SAVMAP 

MOV 

MAP 

MOV 

MOV 

BIAS 

20$: 

TST 

BMI 

CMP 

BEQ 

ADD 

SOB 

BR 

30$: 

MOV 

aSLTMA,R3 

(R3H,$SLTA 

5$ 

-(R3) 

aSLTMA,R3 

R3,DLMSLN 

DLMSLN 

aLLCTA,R3 

(fi3),R5 

10$ 

DLMSTA,R3 

R3 

(R3),R3 

-(SP) 

R3,(SP) 

(SP) 

CSP)+,R3 

aPDVTA,R4 

aPDVNM.RO 

(R4)+,R2 

#*RXPT,Z.NAM(R2) 

17$ 

R0,15$ 

60$ 

R2,R3 

#Z.MAP,R3 

(R3),R4 

Z.DAT(R2),R2 

N$TLC+2(R2) 

N$TLC(R2),R3 

N$TLCt4(R2),R2 

R2 

(R2) 

30$ 

(R2),R4 

40$ 

*T$LLEN,R2 

R3,20$ 

50i 

R4,(R2) 


GET  ADDRESS  OF  VECTOR  TABLE 

IS  THIS  THE  CORRECT  ENTRY? 

BR  IF  NO 

BACK  UP  TO  CORRECT  ENTRY 

GET  SYSTEM  LINE  NUMBER*2 

SAVE  SYSTEM  LINE  NUMBER  FOR  LATER 

INDEX  INTO  REVERSE  MAPPING  TABLE 
GET  CHANNEL  NUMBER  AND  PDV  INDEX 
BR  IF  NOT  MULTIPOINT 
POINT  TO  CORRECT  STATION 
GET  ADDRESS  OF  STATION  TABLE 
GET  CHANNEL  NUMBER  AND  PDV  INDEX 
GET  INDEX  INTO  FORWARD  MAPPING  TABLE 


RETRIEVE  FORWARD  MAPPING  TABLE  INDEX 

GET  ADDRESS  OF  PDV  VECTOR  TABLE 

GET  NUMBER  OF  PDV'S  IN  SYSTEM 

GET  NEXT  PDV  IN  LIST 

IS  THIS  XPT? 

BR  IF  YES 

CONTINUE  UNTIL  ALL  CHECKED 

XPT  NOT  IN  SYSTEM? 

POINT  TO  FORWARD  MAPPING  TABLE  ENTRY 

GET  SLN/STA  PAIR 

SAVE  CURRENT  MAPPING 

GET  ADDRESS   OF    XPT'S   DDB 

MAP  TO  COUNTERS 

GET  NUMBER  OF  CIRCUIT  COUNTERS 

GET  ADDRESS  OF  FIRST  COUNTER  BLOCK 

BIAS  COUNTER  SLOCK  ADDRESS 

HAS  THIS  BLOCK  BEEN  ASSIGNED  ALREADY? 

BR  IF  NO  -  USE  IT 

ELSE  IS  THIS  THE  ONE  WE  WANT? 

BR  IF  YES 

POINT  TO  NEXT  COUNTER  BLOCK 

CHECK  ALL  COUNTER  BLOCKS 

BR  IF  ONE  NOT  AVAILABLE 

STORE  SLN/STA  PAIR 


-   iMTisi    rnwFrr,  rtiF  <;r  MACRn  vOS-03h  Sstiirriav  29-Jun-85 
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CFGSLT  -  SCAN  CONFIGURATION  FR  MACRO  V05.03b  Saturday  29-Jun-85  00:05 


Table  ot  contents 


CF6S 
Tabli 


l;- 

52 

MACRO  DEFINITIONS 

(S- 

71 

SQSLT  -  LOOK  FOR  SLTSDF  MACRO 

?- 

105 

TPARS  TABLES 

K- 

16A 

SUBEXPRESSIONS 

9- 

188 

ACTION  ROUTINES 
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CFGSTA  -  CONFIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  00:06 
Table  ot  contents 

MACRO  DEFINITIONS 
CONSTANT  DEFINITIONS 
ERROR  MESSAGES 
SQSTA  -  LOOK  FOR  STASDF 
STASDF  STATE  TABLE 
STASDF  ACTION  ROUTINES 


s- 

S7 

(S- 

6S 

1- 

If 

H- 

W 

9- 

IV 

10- 

Vb 

CFG5 

SVME 

SYME 

$$AF 
$$HT 
$SL1 
$SM1 
$$S^ 
$S$F 
$$$K 
.PNL 
.PNl 
.TP/ 
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CFGSTA     CREATED  BY  MACRO  OM  29-JUN-85  AT  00:06 
SYMBOL  CROSS  REFERENCE 
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PAGE  3 

CREF   04.00 


CFG 
SVC 


SYMBOL 

VALUE 

REFERENCES 

$$APR 

=    ♦♦**»* 

GX 

•10-224 

5$HT1M 

~   »**^ ♦  t 

GX 

♦11-238 

6$LTIM 

r     ****** 

GX 

•11-210 

$SMTP 

-     ****** 

GX 

•10-190 

SSSNJUM 

z     ****** 

GX 

•10-187 

$$$FLG 

=   177777 

#9-lU 

$$$KEY 

=   177777 

#9-1U 

.PNUM8 

-      ****** 

GX 

10-182 

10-187 

.PNUMH 

-      ****** 

GX 

10-180 

11-233 

.TPARS 

r     ****** 

GX 

8-102 

10-198 


10-211 


10-220 


10-224 


11-238 


•11-239 


11-240 


rBFSTPH  Rv   MArBfi  nw  PQ-.IIIW-RS  AT  nO.-Oft 
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CFGSVC  -  CONFIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  00:06  Page  12 
SVCSDF  ACTION  ROUTINES 


35? 
358 
359 

360  00037A 

361  000400 

362  000402 

363  OOOAIO 
364 

365 

366 

367  000412 

368 

369 

370 

371 

372  000420 

373  000426 

374  000430 
375 

376 

377 

378  000432 

379 

380 

381 

382  000440 

383  000444 

384  000450 

385  000452 

386  000454 

387  000456 

388  000462 

389  000470 

390  000474 
391 

392 
393 
394 

395  000476 

396  000504 

397  0005C6 

398  000512 
399 

400 

401 

402  000514 

403 

404 

405 

406 

407  000522 

408  000526 

409  C00532 

410  000536 

411  000542 

412  000546 


005767 
001004 
016767 


032767 
001401 


OOOOOOG 
OOOOOOG  000012' 


RETRY  TIMER 

SVRTRV:  TST 
BNE 
MOV 
RETURN 

ERROR 

i01$:   EHSGSR 


.PNUMH 

101$ 

.PNUMB.RTYSVC 


3H 


NO  DTE   ADDRESS   SPECIFIED 


000002     000010'   NODTE: 


BIT 
BEQ 
RETURN 


#SF$INC,FLGSVC 
101$ 


ERROR 
i01$:    EMSG$R  3M 
START  OF  DTE  ADDRESS 


012700 
012701 
105021 
005300 
003375 
105067 
012767 


026727 
101003 


000017 
000025' 


000024' 
000025' 


000000' 


SVDTES: :MOV 
MOV 

10$:    CLRB 
DEC 
BGT 
CLRB 
MOV 
CALL 
RETURN 


#DTELEN,RO 

#DTESVC,R1 

(R1)t 

RO 

10$ 

COUNT 

#DTESVC,NEXT 

STRNXT 


000000'  000044' 


PROCESS  DTE  DIGIT 


SVDTED:  CMP 
BHI 
CALL 
RETURN 

ERRORS 

101$:    EMSGSR 


NEXT,#DTEEND 

101$ 

STRNXT 


31 


004567 
012700 
012704 
012705 


OOOOOOG 
000010 
000025' 
000044' 


END  OF  DTE  ADDRESS 


SVDTEE:JSR 
MOV 
MOV 
MOV 
CALL 
RETURN 


R5,$SAVRG 

#<DTELENt1>/2,R0 

*DTESVC,R4 

#DTEPCK,R5 

PCKBCD 


LEGAL  RETRY  TIMER? 

BR  IF  NO 

SAVE  RETRY  TIMER 


ILLEGAL  RETRY  TIMER 


IS  THIS  AN  INCOMING  SVC? 
BR  IF  NO 


DTE  ADDRESS  MISSING 


GET  LENGTH  OF  REMOTE  DTE  ADDRESS 

GET  ADDRESS  OF  START  OF  BUFFER 

INITIALIZE  BUFFER 

MORE  TO  INITIALIZE? 

BR  IF  YES 

INITIALIZE  DIGIT  COUNT 

START  AT  BEGINNING  OF  BUFFER 

STORE  CHARACTER 


IS  ADDRESS  TOO  LONG? 
BR  IF  YES 
STORE  CHARACTER 


ILLEGAL  DTE  ADDRESS 


SAVE  R3-R5 

GET  LENGTH  OF  PACKED  ADDRESS 

POINT  TO  NUMBER  TO  CONVERT 

POINT  TO  STORAGE  FOR  PACKED  NUMBER 

PACK  REMOTE  DTE  ADDRESS  IN  BCD 
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CFGSVC  CREATED  BV     MACRO     ON  29-JUN-85   AT   00:07 

SYMBOL    CROSS   REFERENCE 

SYMBOL      VALUE  REFERENCES 


H  U 

PAGE   k 

CREF       OA.OO 


CF( 
UN' 


T$LIF 

000013 

#5-62 

TSLIFL 

000013 

#5-62 

T$L!FO 

000013 

#5-62 

TSlIFS 

000013 

#5-62 

TSLIN 

000000 

#5-62 

TSLIPS 

000006 

#■^-62 

TSLLD 

000012 

#5-62 

TSLLDC 

0000A5 

#5-62 

rSLLDL 

000012 

#5-62 

'?LLD0 

000012 

#5-62 

TSLLDS 

000012 

#5-62 

TSLLEN 

000046 

#5-62 

15-569 

TSLOPR 

000002 

#5-62 

TSLTCL 

000024 

#5-62 

TSLTIM 

000026 

#5-62 

T$LTPR 

OOOOK 

#5-62 

TSLTPS 

000020 

#5-62 

TSNAPL 

000004 

#5-62 

TSNFE 

000000 

#5-62 

TSNLEN 

000010 

#5-62 

TSNNUL 

000002 

#5-62 

TSNOPL 

000006 

#5-62 

TSNRNI 

000042 

#5-62 

TSNRPL 

000005 

#5-62 

TSNRUL 

000007 

#5-62 

T$NVR 

000001 

#5-62 

TSRPRi 

000040 

#5-62 

TSSVC 

000034 

#5-62 

»15-573    "IS- 

578    *15-579 

T$T5 

000030 

#5-62 

•15-580 

TST6 

000032 

#5-62 

*15-581 

WNDSVC 

000022 

R 

#6-125 

♦10-269    'll- 

324     13-458 

Z.DAT 

=  **♦♦♦* 

GX 

15-560 

Z.MAP 

=  ****** 

GX 

15-557 

SALPHA 

-  000022 

#9-185 

$ANY 

-  000020 

#9-185 

SBLANK 

^  000006 

#9-185 

$CAT5 

r  ****** 

GX 

10-265 

13-421 

SCDTB 

=  *■***♦♦ 

GX 

17-639 

SCEACX 

-  «♦***♦ 

GX 

13-445 

13-474 

SDIGIT 

=  000024 

#9-185 

SDNUMB 

=  000014 

#9-185 

$EOS 

=  000012 

#9-185 

SERRIT 

r   ****** 

GX 

8-179 

$ERR2I 

r  ****** 

GX 

10-301 

$ERR3D 

000056 

R 

#7-138 

11-315 

$ERR3E 

000102 

R 

#7-139 

11-329 

$ERR3F 

000126 

R 

#7-140 

11-341 

$ERR5G 

000152 

R 

#7-141 

11-355 

$ERR3H 

000200 

R 

#7-142 

12-367 

$ERR3I 

000224 

R 

#7-143 

12-402 

$ERR3j 

000250 

R 

#7-144 

13-491 

$ERR3K 

000266 

R 

#7-145 

13-493 

r  c  rcv/r 
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UNTtDF  ACTION  ROUTINES 


CFG 


267  00033'. 

268  000340 

269  000342 

270  0003A6 

271  000352 

272  000356 

273  000360 
27A  000366 

275  000370 

276  000376 


005767 
001345 
016700 
016701 
126100 
001003 
016767 
006300 
016760 


OOOOOOG 

OOOOOOG 
OOOOOOG 
000013 

OOOOOOG  OOOOOOG 

OOOOOOG  000002G 


U.PECH: 


10$: 


TST 

BNE 

MOV 

MOV 

CMPB 

BNE 

MOV 

ASL 

MOV 

RETURN 


.PNUMH 

CHERR 

UCNT.RO 

$SLTA,R1 

L.UNT(RI) 

10$ 

.PNUMB,$$PCHA 

RO 


,R0 


MUST  BE  SINGLE  PRECISION 

GET  UNIT "count 

AND  SLT  ADDDRESS 

IS  THIS  THE  KEY  UNIT? 

IF  NE,  NO 

SAVE  DLC  CHARACTERISTICS 

CONVERT  TO  A  WORD  INDEX 


PNUMB,$$PCHA+2(A0)  ;  STORE  PARAMETER  VALUE 


f-Tin    MArnn    \/nQ    r\7k    M/^ 


I  15 


H  16 
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1 
2 
5 

5 
6 

7 

8 

9 

10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
57 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE   CfGX2P  -  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCIUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  02-JUN-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00     07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS   V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-PUis   V3.0 
DECnet-Micro/RSX   Vl.O 


M/i  r  nn 


I  16 

.ai;   nn.na 


••FILE'MD-'ALCMEM 


I      I 


»'F 


AAAAAA 

CCCCCCCC 

MM 

MM 

EEEEEEEEEE 

MM      MM 

AAAAAA 

cccccccc 

MM 

MM 

EEEEEEEEEE 

MM      MM 

AA      AA 

re 

MMMI* 

MMMM 

EE 

MMMM  MMMM 

AA      AA 

MMM^ 

MMMM 

EE 

HMMM  MMMM 

AA      AA 

MM 

«1M  MM 

EE 

MM  MM  MM 

AA      AA 

MM 

m    m 

EE 

MM  MM  MM 

AA      AA 

m 

m 

EEEEEEEE 

MM      MM 

AA      AA 

m 

MM 

EEEEEEEE 

MM      MM 

AAAAAAAAAA 

m 

MM 

EE 

MM      MM 

AAAAAAAAA^ 

m 

MM 

EE 

MM      MM 

AA      AA 

m 

m 

EE 

MM      MM 

AA      AA 

m 

m 

EE 

MM      MM 

AA      AA 

LLLLLLLLLL 

cccccccc 

MM 

MM 

EEEEEEEEEE 

MM      MM 

AA      AA 

LLLLLLLLLL 

cccccccc 

MM 

MM 

EEEEEEEEEE 

MM      MM 

cc 
cc 
cc 
cc 
cc 
cc 
cc 
cc 
cc 
cc 


LL 

ssssssss 

TTTTT 

FTTTT 

LL 

ssssssss 

TTTTT 

MM 

LL 

ss 

T 

_L 

ss 

LL 

ss 

_L 

ss 

T 

.L 

ssssss 

T 

LL 

ssssss 

T 

LL 

ss 

LL 

ss 

■ 

LL 

ss 

LL 

ss 

T 

LLLLLLLLLL 

ssssssss 

T 

LLLLLLLLLL 

ssssssss 

T 

[ 

LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LLL 

LLl 


AlCMEM 

T  - 
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ALLOCATE  A  BLOCK  GF  ME  MACRO  V05.03b  Saturday  29-Jun-85  00:01 


CEfl 


I  2 


,»FILE**ID»«CEALL 


CFG( 
ERRC 


CCCCCCCC   EEEEEEEEEE 
CCCCCCCC   EEEEEEEEEE 


AAAAAA 
AAAAAA 


LL 
LL 


LL 

LL 


EE 

AA 

AA 

EE 

AA 

AA 

EE 

AA 

AA 

EE 

AA 

AA 

EEEEEEEE 

AA 

AA 

EEEEEEEE 

AA 

AA 

EE 

AAAAAAAAAA 

EE 

AAAAAAAAAA 

EE 

AA 

AA 

EE 

AA 

AA 

CCCCCCCC 

EEEEEEEEEE 

AA 

AA 

LLLLLLLLLL 

LLLLLLLLLL 

CCCCCCCC   EEEEEEEEEE 


AA 


AA 


LLLLLLLLLL   LLLLLLLLLL 


LL 

ssssssss 

TTTTT 

TTTTT 

LL 

SS5SSSSS 

TTTTT 

TTTTT 

-L 

ss 

T 

-L 

ss 

T 

lL 

ss 

T 

-L 

ss 

T 

LL 

ssssss 

T 

LL 

ssssss 

T" 

-L 

ss 

T 

_L 

ss 

LL 

ss 

-L 

ss 

T 

LLLLLLLLLL 

ssssssss 

T 

LLLLLLLLLL 

ssssssss 

T 

J    2 
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CFGCNT  -  SCAN  CONf IGURAI ION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:01 


.SBTTL  ERROR  MESSAGES 
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ERROR  MESSAGES 

70 

71 

72 

73 

Ik 

000000 

75 

76 

77 

000000 

78 

000052 

79 

000070 

80 

0001U 

81 

000150 

82 

83 

8A 

85 

86 

87 

88 

89 

000000 

CFGt 
$QD[ 


ERROR  MESSAGES 

.PSECT 
.ENABL 

NTLERS 
NTLER$ 
NTLERS 
NTLERS 
NTLERS 
.IF  DF 
NTLERS 
.ENDC 


DATA.D 
LC 

,1C,8B,CERR,RTSPC,CFLIN,<Interrupt   Vector> 

,1D,8,CERR,RTSPC,CFLIN,<Vector  Not   In   Systein> 

,1E,8B,CERR,RTSPC,CFLIN,<CSR  Address> 

,1F,8B,CERR,RTSPC,CFLIN,<Interrupt  Priori ty> 

,Z2,8A,CERR,REP8A,CFLIN,<0ffline> 

ASSMPL 

,ZK,8A,CERR,REP8A,CFLIN,<Unibus  Run  Mask  Missing> 


.DSABL  LC 
.EVEN 

.DSABL  LC 
.PSECT 


J  3 

CFGCNT  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:01  Page  7 
tnrMT  -  I  nnk-  cno  rMTthf  MAron 


CFGI 

TDA  I 


CFGDDM  -  SCAN  CONFIGURATION  FIL  MACRO  V 

SQODM  -  LOOK  FOR  DDMSDF 

MACRO 

60 

61 

62 

63 

6A 

65 

66 

67 

68 

69 

70 

72 

73  000000 

012705 

000000' 

74  00000'. 

005001 

75  000006 

012702 

000000' 

76  000012 

016703 

OOOOOOG 

77   000016 

012704 

OOOOOOG 

78  000022 

005067 

OOOOOOG 

79  000026 

80  000032 

103003 

81  00003A 

005367 

OOOOOOG 

82  000040 

001401 

83  0000A2 

84 

85 

86 

87 

88  00OOA4 

I  4 


Page  6 


CFGI 
ERRl 


.SBTTL  $QDDM  •  LOOK  FOR  DDMSDF  MACRO 


$QDDM  -  LOOK  FOP  DDMSDF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 
R3,R4,R5=DESTR0YED 


SQDDM: 


MOV 

#DDMDF,R5 

CLR 

R1 

MOV 

#DDMKW,R2 

MOV 

CFGSZ,R3 

MOV 

*CFGBF,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

RETURN 

20$: 

ERROR  CONDITION 
101$:   EMSG$R  IT 


STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EQ,  YES 


;  SYNTAX  ERROR 


J  4 
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CFG 


CFGDTE  - 

INITI 

ERROR  MESSAGES 

125 

126 

127 

128 

129 

000OA6 

130 

000106 

131 

OOOIAO 

132 

000170 

133 

00022A 

13A 

135 

136 

137 

138 

000000 
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.SBTTL  ERROR  MESSAGES 
.ENABL  LC 


NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 

.DSABL 
.LIST 
.EVEN 
.PSECT 


,00,8B,CERR,RTSPC,CFLIN,<network  name  parameter> 
,03,8B,CERR,RTSPC,CFLIN,<DTE  address  ualue> 
,04,8B,CERR,RTSPC,CFLIN,<hash  table  size> 
,05,8B,CERR,RTSPC,CFLIN,<counter  timer  vaLue> 
,06,8B,CFRR,RTSPC,CFLlN,<line-id> 

LC 
BEX 


CFGDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 


00:02 
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Symbol 

table 

A$$CHK= 

000000 

HSHMN  = 

000040 

A$$CPS= 

000000 

HSHMX  = 

001000 

A$$PRI= 

000000 

HSHSZ  = 

******  c 

AS$TRP= 

000000 

HSHTBL 

0O0214R 

BIASX 

000500R 

HtCUG 

000010 

CERR  = 

*»«**»  GX 

HSDST 

000012 

CFGBF  = 

•**•*♦  GX 

H$D29 

000014 

CFGS2  = 

******  GX 

H$FLG 

000000 

CFLIN  = 

*♦**♦*  GX 

HSGLEN 

000104 

CHKDTE 

000360R 

H$GLT 

000044 

CNTTIM 

000264R 

HSGNAM 

000050 

COUNT 

000035R 

002 

H$GNML= 

000020 

CVTBUF 

000036R 

002 

H$GPT 

000046 

C$$CKP= 

000000 

HSHITS 

000034 

C$$ORE= 

000400 

HSHLEN 

000044 

C$$RSH= 

177564 

H$LBDA 

000070 

DEVCTL 

000546R 

H$LBDN 

000072 

DEVNAM 

000520R 

HSLDTE 

000002 

DEVUNT 

00056AR 

HSLEN 

000042 

DE.OFF= 

*♦**«»  GX 

H$LOTS 

000032 

DE.ON  = 

♦♦****  GX 

HSNETW 

000024 

DTEAD 

00001 2R 

003 

H$NML  = 

000006 

DTEADD 

OOOOOOR 

002 

H$NPT 

000022 

DTEAEN 

OOOKOR 

HSPTB 

000020 

DTEALN= 

000017 

HSPVC 

000006 

DTEAST 

000052R 

HSRDTE 

000004 

DTEDES= 

**♦»*»  GX 

H$RNW 

000042 

OTEDF 

OOOOOOR 

003 

HSSVC 

000036 

DTEDIG 

OOOIHR 

HSTRB 

000016 

DTEENb 

000342R 

HSXAVL 

000100 

DTEFLG= 

»«*♦**  GX 

HSXBIA 

000074 

DTEKW 

OOOOOORG 

004 

H$X29C 

000040 

DTEND  = 

00001 6R 

002 

I$$RAR= 

000000 

DTENET 

000302R 

I$$R[)N= 

000000 

DTENW 

000076R 

003 

KSAR5  = 

****** 

DTEPCK 

00001 7R 

002 

K$$CNT= 

177546 

DTEST 

OOOOOORG 

003 

K$$CSR= 

177546 

DTNMMX= 

000006 

K$$LDC= 

000000 

DTNTNM 

000027R 

002 

K$$TPS= 

000074 

D$$BUG= 

177514 

LDSLP  = 

000000 

D$$ISK  = 

000000 

LF.ACT= 

100000 

DS$L11= 

000001 

LF.BRO= 

000400 

D$$VNC= 

000000 

LF.BUT= 

000007 

D$$YNM= 

000000 

LF.ENA= 

002000 

END 

00011AR 

003 

LF.LPB= 

001000 

E$SXPR= 

000000 

LF.MDC= 

000100 

FMT8B  = 

•*•»••  GX 

LF.MFL= 

004000 

FM.8B  = 

000000 

LF.MTP= 

000020 

F$$L\/L  = 

000001 

LF.PAC= 

000200 

G$$TPP= 

000000 

LF.RDY= 

040000 

G$STSS= 

000000 

LF.REA= 

010000 

G$tTTK= 

000000 

LF.SER= 

000040 

G$$WRD= 

cooooo 

LF.TIM= 

000010 

HF$DLM= 

000002 

LF.UNL= 

020000 

HF$GiJy  = 

000010 

LF.X2P= 

000000 

HFSHOS= 

000004 

LINCTL 

000044R 

HFEXDF  = 

000020 

LINID 

000124R 

GX 


GX 


LINID1 

LINNAM 

LINUNT 

LN$0FF= 

LNSON  = 

LN$SHU= 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

LP$EIP= 

LP$ENB= 

LP$PCT= 

LP$TMR= 

LPSUP  = 

LP$WTD= 

LP$UTS= 

LS$GDN= 

LS$OFF= 

LS$STR= 

LS$UP  = 

LS$WT  = 

L$ACHN 

LSAPVC 

L$ASVC 

L$AUC 

LSCHLS 

LSCHTB 

L$CLEN= 

LSCTEN 

LSCTIM 

LSDTEA 

LSDTEL 

LSGLEN 

LSLEN 

LSLLCH 

L$LNK 

LSMCHN 

LSNETW 

LSNIRE 

LSNLRE 

LSNMAC 

LSNMAS 

LSNMST 

LSNNRE 

002  LSNRBV 

003  LtNRCA 


000146R 

003  LSNRFS 

000100 

P$$P45= 

000000 

000042R 

002  LSNRPK 

000056 

P$$WRD= 

000000 

000045R 

002  LSNRRE 

000105 

Q$$OPT= 

000010 

000001 

LSNRST 

000107 

RTSPC  = 

******  GX 

000000 

LSNTBY 

000052 

R$RO  = 

88S252 

000002 

LSNTCA 

000070 

R$R1  = 

000004 

000000 

LSNTFS 

000102 

R$R2  = 

000006 

000005 

LSNTPK 

000062 

R$R3  = 

000010 

000004 

LSOMST 

000002 

R$R4  = 

000012 

000003 

L$PCS 

000112 

R$R5  = 

000014 

000003 

L$PLS 

000110 

R$$DER= 

000000 

000001 

LSQCNT 

000122 

R$$K11= 

000001 

000000 

LSQUEH 

000124 

R$$SND= 

000000 

000004 

LIQUET 

000130 

R$$11M= 

000000 

000001 

LSRTRY 

000007 

SF.ACT= 

000200 

000002 

LSSLN 

000004 

SF.ENA= 

000100 

000002 

L$ST 

000005 

SF.LPB= 

000004 

000017 

LSTCLZ 

000044 

SF.MFL= 

000040 

000360 

LSTIM 

000006 

SF.PAC= 

000020 

000006 

L$$ASG= 

000000 

SF.REA= 

000010 

002000 

L$$DRV= 

000000 

SF.SER= 

000001 

004000 

L$$P11= 

000001 

SF.SVC= 

000002 

001400 

L$$11R= 

000000 

SF.UNL= 

000040 

100000 

L.COST 

000015 

SPACE  = 

000040 

010000 

L.CTL 

000012 

STRNXT 

00061  OR 

020000 

L.CVA 

177776 

SYNERR= 

******  GX 

040000 

L.DDM 

000002 

S$$WRG= 

000000 

000004 

L.DDS 

000004 

S$$YSZ= 

007600 

000000 

L.DLC 

000003 

S.COST 

000001 

000002 

L.DLM 

000006 

S.FLG 

000000 

000003 

L.DLS 

000010 

S.LEN 

000004 

000001 

L.FLG 

000000 

S.NMST 

000002 

000012 

L.KRBA 

000016 

S.OWNR 

000003 

000014 

L.LEN  = 

000022 

T$$KMG= 

000000 

000010 

L.MPF 

000022 

T$$MIN= 

000000 

000042 

L.NMST 

000020 

V$$CTR= 

001000 

000034 

L.NSTA 

000014 

X$$DBT= 

000000 

000030 

L.OWNR 

000021 

$ALPHA= 

000022 

000044 

L.UNT 

000013 

$ANY  = 

000020 

000032 

M$$CR6= 

000124 

$BLANK= 

000006 

000040 

M$$CRX= 

000000 

$CAT5  = 

*♦*♦*♦  GX 

000020 

M$$FCS= 

000000 

SCDTB  = 

******  GX 

000017 

M$$MGE= 

000000 

$CEACX= 

******  GX 

000134 

M$$NET= 

000000 

$DIGIT= 

000024 

000122 

M$$0VR= 

000000 

$DNUMB= 

000014 

000016 

NEXT 

000040R 

002  $EOS  = 

000012 

000000 

NUMDTE= 

000020 

SERROO 

000046R    002 

000036 

N$$ACC= 

000001 

«;erro3 

000106R    002 

000114 

N$$BUF= 

000001 

$ERR04 

000140R    002 

000072 

N$$L[)V= 

000001 

$ERRD5 

0001 70R    002 

000104 

N$$MCP= 

000001 

$ERR06 

000224R    002 

000076 

N$$MLL= 

000001 

$ERR1T= 

******  GX 

000074 

N$$MOV= 

000010 

SEXIT  = 

000000 

000005 

N$$NCT= 

000001 

IFAIL  = 

177777 

000106 

N$$PEM= 

000001 

$HEADR= 

******  GX 

000046 

PCKBCD 

000660R 

$LAMDA= 

000000 

000066 

PSIPT  = 

**«*».  GX 

$NUMBR= 

000002 
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A$$CH<= 
A$$CPS= 
A$$PRI= 
.S$TRP= 
CFGBF  = 
CFGSZ  = 
C$$CKP= 
C$IORE= 
C$$RSH= 
D$$BUG= 
D$$ISK= 
D$$Ln  = 
D$$VNC= 
D$$YNM= 
E$$XPR= 
FEADF 
FEAKW 
FEAST 
F$$LVL= 

.  ABS. 

SSTATE 

SKTAB 

SKSTR 


000000 

000000 

000000 

000000 

«♦*»♦*  GX 

*«♦•♦*  GX 

000000 

000^00 

17756A 

1775U 

000000 

000001 

000000 

000000 

000000 

OOOOOOR 

OOOOOORG 

OOOOOORG 

000001 

000000 
000K6 
O0OOA2 
000002 
000007 


F.CHI 

F.CH2 

F.FEA 

F.MOD 

F.SET 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

002  LD$LP  = 

003  L$$ASG= 
002  L$$DRV= 


0OO052R 

000074R 

0001 16R 

000126R 

0001 36R 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

000000 

000000 


L$$P11= 

L$$nR= 

M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$0VR= 
N$$ACC= 
N$I8UF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
P$$P45= 
P$$URD= 


000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
^00001 
J00001 
000001 
000010 
000001 
000001 
000000 
000000 


Q$$OPT= 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SyNERR= 
S$$WR6= 
S$$YSZ= 
T$$KMG= 
T$$MIN= 
V$$CTR= 
X$$DBT= 
$ALPHA= 
$ANY  = 
$BLANK= 
$DIGIT= 
$DNUMB= 
$EOS  = 


000010 

000000 

000001 

000000 

000000 

******  GX 

000000 

007600 

000000 

000000 

001000 

000000 

000022 

000020 

000006 

000024 

000014 

000012 


Errors  detected: 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,AB3,0VR) 
(RW,I,LCL,REL,C0N) 
(RW,0,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
tRW,D,LCL,REL,CON) 


••»  Assembler  statistics 


0 

0 

11377  Words 

14440  Words 

RSX-11M/PLUS 


45  Pages) 
55  Pages) 


CF( 

PV( 


$£RR1T= 

$EXIT  = 

SFAIL  = 

$FEATR= 

$LAMDA= 

$NUMBR= 

$QFEA 

$RAD50= 

$STRNG= 

$SU8XP= 

$$DEV  = 

$$$FLG= 

$$$KEY= 

$$$STA= 

$$$TMP= 

.PCHAR= 

.PNUMB= 

.TPARS=: 


******  GX 
000000 

■\7im 

******  GX 

000000 

000002 

OOOOOORG 

000016 

000004 

000010 

******  GX 

Mini 

000000 
000000 
OOOOOOR 
******  GX 
******  GX 
******  GX 


004 


Work  tile  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool ; 
Operating      system: 

SYfcFGFEA!v2;[132,134]CFGFEA/CR/-SP=SY:[1,1]RSXMCM.SML/ML,C130,nO]NETlI8/ML,[130,10]RSXMCM/PA:1,[:i32,10]CFGFEA 
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CFGPVC  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
PVCSDF  ACTION  ROUTINES 


00:04 


295 

.SBTTL 

PVC$Df  ACTION 

294 
295 
296 
297 
298  000056 

;•  PVC  CIRCUIT  ID 

016702 

OOOOOOG 

PVNAM:  MOV 

.PSTCN,R2 

299  000062 

022702 

000006 

CMP 

#PVNAMX,R2 

300  000066 

103432 

BLO 

101$ 

301  000070 

012700 

000036' 

MOV 

#PVCNAM,PO 

302  000074 

012701 

000006 

MOV 

#PVNAMX,R1 

303  000100 

112720 

000040 

10$:    MOVB 

//SPACE, (RO)t 

304  000104 

005301 

DEC 

R1 

305  000106 

003374 

BGT 

10$ 

306  000110 

016700 

OOOOOOG 

MOV 

.PSTPT.RO 

307  000114 

012701 

000036' 

MOV 

*PVCNAM,R1 

308  000120 

112021 

20$:    MOVB 

(R0)+,(R1)+ 

309  000122 

005302 

DEC 

R2 

310  000124 

003375 

BGT 

20$ 

311  000126 

016767 

OOOOOOG  000014' 

MOV 

$X3DSS,PVCPSZ 

312  000134 

016767 

OOOOOOG  000016' 

MOV 

$X3DWS,PVCWSZ 

313  000142 

005067 

000020' 

CLR 

PVCOUN 

314  000146 

105067 

000035' 

CLRB 

PVCFLG 

315  000152 

RETURN 

316 

317 
318 
319  000154 

;  ERRORS 

101$:   EMSG$R 

NO 

320 
321 
322 
323 
324  000162 

;  LOGICAL  CHANNEL  NUMBER 

005767 

OOOOOOG 

PVLCN:   TST 

.PNUMH 

325  000166 

001011 

BNE 

101$ 

326  000170 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

327  000174 

003406 

BLE 

101$ 

328  000176 

020027 

OOOOOOG 

CMP 

R0,*CHNLMX 
10l$ 

329  000202 

101003 

BHI 

330  000204 

010067 

000010' 

MOV 

RO.PVCLCN 

331  000210 

RETURN 

332 

333 
334 

335  000212 

•  ERRORS 

ioi$:   EMSG$R 

09 

336 

337 

338 
339 

340  000220 

;  COUNTER  TIMER 

005767 

OOOOOOG 

PVCT:   TST 

.PNUMH 

341  000224 

001004 

BNE 

101$ 

342  000226 

016767 

OOOOOOG  000012 

MOV 

.PNUMB.PVCCTM 

343  000234 

RETURN 

344 

345 
346 
347  000236 

;  ERRORS 

101$:   EMSG$R 

05 

Page  11 


GET  NUMBER  OF  CHARACTERS  FOUND 

LEGAL  PVC  CIRCUIT  ID? 

BR  IF  NO 

POINT  TO  STORAGE  FOR  CIRCUIT  ID 

GET  LENGTH  OF  CIRCUIT  ID 

INITIALIZE  NAME  TO  SPACES 

MORE  TO  INITIALIZE? 

BR  IF  YES 

POINT  TO  START  OF  CIRCUIT  ID 

POINT  TO  STORAGE  AREA  FOR  CIRCUIT  ID 

STORE  CIRCUIT  ID 

MORE  TO  STORE? 

Dp  jp  ypc 

SET  UP  DEFAULT  MAXIMUM  BLOCK  SIZE 
SET  UP  DEFAULT  WINDOW  SIZE 
INITIALIZE  PROCESS  OWNER 
INITIALIZE  FLAGS  BYTE 


ILLEGAL  CIRCUIT  ID 


LEGAL  VALUE? 

BR  IF  NO 

GET  SPECIFIED  LOGICAL  CHANNEL  NUMER 

BR  IF  ILLEGAL  VALUE 

LEGAL  VALUE? 

BR  IF  NO 

STORE  LOGICAL  CHANNEL  NUMBER 


ILLEGAL  LOGICAL  CHANNEL  NUMBER 


LEGAL  VALUE? 

BR  IF  NO 

SAVE  COUNTER  TIMER  VALUE 


ILLEGAL  COUNTER  TIMER  VALUE 


CFGF 
DLMT 


J  8 
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CFGPVC  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:64 
DLMTLC  -  SET  UP  TRANSPORT  LINE  COUNTERS 


Page  ?1-1 


CFGS 


8T6  002236  110162  000036 

817  002242  152762  000200  000044 

818  002250  016762  000000'  000030 

819  002256  016762  000002'  000032 

820  002264 

821  002270 
822 

823       000001 


40$: 

MOVB 

BISB 

MOV 

MOV 

SOS: 

RESMAP 

60$: 

RETURN 

Rl,T$SVCt2(R2) 

*px$dlm,t$flag;r2) 

htimr,t$t5(r2) 

ltimr,t$t6(r2) 


STORE  PORT  NUMBER 
INDICATE  DLM  PVC 
STORE  HELLO  TIMER 
AND  LISTEN  TIMER 
RESTORE  PREVIOUS  MAPPING 


.END 
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CFGS 


1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 

43 

44 
45 
46 
47 
48 
49 
50 


.TITLE   CFGSLT  -  SCAN  CONFIGURATION  FILE  FOR  SLTSDF 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  SCAN  FOR  SLT$DF  FOR  SET  LINE  PROCESSING 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  05-AUG-81 

DECNET-IIM/S  V3.1 
DECNET-11MPLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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I   11 

O0:0i! 


1 
2 
3 

5 

6 

7 

8 

9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
2/ 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 

51 

52 
53 
54 

55 


.TITLE  CFGSTA  -  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  04-JUN-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 
DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

3.01  10-JAN-83 

SUPPORT  CHANGED  CETAB  PARAMETERS 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-HM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


CFG" 

MAC! 

MAC! 

CALl 
DBG' 
EMS( 
GCL' 
IST/ 
MTR/ 
NTLI 
RETI 
SLTI 
STA 

TRAl 
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CFG5TA  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:06 

MACRO   CROSS   RF^ERENCE 


I  12 

PAGE   4 

CREF        OA.OO 


CFG 
SVC 


MACRO  NAME 

CALL 

DBGTP$ 

EMSGSR 

GCL$ 

ISTATS 

MTRANS 

NTLERS 

RETURN 

SLTDFS 

STATES 

TRANS 


REFERENCES 

8-102 
#9-1  U 
#5-61 
#5-61 
#5-61 
#9-1  K 
#5-61 

8-106 
#5-61 
#5-61 
#9-U7 
#5-61 
#9-K2 
#9-168 


#9-132 
8-110 

9-lK 

7-75 

10-191 

5-63 

9-118 
#9-151 
#9-119 
#9-K5 
#9-169 


#9-U2 
10-192 


7-76 
10-212 

#9-121 
#9-157 
#9-122 
#9-U8 
#9-171 


#9-U9 
10-193 


7-77 
10-225 

#9-124 
#9-163 
#9-125 
#9-U9 


#9-159 
10-21A 


7-78 
11-2A1 

#9-127 
#9-166 
#9-128 
#9-152 


#9-165 
10-227 


7-79 


#9-130 
#9-170 
#9-131 
#9-158 


#9-168 
11-243 


#9-134 
#9-173 
#9-132 
#9-159 


#9-169 


#9-137 

#9-135 
#9-164 


#9-140 

#9-138 
#9-165 


#9-144 

#9-141 
#9-167 


•FU  F»«ID««CFGSVC 
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FGSVC  -  CONFIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85 
SVCSDF  ACTION  ROUTINES 


I  13 

00:0i 


06  Page  13 


4U 
415 
416 

417  000550 

418  000556 

419  000560 

420  000564 

421  000566 

422  000572 

423  000576 

424  000600 

425  000604 

426  000606 

427  000614 

428  000620 

429  000622 

430  000630 

431  000636 

432  000642 
433 

434  000644 

435  000650 

436  000652 

437  000656 

438  000662 

439  000664 

440  000676 
441 

442  000700 
4'.3  000704 

444  000706 

445  000710 

446  000714 

447  000716 

448  000720 

449  000724 

450  000726 

451  000730 

452  000732 

453  000734 

454  000742 

455  000750 

456  000756 

457  000764 

458  000772 

459  001000 

460  001006 

461  001014 

462  001020 

463  001022 

464  001026 

465  001032 

466  001034 

467  001036 

468  001040 

469  001046 

470  001052 


OWNER 


022767     000003     OOOOOOG   SVOUNR: 

001162 

016700  OOOOOOG 

005001 


020127 

114224 

001152 

103547 

016767 

OOOOOOG 

000016' 

016700 

000014' 

006300 

016067 

OOOOOOG 

000002' 

016067 

OOOOOOG 

000004' 

017700 

OOOOOOG 

001533 

010004 

012701 

000032 

103006 

000507 

010005 

010046 

012600 

010046 

017746 

OOOOOOG 

010002 

105022 

005301 

003375 

116760 

000021' 

000002 

116760 

000014' 

000003 

016760 

000006' 

000004 

016760 

000010' 

000010 

116760 

000023' 

000013 

116760 

000022' 

000006 

016760 

000012' 

000016 

116760 

000024' 

000007 

012702 

000010 

010001 

062701 

000020 

012705 

000044' 

112321 

005302 

003375 

116760 

000020' 

000030 

062704 

000036 

010401 

10$: 


15$: 


17$: 


20$: 


CMP  #3,.PSTCN 

8NE  101$ 

MOV  .PSTPT,RO 

CLR  R1 

CALL  $CAT5 

CMP  I'^I./^'RXPT 

BNE  101$ 

CALL  FNDOWN 

BCS  101$ 

MOV  $SLTA,SLTA 

MOV  STASVCRO 

ASL  RO 

MOV  $$HTIM(RO),HTIMR 

MOV  $$LTIM(RO),LTIMR 

MOV  aiPSlPT.RO 

BEQ  102$ 

SWSTK$  50$ 

MOV  R0,R4 

MOV  #S$LEM,R1 

CALL  $XALOC 

BCC  10$ 

RETC  RO 

BR  40$ 

SAVMAP 

MOV  R0,R5 

MOV  RO,-(SP) 

CALL  $CEACX 

MOV  (SP)+,RO 

MOV  RO,-(SP) 

MOV  aKSAR5,-(SP) 

MOV  R0,R2 

CLRB  (R2)+ 

DEC  R1 

BGT  15$ 

MOVB  CTLSVC,S$CTL(RO) 

MOVB  STASVC,S$STA(RO) 

MOV  PK"SVC,S$PKSZ(RO) 

MOV  FLGSVC,S$FLG(RO) 

MOVB  RCLSVC,S$RCL(RO) 

MOVB  WNDSVC,S$UNO(R0) 

MOV  RTySVC,S$TMR(RO) 

MOVB  COUNT, S$ADSZ(RO) 

MOV  #<DTELEN+1>/2,R2 

MOV  RO.RI 

ADD  #S$DTE,R1 

MOV  #DTEPCK,R3 

MOVB  (R3)+,(R1)+ 

DEC  R2 

BGT  17$ 

MOVB  OWNSVC,S$OWNR(R0) 

ADD  #H$SVC,R4 

MOV  R4,R1 


VALID  OWNER? 
BR  IF  NO 
POINT  TO  OWNER 

CONVERT  TO  RAD50 

IS  OWNER  XPT? 

BR  IF  NO  -  ERROR 

LOOK  FOR  XPT 

BR  IF  XPT  NOT  FOUND 

MAKE  LOCAL  COPY  OF  $SLTA 

GET  STATION  NUMBER 

MAKE  IT  A  WORD  INDEX 

STORE  HELLO  TIMER 

STORE  LISTEN  TIMER 

GET  PSI  I  OME  BLOCK  ADDRESS 

NO  PSI  HOME  BLOCK???? 

ENTER  SYSTEM  STATE 

SAVE  PSI  HOME  BLOCK  ADDRESS 

GET  LENGTH  OF  SVC  DESCRIPTOR  BLOCK 

ALLOCATE  SVC  DESCRIPTOR  BLOCK 

BR  IF  SUCCESS 

ELSE  SET  USER  C-BIT 

AND  EXIT 

SAVE  CURRENT  MAPPING 

SAVE  CURRENT  MAPPING 

SET  UP  FOR  CONVERSION 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

SAVE  VIRTUAL  ADDRESS  OF  BLOCK 

AND  APR  BIAS  (FOR  PLB  STORAGE) 

COPY  MAPPED  ADDRESS 

INITIALIZE  BLOCK 

MORE  TO  INITIALIZE? 

BR  IF  YES 

STORE  CONTROLLER  NUMBER 

STORE  STATION  NUMBER 

STORE  PACKET  SIZE 

STORE  FLAGS  BYTE 

STORE  RECALL  TIMER 

STORE  WINDOW  SIZE 

STORE  RETRY  TIMER 

STORE  SIZE  OF  DTE  ADDRESS  (DIGITS) 

GET  NUMBER  OF  BYTES  IN  DTE  ADDRESS 

GET  SLOCK  ADDRESS 

POINT  TO  DTE  ADDRESS 

GET  DTE  ADDRESS 

STORE  DTE  ADDRESS 

MORE  TO  STORE? 

BR  IF  YES 

STORE  OWNER 

POINT  TO  SVC  LISTHEAD 

SAVE  ADDRESS  OF  PREVIOUS  BLOCK 
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L 


CFGSVC 

CREATED  BV 

MACRO  ON  29 

-JUN-85  AT 

00:07 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

$ERR3M 

0003^0 

R 

#7-K6 

12-378 

$ERR3Z 

00037^ 

R 

#7-147 

13-492 

$EX!T 

- 

000000 

#9-185 

SFAIL 

= 

M7777 

#9-185 

SGPRM 

r 

****** 

9-185 

SHEAOR 

~ 

****** 

GX 

13-439 

14-515 

SLAMDA 

= 

000000 

#9-185 

SLINKX 

= 

****** 

GX 

13-479 

SNUMBR 

- 

000002 

#9-185 

$QSVC 

000000 

RG 

#8-165 

$RAD50 

- 

000016 

#9-185 

SRONLY 

r 

****** 

9-185 

9-185 

9-185 

SSAVRG 

= 

****** 

GX 

12-407 

$SLTA 

- 

****** 

GX 

10-280 

13-426 

SSTRNG 

~ 

000004 

#9-185 

SSUBXP 

= 

000010 

#9-185 

STRIB 

- 

****** 

GX 

10-294 

SXALOC 

~ 

****** 

GX 

13-437 

$$HTIM 

r 

****** 

GX 

13-429 

$$LTIM 

= 

****** 

GX 

13-430 

$$$FLG 

:: 

177777 

#9-185 

$$$KEY 

= 

177777 

#9-185 

.PCHAR 

r 

****** 

GX 

17-637 

.PNUHB 

^ 

**  It*** 

GX 

10-277 
11-336 

10-279 
11-348 

10-281 
11-350 

.PNUMH 

3 

GX 

10-275 

10-289 

11-308 

.PSTCN 

= 

****** 

GX 

10-261 

13-417 

.PSTPT 

- 

****** 

GX 

10-263 

13-419 

.TPARS 

****** 

GX 

8-171 

I  u 

PAGE   5 

CREF       04.00 


CFI 
UN 


10-291 
12-362 
11-320 


10-293  10-294  11-310 

11-334  11-346  12-360 


11-322 


11-324 


rBF4TFn  RV     MAfPn     nrj  ?9-iiim-8S   at   00:07 
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UNTtDF    ACTION   ROUTINES 


CFG 
MAC 


278 

279 

;  SETTMO  -  SET 

UP  TIMEOUT  VALUE 

280 

281 

;  INPUTS: 

282 
283 
28^  OOO'.OO 

RO  -  UNIT  NUMBER 

SETTMO 

:  SAVRG 

<R0,R1> 

285  000^04 

016746 

OOOOOCG 

MOV 

.PNUMB,-(SP) 

286  000410 

042716 

177770 

BIC 

#*C<7>,(SP) 

287  0004U 

022726 

000001 

CMP 

#C1.DCP,(SP)+ 

288  000A20 

001065 

BNE 

40$ 

289  000422 

125100 

000013 

CMP8 

L.UNT(R1),R0 

290  000426 

001003 

BNE 

5$ 

291  000430 

016746 

OOOOOOG 

MOV 

$$DCHA,-(SP) 

292  000434 

000404 

BR 

7$ 

293  000436 

005300 

5$: 

ASL 

RO 

294  000440 

006300 

ASL 

RO 

295  000442 

016045 

000004G 

MOV 

$$DCHA+4(R0),-( 

296  000446 

000315 

7$: 

SWAB 

(SP) 

297  000450 

042716 

177760 

BIC 

#''C<17>,(SP) 

298  000454 

011602 

MOV 

(SP),R2 

299  000456 

006316 

ASL 

(SP) 

300  000460 

052715 

000000' 

ADD 

#SPEEDT,(SP) 

301  000464 

013500 

MOV 

a(SP)+,RO 

302  000466 

016701 

OOOOOOG 

MOV 

$SLTA,R1 

303  000472 

126161 

000003  000002 

CMP8 

L.DLC(R1),L.DDM 

304  000500 

001425 

BEQ 

20$ 

305  00050^ 

012701 

000010 

MOV 

#8.,fi1 

306  000506 

032757 

000004  0000006 

BIT 

#CH.SYN,$$DCHA 

307  000514 

001402 

BEQ 

10$ 

308  000516 

012701 

000012 

MOV 

#10.,R1 

309  000522 

10$: 

CALL 

$DIV 

310  000526 

010001 

MOV 

R0,R1 

31''  000530 

017700 

OOOOOOG 

MOV 

aRDBSZ.RC 

312  000534 

CALL 

$DIV 

313  000540 

052700 

000002 

ADD 

"^''^L.        „ 

314  000544 

042700 

177400 

BIC 

#»C<377>,R0 

315  000550 

000300 

SWAB 

RO 

516  000552 

000411 

BR 

50$ 

317 

318 

;  DDM 

=  DLC 

319 

320  000554 

012700 

000002 

J0$: 

MOV 

#2,R0 

321  000560 

020227 

000017 

CMP 

R2.#17 
30i 

322  000564 

001001 

BNE 

323  000566 

006300 

ASL 

RO 

324  000570 

000300 

30$: 

SiJAB 

RO 

325  000572 

000401 

BR 

50$ 

326 

327 

328 

329  000574 

330 

331  000576 

•  NON- 

DDCMP  LINE 

005000 

40$: 

CLR 

RO 

105067 

000001G 

50$: 

CLRB 

.PNUMB*1 

332  000602 

050067 

OOOOOOG 

BIS 

RC.PNUMB 

333  000606 

RESRG 

<R1,R0> 

334  000612 

RETURN 

SAVE  SOME-  REGISTERS 

GET  CHARACTERISTICS  WORD  1 

ISOLATE  PROTOCOL  BITS 

IS  THIS  A  DDCMP  LINE? 

BR  IF  NO 

IS  THIS  THE  KEY  UNIT? 

BR  IF  NO 

GET  CHARACTERISTICS  WORD  0 

CONVERT  TO  DOUBLE  WORD  INDEX 

SP)";'gET  CHARACTERISTIS  WORD  0 

GET  HIGH  BYTE 

ISOLATE  SPEED  BITS 

SAVE  THEM 

CONVERT  TO  WORD  INuEX 

INDEX  INTO  TRANSLATION  TABLE 

GET  CORRECT  SPEED 

GET  SLT  ADDRESS 
(R1)  ;  IS  THIS  A  COMBINED  DDM/DLC? 

BR  IF  YES 

ASSUME  8  BITS 

IS  TYPE  SYNCH? 

BR  IF  YES 

ELSE  MUST  BY  ASYNCH 

CALCULATE  SPEED/*  BITS 

GET  RESULT 

GET  SIZE  OF  RDB'S 

CALCULATE  TIME  OUT  VALUE 

ADD  FUDGE  FACTOR 

ISOLATE  TIMEOUT  VALUE 

GET  IN  HIGH  BYTE 

AND  FINISH  UP 


GET  NUMBER  OF  BUFFERS  (ASSUME  SPEED  <=:9500) 

EXTERNAL  CLOCK? 

BR  IF  NO 

ELSE  NUMBER  OF  BUFFERS  =  4 

GET  INTO  HIGH  BYTE 

AND  STORE  NUMBER  OF  BUFFERS 


STORE  TIMEOUT  VALUE  (OR  NUMBER  OF  BUFFERS) 
RESTORE  REGISTERS 


rcri  iMT 


cue      CPAM     AfTTn     MATDn     \ir\^     (T^h     Mn 


J  15 

IS-liil-RS    1R:S6      Panp    13 


CPGX2P  - 
MAfRO  DE 

55 
56 
57 
58 
59 
60 
61 
62 
65 
6A 
65 
66 
67 
68 
69 
70 
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CONFIG  FRF  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  00:08  Page  5 

FINITIONS 

.S8TTL  MACRO  DEFINITIONS 


LIBRARV  MACROS 

.MCALL   ISTaT$,STATE$,TRAN$,EMSG$R,NTLER$,SLTDF$,PDVDF$ 


000000 
000000 


PDVDF$ 
SLTDFS 

LOCAL  MACRO  DEFINITIONS 

.MACRO  RtJ$ 

ADD  *2,(SP) 

CLR  SYNERR 
.ENDM 


;  DEFINE  PDV  OFFSETS  AND  SYMBOLS 
;  DEFINE  SLT  OFFSETS  AND  SYMBOLS 


;  RETURN  TO  CALLER+2 

;  INDICATE  NO  SYNTAX  ERROR 


nr\      \,r,C      A7U 


J  16 


J   1 

UlCMEM  -  ALLOCATE  A  BLOCK  OF  ME  MACRO  VO5.03b  Saturday  29-Jun-85  00:01 
liable  of  cot. tents 


CEA 


-  125 
'-  229 


$AMEM 
SDMEM 


ALLOCATE  MEMORY  IN  NTPOOL 

-  DEALLOCATE  MEMORY  FROM  PARTITIOfJ 


K     1 

ALCMEM  -  ALLOCATE  A  BLOCK  OF  ME  MACRO  V05.03b  Saturday  29-Jun-85  00:01  Page  « 


CE/> 


J  2 

CEALL  -  ALLOCATE  BYTES  OF  POOL  MACRO  V05.03b  Saturday  29-Jun-85  00:01  Page  4 


CFG( 
$QC^ 


1 
2 
3 
A 
5 
6 
7 
8 
9 

10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE 
.IDENT 


CEALL  -  ALLOCATE  BYTES  OF  POOL 
/V05.00/ 


COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION; 

GENERAL  ALLOCATION/DE-ALLOCATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
0ECNET-11M-PLJS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


OF      ITS 


CEAiL   -  ALLOCATE  BYTES   OF   POOL     MACRO  V05.03b   Saturday  29-Jun-85 


00:01 


Page  5 


CFG 

TD  A 


J  3 

CfGCNT  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:01 
$QCNT  -  LOOK  FOR  CNTSDF  MACRO 


Page  7 


cfg; 

TPAI 


91 

92 

93 

9/, 

95 

96 

97 

98 

99 

100 

101 

102 

103 

10A 

105 

106 

107 

108 


.SBTTL  SQCNT  -  LOOK  FOR  CNTSDF  MACRO 


$QCNT  -  LOOK  FOR  CNTSDF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-81T=SUCCESS/FAILURE 
R3,RA,R5=DESTROYED 


000000 

000001; 

000006 

000012 

__  000016 

109  000022 

110  000026 

111  000032 
'   00003A 

000040 
000042 


112 
113 

1U 
115 
116 
117 
118 
110 


012705  000000' 
005001 

012702  000000' 

016703  OOOOOOG 

012704  OOOOOOG 

005067  OOOOOOG 

103003 

005367  OOOOOOG 

001401 


SQCNT: 


MOV 

#CNTDF,R5 

CLR 

R1 

MOV 

#CNTKW,R2 

MOV 

CFGSZ,R3 

MOV 

#CF68F,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20S 

DEC 

SYNERR 

BEQ 

101$ 

RETURN 

000044 


20$: 

ERROR  CONDITION 
101$:   EMSGSR  IT 


STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF    CC,    FOUND  WHAT   WE   WERE   LOOKING  FOR 

DID   SYNTAX   ERROR  OCCUR? 

IF    EQ,    YES 


SYNTAX  ERROR 


K  3 
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TDAnC   CTATC   T  ADl  C  C 


CFG 
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CFGDDM  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:02 
TPARS  STATE  TABLES 


Page  7 


CFGI 
LOOl 


90 

91 

92  000052 

93 

9A 

95 

96  000052 

97  000052 

98  000052 

99  000052 
100 

101 

102 

103  000052 

IDA  000052 

105  000052 

106  000052 

107  000052 

108  000052 

109  000052 

110  000052 

111  000052 
r2  000052 
113  000052 
IK  000052 

115  000052 

116  000052 

117  000052 

118  000052 

119  000052 
120 

121 
122 
123 
12A 
125 
126 
127 
128 
129 

130  000052 

131  000052 

132  000052 

133  000052 

134  000052 

135  000052 

136  000052 

137  000052 

138  000052 

139  000052 

140  000052 

141  000052 

142  C00052 
143 

144 
145 
146  000052 


.SBTTL  TPARS  STATE  TABLES 
ISTATS  DDMST.DDHKW 


;  DDM  DEFINITION  (DDMSDF) 

STATES 

DDMDF 

TRANS 

XDDMSDF'/i.DDMNAM 

,,1,SYNERR 

TRANS 

XDLCSDFJt.^.l.SYNERR 

STATES 

DDMNAM 

;  DDM  NAME 

.IF  DF 

MSSMGE 

TRANS 

$RAD50,,D.NAME 

STATES 

TRANS 

<'  ,> 

STATES 

;  FLAG  BITS 

TRANS 

IBITS 

STATES 

;  PRIORITY 

TRANS 

SNUMBR 

STATES 

TRANS 

!END,$EXIT 

TRANS 

<'.> 

STATES 

;  LINE  TABLE  COUNT 

TRANS 

SNUMBR,, P. INC 

STATES 

TRANS 

IEND,$EXIT 

TRANS 

<'  ,> 

STATES 

;  CONTROLLER  TABLE  COUNT 

TRANS 

SNUMBR, SEXIT.D. 

EXT 

.IFF 

TRANS 

SRAD50,SEXIT,D. 

NAME 

.ENDC 

•  FLAG  BIT  DEFINITIONS  PLUS  TRAILING  COMMA 

STATES 

BITS 

TRANS 

J!LF.X2P!'.,BITS1 

,FG.X2P,CFGFLG 

TRANS 

3!ZF.X3PX,BITS1 

,FG.X3P,CFGFLG 

TRANS 

SfiAD50,BITSl 

TRANS 

<',>,$EXIT 

STATES 

BITSl 

TRANS 

<V>,BITS2 

TRANS 

'^8ITS2 

TRANS 

<',>,SEXIT 

STATES 

8ITS2 

TRANS 

!!LF.X2P!i,BITS1 

,FG.X2P,CFGFLG 

TRANS 

!!7F.X3P/1, BITSl 

,FG.X3P,CFGFLG 

TRANS 

$RAD50, BITSl 

;■  CHECK  FOR  END 

OF  SOURCE  LINE 

STATES  END 


CFGDDM  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:02  Page  7-1 


CFG 


CFGDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday 
LOOK  FOR  DTESDF  MACRO 


J  5 

29-Jun-85  00:02 
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1A0 

.SBTTL 

LOOK  FOR  DTESDF  !■ 

1ACR0 

HI 

K2 

+ 

H3 

$QDTE 

-  LOOK 

FOR  DTESDF  MACRO 

UA 

1A5 

INPUTS: 

K6 

NONE 

1A7 

K8 

OUTPUTS: 

1A9 

C-BIT= 

SUCCESS/FAILURE 

150 

R3,R4, 

^5=DESTROYE0 

152  000000 

012705 

000000- 

;QDTE:: 

MOV 

*DTEDF,R5 

STATE  TABLE  ADDRESS 

153  OOOOOA 

005001 

CLR 

R1 

FULL  KEYWORD  MATCH  LENGTH 

15A  000006 

012702 

000000' 

MOV 

#DTEKW,R2 

KEYWORD  TABLE  ADDRESS 

155  000012 

016703 

OOOOOOG 

MOV 

CFGSZ,R3 

RECORD  LENGTH 

156  000016 

012704 

OOOOOOG 

MOV 

#CFGBF,R4 

RECORD  BUFFER  ADDRESS 

157  000022 

005067 

OOOOOOG 

CLR 

SYNERR 

CLEAR  SYNTAX  ERROR  FLAG 

158  000026 

CALL 

.TPARS 

GO  DO  THE  PARSE 

159  000052 

103003 

BCC 

20$ 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

160  00003A 

005367 

OOOOOOG 

DEC 

SYNERR 

DID  SYNIAX  ERROR  OCCUR? 

161  000040 

001401 

BEQ 

101$ 

IF  EO,  YES 

162  000042 

20$: 

RETURN 

163 

164 

165 

166 

167  000044 

•  ERROR 

CONDITION 

101$: 

EMSGSR 

IT 

•  SYNTAX  ERROR 

CFI 
Syi 

$Q! 
$R, 
$S 
SS 


DA 
SS 
$K 
$<■ 
Er 


Wo 
Wo 
Si 
Si 
Op 

El 
SY 


K  5 
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CFGOTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:02  Page  20-2 
Symbol  table 


SQDTE 

OOOOOORG 

SRAD50= 

000016 

$SAVRG= 

*••♦♦•  GX 

$STRNG= 

OOOOOA 

.  ABS. 

177776 

000 

0007A0 

001 

DATA 

0002A4 

002 

SSTATE 

0001 5A 

{){)', 

$KTAB 

000006 

(IDA 

$<STR 

000016 

00') 

Errors 

detected: 

0 

$SUBXP=  000010 
$$$FLG=  177777 
$$$KEY=  000002 


(RW,I,GBL,ABS,0VR) 
(RU,I,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 
(RU,D,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 


$$$R  =  000010 
$$$STA=  000000 
$$$T|V|P=  00001 2R 


005 


.PCHAR=  »*♦♦**  GX 
.PNUMB=  ******  GX 
.PNUMH=   ******   GX 


.PSTCN=  ******  GX 
.PSTPT=  ******  GX 
.TPARS=   ******   GX 


'**   Assembler   statistics 


Work      file      reads:  0 

Work      file   writes:  0 

Size  of  work   file:  16635  Words      C   65   Pages) 

Size  of   core  pool:  17608  Words      (   67  Pages) 

Operating     system:  RSX-11M/PLUS 


SYfcFGDTE!v2;r°32°nAKFGDTE/CR/-SP=SY:[l  J]RSXMCM.SML/ML,n30J10]NETLI8/ML,[130J0]RSXMCM/PA:1,[132J0KFG 


CFGOTE 
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CFGFEA  CREATED  BY     MACRO     ON  29-JUN-85  AT   00:03 

SYMBOL    CROSS  REFERENCE 


J     7 

PAGE   1 

CREf       OA.OO 


CFl 
PVi 


SYMBOL 

VALUE 

REFERENCES 

CFGBF 

-    ****** 

GX 

6-90 

CFGSZ 

r     ****** 

GX 

6-89 

FEADF 

000000 

R 

6-86 

FEAKW 

000000 

RG 

6-88 

#7-106 

FEAST 

000000 

RG 

#7-106 

F.CHI 

000052 

R 

#8-U4 

F.CH2 

000074 

R 

#8-151 

F.FEA 

000116 

R 

#8-158 

F.MOO 

000126 

R 

#8-163 

F.SET 

000136 

R 

#8-168 

SYNERR 

~      ****♦♦ 

GX 

*6-91 

*6-94 

SALPHA 

=  000022 

#7-106 

$ANY 

=  000020 

#7-106 

SBLANK 

=  000006 

#7-106 

SDIGIT 

=  00002A 

#7-106 

SDNUMB 

=  OOOOU 

#7-106 

$EOS 

=  000012 

#7-106 

SERRIT 

=:     **  +  ♦♦* 

GX 

6-100 

SEXIT 

=  000000 

#7-106 

SFAIL 

=   U7777 

#7-106 

SFEATR 

~  ****** 

GX 

»8-158 

•8-163 

$GPRM 

-   ****** 

7-106 

SLAMDA 

=  000000 

#7-106 

SNUMBR 

=  000002 

#7-106 

SQFEA 

000000 

RG 

#6-86 

tRADSO 

=  000016 

#7-106 

SRGNLY 

~    ****** 

7-106 

7-106 

SSTRNG 

=  000004 

#7-106 

SSUBXP 

=  000010 

#7-106 

SSDEV 

-    ****** 

GX 

8-1A4 

8-151 

$$$FLG 

=   M7777 

#7-106 

$$$KEY 

=   }77777 

#7-106 

.PCHAR 

-      ****** 

GX 

8-K4 

8-151 

. PNUMB 

-      ****** 

GX 

8-158 

8-163 

.TPAR5 

r     *  t  ♦*** 

GX 

6-92 

»8-146  *8-153 


•8-168 


7-106 


8-168 


CFGFEA 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:03 
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CFGPVC  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:04 
PVCtDF  ACTION  ROUTINES 


349 
350 
351 
352 

353  000244 

354  000250 

355  000252 

356  000256 
357 

358 

359 

360  000260 

361 

362 

363 

364 

365  000266 

366  000272 

367  000274 

368  000300 
369 

370 

371 

372  000302 

373 

374 

375 

376 

377  000310 

378  000316 

379  000320 

380  000324 

381  000326 

382  000332 

383  000336 
384 

385 

386 

387  000340 

388 

389 

390 

391 

392  000346 

393  000352 

394  000354 

395  000360 

396  000362 

397  000370 
398 

399 
400 
401  000372 


MAXIMUM  BLOCK  SIZE 


103403 
010067 


PVPSZ: 


000014' 


CALL 
BCS 
MOV 
RETURN 


ERRORS 
101$:   EMSGSR 

WINDOW  SIZE 


103403 
010067 


PVWSZ: 


000016' 


CALL 
BCS 
MOV 
RETURN 


CHK6LK 

101$ 

RO.PVCPSZ 


P8 


CHKWND 

101$ 

RO,PVCWSZ 


ERRORS 
i01$:   EMSGSR 


022767 
103410 
016700 
005001 


010067  000020' 


PROCESS  OWNER 
000003  0000006  PVOWN: 
OOOOOOG 


005767 
001007 
105767 
001004 
116767 


OOOOOOG 
000001 G 
OOOOOOG  000035' 


CMP 

BLO 

MOV 

CLR 

CALL 

MOV 

RETURN 


ERRORS 
i01$:   EMSGSR 

FLAGS  BYTE 

PVFG:   TSr 
BNE 
TST8 
BNE 
MOVB 
RETURN 

ERRORS 

l01$:        EMSGSR 


00 


*3,.PSTCN 

101$ 

.PSTPT.RO 

R1 

SCATS 

R0,PVCOWN 


N1 


.PNUMH 

101$ 

.PNUMB+I 

101$ 

.PNUMB.PVCFLG 


N2 


Page  12 


CHECK  FOR  LEGAL  BLOCK  SIZE  VALUE 

BR  IF  ERROR 

SAVE  MAXIMUM  BLOCK  SIZE 


ILLEGAL  MAXIMUM  BLOCK  SIZE 


CHECK  FOR  LEGAL  WINDOW  SIZE  VALUE 
BR  IF  ILLEGAL  VALUE 
SAVE  WINDOW  SIZE 


ILLEGAL  WINDOW  SIZE 


LEGAL  PROCESS  OWNER? 

BR  IF  NO 

POINT  TO  STRING  TO  CONVERT  TO  RAD50 

PERIOD  IS  NOT  A  VALID  TERMINATOR 

CONVERT  TO  RAD50 

SAVE  PROCESS  OWNER  NAME 


ILLEGAL  PROCESS  OWNER  NAME 


LEGAL  VALUE? 
BR  IF  NO 
LEGAL  VALUE? 
BR  IF  NO 
SAVE  FLAGS  BYTE 


ILLEGAL  FLAGS  BYTE  VALUE 


K  8 
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CFGPVC  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:04 
Symbol  table 


Page  21-2 


ALLXCB 

000724R 

ESNRTP 

000005 

I$$RDN= 

000000 

L$AUC 

000042 

AI$CH<= 

000000 

ESNSEG 

000010 

KSAR5  = 

******  GX 

LSCHLS 

000034 

A$$CPS= 

000000 

ESNTIM 

000046 

K$$CNT= 

177546 

LSCHTB 

000030 

A$$PRI= 

000000 

ESNUSE 

000004 

K$$CSR= 

177546 

L$CLEN= 

000044 

A$$TRP= 

000000 

ESSTRT 

000006 

K$$LDC= 

000000 

LSCTEN 

000032 

BIASX 

001610R 

E$$XPR= 

000000 

KS$TPS= 

000074 

LSCTJM 

000040 

CERR  = 

«•**««  GX 

FLAG 

000032R 

002  LDSLP  = 

000000 

LSDTEA 

000020 

CFGBF  = 

»«»*♦»  GX 

FMT8  = 

«♦*♦»*  GX 

LF.ACT= 

100000 

LSDTEL 

000017 

CFGSZ  = 

*♦•••♦  GX 

FMT8B  = 

******  GX 

LF.BR0= 

000400 

LSGLEN 

000134 

CFLIN  = 

»«*«»«  GX 

FM.8  = 

000000 

LF.BWT= 

000007 

L$LEN 

000122 

CF$BLK= 

000102 

FM.8B  = 

000000 

LF.ENA= 

002000 

L$LLCH 

000016 

CHKBLK= 

«***♦*  GX 

FNDHSH 

001452R 

LF.LPe= 

001000 

LSLNK 

000000 

CHKOLM 

000164R 

003 

FNDPDV= 

******  GX 

LF.MDC= 

000100 

LSMCHN 

000036 

CH<PVC 

001050R 

FNDPRT 

001172R 

LF.MFL= 

004000 

LSNETU 

000114 

CHKWND= 

**»*♦*  GX 

F$$LVL= 

000001 

LF.MTP= 

000020 

L$N1RE 

000072 

CHNLMX= 

**♦*♦*  GX 

G$$TPP= 

000000 

LF.PAC= 

000200 

LSNLRE 

000104 

CHNLNO 

OOOOUR 

003 

G$$TSS= 

000000 

LF.RDY= 

040000 

LSNMAC 

000076 

CSDTE 

000012 

G$$TTK= 

000000 

LF.REA= 

010000 

LSNMAS 

000074 

CSFLG 

000015 

G$$URD= 

000000 

LF.SER= 

000040 

L$NMST 

000003 

CIGNAM 

000016 

HF$DLM= 

000002 

LF.TIM= 

000010 

LSNNRE 

000106 

CSLCN 

000010 

HF$GUY= 

000010 

LF.UNL= 

020000 

LINRBY 

000046 

CSLEN 

000016 

HF$HOS= 

000004 

LF.X2P= 

000000 

LSNRCA 

000066 

C$LNK 

000000 

HF$XDF= 

000020 

LLCTA  = 

******  GX 

LSNRFS 

000100 

CSNAM 

000002 

HSHADD= 

******  GX 

LNKEND= 

******  GX 

LSNRPK 

000056 

C$NML 

000002 

HSHSZ  = 

******  GX 

LN$OFF= 

000001 

LSNRRE 

000105 

CSPORT 

OOOOU 

HTIMR 

OOOOOOR 

002  LNSON  = 

000000 

LSNRST 

000107 

CS$CKP= 

000000 

H$CUG 

000010 

LN$SHU= 

000002 

LSNTBY 

000052 

C$$ORE= 

OOOAOO 

H$DST 

000012 

LN.CLO= 

000000 

LSNTCA 

000070 

C$$RSH= 

177564 

H$D29 

000014 

LN.DUM= 

000005 

LSNTFS 

000102 

DLMCTL 

0000A4R 

002 

H$FLG 

000000 

LN.LOA= 

000004 

LSNTPK 

000062 

DLMIND 

000046R 

002 

HSGLEN 

000104 

LN.LOO= 

000003 

LSOMST 

000002 

DLMPDV 

000022R 

002 

HSGLT 

000044 

LN.OAU= 

000003 

L$PCS 

000112 

DLMSLN 

000030R 

002 

HSGNAM 

000050 

LN.OFF= 

000001 

LSPLS 

000110 

DLMSLT 

000024R 

002 

H$GNML= 

000020 

LN.ON  = 

000000 

LSQCNT 

000122 

DLMSTm 

000026R 

002 

H$GPT 

000046 

LN.00P= 

000004 

LSQUEH 

000124 

DLMTLC 

002034R 

HSHITS 

000034 

LN.0PE= 

000001 

LSQUET 

000130 

DLMUNT 

000045R 

002 

HSHLEN 

000044 

LN.REF= 

000002 

LSRTRY 

000007 

DTEDES= 

•♦♦**♦  GX 

HSLBDA 

000070 

LN.SER= 

000002 

L$SLN 

00925^ 

0$$BUG= 

1775K 

HSLBDN 

000072 

LN.STA= 

000017 

L$ST 

000005 

D$$I5K= 

000000 

HSLDTE 

000002 

LN.SUB= 

000360 

LSTCLZ 

000044 

D$$L11  = 

000001 

H$LEN 

000042 

LN.7RI= 

000006 

LtTIM 

000006 

D$$VNC= 

000000 

HSLOTS 

000032 

LP$EIP= 

002000 

LS$ASG= 

000000 

D$$yNM= 

000000 

HSNETW 

000024 

LP$EN8= 

004000 

L$$DRV= 

000000 

END 

0001 5AR 

003 

H$NML  = 

000006 

LP$PCT= 

001400 

L$$P11= 

000001 

ESNBR 

OOOOU 

H$NPT 

000022 

LP$TMR= 

100000 

L$$11R= 

000000 

ESNBS 

000020 

H$PT8 

000020 

LPSUP  = 

010000 

L.COST 

000015 

E$NCR 

00003-; 

H$PVC 

000006 

LP$WTD= 

020000 

L.CTL 

000012 

ESNCS 

000036 

HSRDTE 

000004 

LP$WTS= 

040000 

L.CVA 

177776 

ESNIC 

000044 

H$RNW 

000042 

LS$GDN= 

000004 

L.DDM 

000002 

ESNLEN 

000050 

H$SVC 

000036 

LS$0FF= 

000000 

L.DDS 

000004 

ESNLLA 

000012 

H$TRB 

000016 

LS$STR= 

000002 

L.DLC 

000003 

ESNLNK 

000000 

HSXAVL 

000100 

LSSUP  = 

000003 

L.DLM 

000006 

ESNML 

000040 

HSXBIA 

000074 

LS$WT  = 

000001 

L.DLS 

000010 

E$NMR 

000024 

H$X29C 

000040 

LTIMR 

000002R 

002  L.FLG 

000000 

EINMS 

000030 

INIXCB 

001266R 

LSACHN 

000012 

L.KRBA 

000016 

ESNNOD 

000002 

INVCIR 

001720R 

LSAPVC 

000014 

L.LEN  = 

000022 

E$NR' 

000042 

1$$RAR= 

000000 

LSASVC 

000010 

L.MPF 

000022 

L.NMST 

000020 

L.NSTA 

000014 

L.OWNR 

000021 

L.UNT 

000013 

M$$CRB= 

000124 

M$$CRX= 

000000 

H$$FCS= 

000000 

M$$MGE= 

000000 

M$$NET= 

000000 

M$$OVR= 

000000 

NSADJI 

000072 

N$ADJ2 

000074 

NSCACH 

000062 

N$CRC 

000120 

N$HC1 

000052 

NSHC2 

000056 

N$LV1 

000002 

N$LV2 

000010 

NSMHCl 

000036 

N$MHC2 

000044 

N$PLD 

000016 

N$PRI 

000076 

NSROAI 

000022 

N$R0A2 

000030 

N$RTMX 

000014 

NSRTMl 

000014 

N$RTM2 

000015 

N$RT1 

000000 

N$RT2 

000006 

NSTCTL 

000112 

N$TLC 

000100 

N$TNC 

000114 

N$TRC 

000106 

NSTTCB 

000110 

N$VER 

000066 

NSXLEN 

000124 

N$$ACC= 

000001 

N$$BUF= 

000001 

N$$LDV= 

000001 

N$$MCP= 

000001 

N$$MLL= 

000001 

N$$MOV= 

000010 

N$$NCT= 

000001 

N$$PEM= 

000001 

OWNER 

00011  OR    003 

PCVKU 

OOOOOORG    004 

PDVID  = 

******  GX 

PDVNM  = 

******  GX 

PDVTA  = 

******  GX 

PFLAGS 

000132R     003 

PF$BLK= 

020000 

PF$CLC= 

010000 

PF$DLM= 

100000 

PF$EIP= 

000002 

PF$ENB= 

000001 

PF$FAI= 

004000 

PF$FM1  = 

000100 

CFGPvr  -  INITIAL  CONFIG  FILE  SC 
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CFGSLT  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85 
MACRO  DEFINITIONS 


^oll 


5  Page  5 


CFGS 
MACR 


52 

53 

5^ 

55 

56 

57 

58  000000 

59 

60 

61 

62 

63 

6A 

65 

66 

67 

68 

69 


.SBTTL  MACRO  DEFINITIONS 
LIBRARY  MACROS 

.MCALL  EMSGSR, I  STATS, STATES, TRANS, SLTDFS 


SLTDFS 
LOCAL  MACROS 

REJECT  TPARS  TRANSITION 

.MACRO  REJS 

ADD  #2,(SP) 

CLR  SYNERR 

.ENDM  REJS 


DEFINE  SLT  OFFSETS 


RETURN  TO  CALLER+2 
INDICATE  NO  SYNTAX  ERROR 
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MACRO   DEFINITIONS 


57 
58 
59 

60 
61 
62 
63  000000 


.SBTTL  MACRO  DEFINITIONS 
LIBRARY  MACROS 

.MCALL  EMSG$R,GCL$, I  STATS, NTLERS, STATES, TRANS, SLTDFS 
SLTDFS  ;  DEFINE  SLT  OFFSETS 


K  11 


rFr,<;T4  -  rnwFir,  fiif  scan  AfTin  MACRO  V05.03b  Saturday  29-Jun-85  00:06  Paqe  6 


,,F1LE««ID*«CFGSVC 
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CFG 
SVC 


CCCCCCCC   F 

FFFFFFFFF 

GGGGGGGG 

SSSSSSSS 

vv 

vv 

CCCCCCCC 

CCCCCCCC   F 

FFFFF^FFF 

GGGGGGGG 

SSSSSSSS 

vv 

vv 

CCCCCCCC 

GG 

SS 

vv 

vv 

GG 

SS 

vv 

vv 

GG 

SS 

vv 

vv 

GG 

SS 

vv 

vv 

FFFFFFF 

GG 

SSSSSS 

vv 

vv 

FFFFFFF 

GG 

SSSSSS 

vv 

vv 

GG 

GGGGGG 

SS 

vv 

vv 

GG 

GGGGGG 

SS 

vv 

vv 

GG 

GG 

SS 

vv 

vv 

CC          F 

GG 

GG 

SS 

vv 

vv 

CCCCCCCC    F 

GGGGGG 

SSSSSSSS 

vv 

CCCCCCCC 

CCCCCCCC    F 

GGGGGG 

SSSSSSSS 

vv 

CCCCCCCC 

LL 

SSSSSSSS 

TTTTT 

TTTTT 

LL 

SSSSSSSS 

TTTTT 

TTTTT 

-L 

SS 

-L 

SS 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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SVCSDF  ACTION  ROUTINES 
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471  00105A 

472  001055 

473  001060 

474  001062 

475  001066 

476  001070 

477  001072 

478  001074 

479  001076 

480  001102 

481  001104 

482  001106 

483  001112 

484  001116 
485 

486  001120 

487  001122 
488 

489 
490 

491  001124 

492  001132 

493  001140 


011404 
001405 
010446 

012604 
000770 
010546 
010146 

012600 
012601 


103407 


MOV 

(R4),R4 

BEQ 

30$ 

MOV 

R4,-(SP) 

CALL 

$CEACX 

MOV 

(SP)+,R4 

BR 

20$ 

30$: 

MOV 

R5,-(SP) 

MOV 

R1,-(SP) 

CALL 

SLINKX 

MOV 

(SP)+,RO 

MOV 

(SP)+,R1 

CALL 

SETTLC 

RESMAP 

40$: 

RETURN 

50$: 

BCS 
RETURN 

103$ 

■  ERROR 

101$: 

EMSG$R 

3J 

102$: 

EMSG$R 

3Z 

103$: 

EMSGSR 

3K 

GET  ADDRESS  OF  NEXT  BLOCK  IN  LIST 
BR  IF  END  OF  LIST  -  LINK  IT  HERE 
SET  UP  UNMAPPED  ADDR  FOR  CONVERSION 
CONVERT  TO  MAPPED  ADDRESS 
RETRIEVE  MAPPED  ADDRESS 
GET  NEXT  BLOCK  IN  LIST 
GET  UNMAPPED  ADDR  OF  CURRENT  BLOCK 
GET  ADDRESS  OF  PREVIOUS  BLOCK 
LINK  BLOCK  INTO  LIST 
GET  APR  BIAS  Of  SVC  DESCRIPTOR  BLOCK 
GET  VIRTUAL  ADDRESS  OF  SVC  BLOCK 
SET  UP  TRANSPORT  LINE  COUNTERS 
RESTORE  PREVIOUS  MAPPING 


;  BR  IF  ERROR 


ILLEGAL  OWNER 
PSI  NOT  LOADED 
ALLOCATION  FAILURE 
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rFT.'^vr  -  rnwFir,  fiif  <;rAN  ArTin  MACRO  V05.03b  Saturday  29-Jun-85  00:06  Paqe  14 


L 


cfGSvr 

CREATED  BY  MACRO  ON  29- 

-JUN-85  AT  00 

■07     PA 

MACRO  CROSS 

REFERENCE 

CR! 

MACRO  NAME 

REFERENCES 

ASL$ 

#5-60 

16-612 

BIAS 

#5-100 

15-564 

CALL 

8-171 

10-265 

12-389 

12-397 

13-474 

13-479 

13-482 

14-511 

CTRDFS 

#5-59 

5-62 

DBGTPS 

#9-185 

#9-212 

#9-219 

#9-244 

EMSGSR 

#5-59 

8-179 

10-301 

11-315 

13-491 

13-492 

13-493 

ISTATS 

#5-59 

9-185 

MAP 

#5-94 

15-561 

MTRANS 

#9-185 

NTLERS 

#5-59 
7-147 

7-138 

7-139 

7-140 

PHBDFS 

#5-60 

5-64 

PLBDFS 

#5-60 

5-67 

REJ$ 

#5-75 

10-283 

10-296 

RESMAP 

#5-88 

13-483 

15-582 

RETC 

#5-60 

13-439 

14-515 

RETURN 

8-175 

10-270 

10-284 

10-297 

12-390 

12-398 

12-412 

13-484 

SAVMAP 

#5-82 

13-442 

15-559 

SLTDF$ 

#5-60 

5-65 

SOB 

15-570 

STATES 

#5-59 

9-189 

#9-192 

#9-195 

#9-217 

#9-221 

#9-224 

#9-227 

#9-250 

#9-253 

SVCDFS 

#5-60 

5-66 

SWST<$ 

13-43i 

14-511 

TRANS 

#5-59 

#9-190 

#9-193 

#9-196 

#9-215 

#9-218 

#9-219 

#9-222 

#9-243 

#9-244 

#9-247 

#9-248 

XPDDBS 

#5-59 

5-63 

J  u 


04.00 


12-411 
14-513 

#9-2'i8 
n-329 


7-141 


11-311 
13-487 


#9-198 
#9-230 


#9-199 
#9-225 
#9-251 


CF 
UN 


13-421 
17-639 


11-341 


7-142 


11-325 
14-517 


#9-201 
#9-233 


#9-202 
#9-228 


13-424 


11-355 


7-143 


11-337 
15-583 


#9-204 
#9-236 


#9-205 
#9-231 


13-434  13-437  13-445 


12-367  12-378  12-402 


7-144  7-145  7-146 


11-351 
16-620 


#9-207 
#9-239 


#9-208 
#9-234 


12-363 
17-643 


#9-210 
#9-242 


#9-211 
#9-237 


12-374 


#9-214 
#9-246 


#9-212 
#9-240 


^  1  n**rcr.i  iKfT 
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C 


L_ 
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CFGUNT  -  CONFIG  flLE   SCAN  ACTIO  MACRO  V05.03b  Monday  15-JuL-85   18:56     Page  13 
UNT$DF    ACTION  ROUTINES 


CFC 
C0^ 


336 
337 
338 
339 

•  SECONDARY  CSR 

(UNT$DF) 

000614 

032767 

OOOOOOG 

OOOOOOG 

U.SCSR: 

BIT 

#FL.LMC,$FLAGS   . 

COMIOP  DEVICE? 

3^0 

000622 

001447 

BEQ 

111$ 

IF  EQ,  NO 

3A1 

000624 

016701 

OOOOOOG 

MOV 

UCNT.Rl 

GET  UNIT  COUNT 

3^2 

000630 

032767 

OOOOOOG 

OOOOOOG 

BIT 

*fL.KMX,$FLAGS   , 

COMIOP  MUX  DEVICE? 

343 

000636 

001406 

BEQ 

10$ 

IF  EQ,  NO 

344 

000640 

032701 

000007 

BJT 

#7,R 
1l1$ 

IS  THIS  THE  FIRST,  NINTH,  ETC.? 

345 

000644 

001036 

BNE 
ASR 

IF  NE,  NO 

346 

000646 

006201 

R1 

CONVERT  TO  A  WORD  INDEX 

347 

000650 

006201 

ASR 

R1 

348 

000652 

000401 

BR 

20$ 

349 

000654 

006301 

10$: 

ASL 

Rl 

CONVERT  TO  A  WORD  INDEX 

550 

000656 

016700 

OOOOOOG 

20$: 

MOV 

..SCSR.RO 

ASSUME  SECONDARY  CSR  ALREADY  PRESENT 

351 

000662 

016702 

OOOOOOG 

MOV 

$SLTA,R2 

GET  THE  SLT  ADDRESS 

352 

000666 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#MS.SEC,$MISS 

IS  THE  SECONDARY  CSR  MISSING  ? 

^53 

000674 

001412 

BEQ 

25$ 

IF  EQ,  NO  ..  ALREADY  TESTED  FOR  ONLINE 

354 

000676 

23$: 

CALL 

GETCSR 

GET  THE  CSR  VAI  UE 

355 

000702 

103414 

BCS 

101$ 

..  ILLEGAL  NUMERIC  VALUE 

356 

000704 

126762 

OOOOOOG 

000013 

CMPB 

UCNT,L.UNT(R2) 

IS  THIS  THE  KEY  UNIT  ? 

357 

000712 

001003 

BNE 

25$ 

NO  .. 

358 

000714 

CALL 

$NLCSR 

TEST  FOR  ONLINE 

359 

000720 

103413 

BCS 

121$ 

..  OFFLINE 

360 

000722 

010061 

OOOOOOG 

25$: 

MOV 

R0,$$SCSR(R1) 

STORE  SECONDARY  CSR  VALUE 

361 

000726 

005267 

OOOOOOG 

INC 

UCNT 

INCREMENT  UNIT  COUNT 

362 

000732 

RETURN 

363 

000734 

101$: 

EMSG$R 

1L 

ILLEGAL  SECONDARY  CSR  VALUE 

364 

000742 

111$: 

EMSG$R 

IM 

SECONDARY  CSR  NOT  ALLOWED 

365 
366 
367 
368 
369 
370 

000750 

121$: 

EMSG$R 

ZO 

SECONDARY  CSR  OFFLINE 

;  NO  SECONDARY 

CSR  (UNT$DF) 

000756 

032767 

OOOOOOG 

OOOOOOG 

U.XCSR 

BIT 

*FL.LMC,$FLAGS 

COMIOP  DEVICE? 

371 

000764 

001410 

BEQ 

10$ 

IF  EQ,  NO 

372 

000766 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.KMX,$FLAGS 

COMIOP  MUX  DEVICE? 

373 

000774 

001404 

BEQ 

10$ 

IF  EQ,  NO 

374 

000776 

032767 

000007 

OOOOOOG 

BJT 

*7,UCNT 

IS  THIS  THE  FIRST,  NINTH,  ETC.? 

375 

001004 

001403 

BEQ 

101$ 

IF  EQ,  YES 

376 

001006 

005267 

OOOOOOG 

10$: 

INC 

UCNT 

INCREMENT  UNIT  COUNT 

377 

001012 

RETURN 

378 
379 

001014 

101$: 

EMSG$R 

IN 

SECONDARY  CSR  MISSING 

380 
381 
382 
383 

•  UNIT 

COST  (UNT$DF) 

001022 

026727 

OOOOOOG 

000031 

U.CST: 

CMP 

.PNUMB,*MAXCST 

•  IS  THE  COST  IN  RANGE  ? 

384 

001030 

101026 

BHI 

101$ 

■  IF  HI,  NO  ..  ERROR 

385 

001032 

016700 

OOOOOOG 

MOV 

$SLrA,RO 

•  GET  THE  SLT  ADDRESS 

386 

001036 

016701 

OOOOOOG 

MOV 

UCNT.Rl 

;  GET  UNIT  COUNT 

387 

001042 

005301 

DEC 

Rl 

;  UCNT  HAS  ALREADY  BEEN  INCREMENTED 

388 

C01044 

126001 

000013 

CMP8 

L.UNT(R0),R1 

;  CORRECT  UNT$DF  ? 

389 

390 
39; 

001050 

001015 

BNE 

20$ 

;  IF  NO  -  BRANCH 

001052 

010001 

MOV 

R0,R1 

;  COPY  SLT  ADDRESS 

392 

001054 

032761 

000400 

000000 

SIT 

*LF.BR0,L.FLG'R1 

5  ;  BROADCAST  LINE  ? 

'cr.iiMT    _   rnMcin   c  1 1  P    <;rAM    AfTin   Mfiron   \iOK    fT^h   MnnHAv    IS- 
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r 


_J 
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CONSTANT  DEFINITIONS 


Page  6 


73 

7A 

75 

76 

77 

000007 

78 

000001 

79 

001130 

80 

001130 

.S8TTL   CONSTANT  DEFINITIONS 
CONSTANT  DEFINITIONS 


X2WNMX  =  7 
X2WNMN  =  1 
X2RTMX  =  600. 
X2HLMX  =  600. 


MAXIMUM  WINDOW  SIZE  FOR  X2P$DF 
MINIMUM  WINDOW  SIZE  FOR  X2P$DF 
MAXIMUM  VALUE  FOR  RETRANSMIT  VALUE 
MAXIMUM  VALUE  FOR  HOLDBACK  TIMER 


K  16 

or  nn . no 
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ALCMEM  -  ALLOCATE  A  BLOCK  OF  ME  MACRO  V05.03b  Saturday  29-Jun-85  00:01  Page  4 

1  .UTLE  ALCMEM  -  ALLOCATE  A  BLOCK  OF  MEMORY 

?  .IDENI  /V05.00/ 


CEA 


5 

^ 
8 
9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3'!, 
35 
36 
37 
38 
39 
AO 
A1 
42 
A3 
4A 
45 
46 
47 
48 
49 
50 
51 
52 
55 


COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  f'l  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DEjCRIPTION: 

NETWORK  BUFFER  POOL  ALLOCATION/DE-ALLOCATION  ROUTINES 

DISTRIBUTED  SYS'EMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC->9 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-IIM  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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CE* 
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CFGi 
TPAI 


54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

6A 

65 

66 

67  000000 

68 

69  000000 

70 

71 

72 

73  OOOOOA 

7A  000010 

75  00001A 

76  000020 
11  000022 
78  000026 
79 

80 
81 

82  000030 

83  00003A 
8A  000036 

85  000042 

86  0000A4 

87  000050 

88  000052 

89  000056 
90 

91 


$ALL16  -  ALLOCATE  5INGLEU0RD  ADDRESSABLE  STORAGE  (  SCOM  ) 
INPUTS: 


R1  - 

OUTPUTS: 

C-SIT 


BYTE  COUNT  NEEDED 


SUCCESS/FAILURE 
RO  -    BUFFER  ADDRESS 
ALL  OTHER  REGISTERS  PRESERVED 


ALL16:: 


.IF  DF 
SWSTKS 


R$$11M 
20$ 


.IF  NDF  R$$MPL 


016700  OOOOOOG 

162700  000002 

022700  177776 
00U03 

103011 


103006 

017700  OOOOOOG 

011000 

005260  000006 

000402 

010066  000002 


5$: 


10$: 
20$: 


MOV 

SUB 

CMP 

BEQ 

CALL 

BCC 

.ENDC 

CALL 

BCC 

MOV 

MOV 

INC 

BR 

MOV 

RETURN 

.ENDC 


CEAVL,RO 

#2,R0 

#-2,R0 

5$ 

SlALOCI 

10$ 

;  NDf  R$$MPL 

aALOCB 

10$ 

aHEADR.RO 

(RO),RO 

6(R0) 

20$ 

R0,2{SP) 


ENTER  KERNEL  MODE 


»  GET  CEX  POOL  ADDRRES 


ANY  POOL  LEFT  ? 

IF  NO  BRANCH 

TRY  TO  ALLOCATE  FROM  CEX  POOL 

IF  CC,  SUCCESS 


TRY  TO  ALLOCATE  FROM  RSX  POOL 
IF  CC,  SUCCESS 
GET  USER  MODE  SP 

SET  USER  MODE  C-BIT 

LEAVE  RO  UNCHANGED 

RETURN  BUFFER  ADDRESS  IN  RO 

BACK  TO  USER  MODE  AND  THEN  TO  CALLER 


CEALL  -  ALLOCATE  BYTES  OF  POOL  MACRO  V05.03b  Saturday  29-Jun 


1-85  00:01 
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CFG 
rfjT 


CFGCNT  -  SCAN  CONf  IGURAT  lO'')  flL  MACRO 
TPARS  STATE  TABLES 

121 

122 

123  000052 

12A 

125 

126 

127  000052 

128  000052 

129  000052 

130  000052 

131  000052 

132  000052 

133  000052 
13A  003052 

135  000052 

136  000052 

137  000052 

138  000052 

139  000052 
UO  000052 
1A1 
U2 
U3 

K4  000052 
K5  000052 
U6 
U7 
U8 
1A9 
150 
151 
152 
153 
15'; 
155 
156 
157 
158 
159 
160 
161 
162 
163 
161   000052 


K  3 
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.SBTTL   TPARS  STATE  TABLES 
ISTATS  CNTST.CNTKU 
CONTROLLER  DEFINITION  (CNTSDF) 


CFGI 

TPA: 


STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 


CNTDF 
XCNTSDF%, 


SNUMBR,,C.CTL 


,l,SYNeRR 

CONTROLLER  NUMBER 


SNUMBR,,C.VECT 
SNUMBR,,C.CSR 
IF  NDF  RSSMPL 


VECTOR 


CSR 


STATES 
TRANS 

.IFF 

STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
.ENDC 

STATES 


INTERRUPT  PRIORITY 


SNUMBR,SEXIT,C.PRI 


;  INTERRUPT  PRIORITY 
SNUMBR,,C.PRI 

<'  ,> 

;  UNIBUS  RUN  MASK 
SNUMBR,RCDV,C.URM,1,URMFL 

SLAMDA  ;  ALLOW  FOR  NON-MULTIPROCESSOR  SYSTEMS 

RCDV 
<',>,, MP. URM 

;  RECONFIGURATION  DEVICE 
SALPHA,,C.RCD1 


$ALPMA,SEXIT,C.RCD2 
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CFG 
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CFGDDM  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:02 
TPARS  STATE  TABLES 


Page  7-1 


CFG 
TPA 


H7  000052 

148  000052 

H9 

150  000052 


TRANS   <';>,$EXIT 
TRANS   SE0S,SEXIT 

STATES 


CFGDDM  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:02  Page  8 


CFG 


CFGDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05 
TPARS  STATE  TABLES 

169 

170 

171 

172 

173  000052 

17A 

175  ; 

176 

177  000052 

178  000052 
179 

180  000052 

181  000052 
182 

183  000052 
18A  000052 
185  000052 
186 

187  000052 

188  000052 
189 

190  000052 

191  000052 
192 

193  000052 
19A  000052 
195 

196  000052 

197  000052 
198 

199  000052 

200  000052 
201 

202  000052 

203  000052 
20A  000052 
205 

206  000052 

207  000052 

208  000052 
209 

210  000052 

211  000052 

212  000052 
213 

2U  000052 
215  000052 
216 

217  000052 

218  000052 

219  000052 


K  5 
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.SBTTL   TPARS  STATE  TABLES 
TPARS  STATE  TABLES 

ISTATS  DTEST.DTEKW 

DTESDF 

STATES  DTEDF 
TRANS   3!DTESDFX,,,1,SVNERR 


STATES 
TRANS 

$DJGIT,,DTEAST 

STATES 
TRANS 
TRANS 

DTEAD 
SDJGIT,OTEAD,DTED]G 
<',>,,DTEAEN 

STATES 
TRANS 

ILINID 

STATES 
TRANS 

<'.> 

STATES 
TRANS 

SNUMBR,,HSHTBL 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR,,CNTTIM 

STATES 
TRANS 
TRANS 

IEND,SEXIT,DTEEND 
<'  ,> 

START  OF  DTE  ADDRESS 


DTE  ADDRESS 

END  OF  DTE  ADDRESS 


LINE-ID 


HASH  TABLE  SIZE 


COUNTER  TIMER  VALUE 


STATES 

TRANS  "ON",DTENW,,DE.DN,DTEFLG 

TRANS  "OFF",DTENU,,DE.OFF,DTEFLG 

STATES  DTENW 

TRANS  lEND.SEXIT.DTEEND 

TRANS  <',> 

STATES 

TRANS  $STRNG,,D1ENET 

STATES  END 
TRANS   SEOS.SEXIT 
TRANS   <';>,SEXIT 


;  STATE 


NETWORK  NAME  PARAMETER 


CFGDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:02  Page  11 


CFGDTE     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:03 
SYMBOL  CROSS  REFERENCE 


K  6 


SYMBOL   VALUE 


BIASX 

CERR 

CFGBf 

CFGSZ 

CFLIN 

CHKDTE 

CNTTIM 

COUNT 

CVTBUF 

DEVCTL 

DEVNAM 

DEVUNT 

DTEAOD 

DTEAEN 

DTEALN 

DTEAST 

DTEDES 

DTEDF 

DTEDIG 

DTEEND 

DTEFLG 

DTEKU 

DTEND 

DTENET 

DTEPCK- 

DTEST 

DTNMMX 

OTNTNM 

FMT8B 

FM.8B 

HSHMN 

HSHMX 

HSHSZ 

HSHTBL 

H$LDTE 

H$NETW 

IISAS 

KSAR5 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

I   F.MTO 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 


~    ****** 
=  ****** 


000500  R 

GX 
GX 
******  GX 
******  GX 
000360  R 
000264  R 
000055  R 
000036  R 
000546  R 
000520  R 
00056A  R 
000000  R 
OOOUO  R 
000017 
000052  R 
******  GX 
000000  R 
000114  R 
000342  R 
******  GX 
000000  RG 

000016  R 
000302  R 

000017  R 
000000  RG 
000006 
000027 


~   ****** 

=  000000 
=  000040 
=  001000 

~  ****** 

000214 
000002 
000024 

=  ****** 
-   ****** 

=  100000 
=  000400 
=  000007 
=  002000 
=  001000 
=  000100 
=  004000 
=  000020 
=  000200 
=  040000 
=  010000 
=  000040 
=  000010 
=  020000 


GX 


GX 


GX 


REFERENCES 

#17-409 

8-129 

9-156 

9-155 

8-129 

15-344 
#13-312 
#7-117 
#7-118 
#18-430 
#18-421 
#18-437 
#7-112 
#12-274 
#7-111 
#12-248 
*16-376 

9-152 
#12-262 

14-333 
*12-248 

9-154 
#7-113 
#14-325 
#7-114 
#10-173 
#7-115 
#7-116 

8-129 
#8-129 
#6-84 
#6-85 
»13-302 
#13-292 

16-569 

12-281 

20-500 

16-572 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 


8-130 


8-130 
#16-368 

M2-254 
M9-462 


12-250 
7-112 


#15-344 

#10-173 
12-262 

12-277 

7-116 
12-282 
8-130 
#8-130 
15-295 
13-299 


16-391 


8-151 


8-151 


♦19-470 
19-466 


12-255 
12-249 


CREF 

04 

00 

8- 

132 

8- 

■155 

8- 

152 

8- 

■155 

20-490 


12-276 
12-275 


CF( 
MAI 

MAI 

CAl 
DBI 

em; 

IS 
MTI 
RE, 
RE 

ST, 

TR. 


16-581 


16-584 

12-283 
14-329 
8-131 
#8-131 


U-526 

8-132 
#8-152 


8-153 
#8-155 


CFGDTE 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:05 
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L  6 


CFGFEA     CREATED  BV  MACRO  ON  29-JUN-85  AT  00:03 
MACRO  CROSS  REFERENCE 


K  7 

PAGE  2 

CREF   04.00 


CF 
PV 


MACRO  NAME 

REFERENCES 

CALL 

6-92 

)BGTP$ 

#7-106 

EMSG$R 

#5-60 

6-100 

ISTATS 

#5-60 

7-106 

"1TRAN$ 

#7-106 

REJ$ 

#5-68 

8-U6 

8-153 

RETURN 

6-96 

8-147 

8-154 

8-159 

8-164 

8-169 

STATES 

#5-60 

7-111 

#7-114 

#7-117 

#7-120 

#7-123 

#7-126 

#7-129 

#7-132 

#7-135 

TRANS 

#7-138 
#5-60 

#7-112 

#7-115 

#7-118 

#7-121 

#7-124 

#7-127 

#7-130 

#7-133 

#7-136 

,,f  [LE"1D"CFGPVC 


L  7 


[; 
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CFGPVC  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:0A  Page  13 
PVCSDF  ACTION  ROUHNES 


405 
^O'l 
405 
406 

407  000400 

408  000404 

409  000406 

410  000414 

411  000422 

412  000430 

413  000452 

414  000456 

415  000440 
416 

417  000444 

418  000450 

419  000454 

420  000462 

421  000464 

422  0004^0 
425  000472 

424  000504 

425  000506 
425  000510 

427  000512 

428  000516 

429  000520 

430  000522 

431  000526 

432  000552 

453  000536 

454  000540 
435  000542 

456  000544 

457  000552 

438  000560 

439  000566 

440  000572 

441  000574 

442  000606 

443  000610 

444  000616 

445  0C0620 

446  000624 

447  000626 

448  000652 

449  000656 

450  000640 

451  000652 

452  000660 

455  000662 

454  000666 

455  000672 

456  000676 

457  000702 
458 

459   000704 


016701 
006301 
016167 
016167 
052767 
001005 

105524 
012701 


052767 
001041 

105006 

000474 
010005 
010046 

012600 
010004 
062700 
012702 
012701 
112120 
005502 
003375 
116764 
016764 
016764 

103006 

000421 
032767 
001403 

000402 
110164 

103005 

032767 
001006 
017700 
062700 


103404 


000026' 

OOOOOOG  000000' 
OOOOOOG  000002' 
000001  000032' 


END  OF  PVCSDF  MACRO 


PVEND: 


10$: 


000016 


20$: 


000001  000052' 


000002 
000006 
000056' 


000055'  000015 
000010'  000010 
OOOOOOG  000012 


60$: 


70$: 


80$: 


000001  000032 '  901: 


000014         95$: 
97$: 


000001  000032'  100$: 

OOOOOOG 
000006 

110$: 
120$: 


MOV 

ASL 

MOV 

MOV 

BIT 

BNE 

CALL 

BCS 

MOV 

SWSTK$ 

SAVMAP 

BIT 

BNE 

CALL 

BCC 

RETC 

BR 

MOV 

MOV 

CALL 

MOV 

MOV 

ADD 

MOV 

MOV 

MOVE 

DEC 

8GT 

MOVB 

MOV 

MOV 

CALL 

BCC 

RETC 

BR 

BIT 

BEQ 

CALL 

BR 

MOVB 

CALL 

BCC 

RETC 

BIT 

BNE 

MOV 

ADD 

CALL 

RESMAP 

RETURN 

BCS 


DLMSTA.Rl 

R1 

$$HTIM(R1),HTIMR 

$$LTIM(R1),LTIMR 

#PF.DLM,FLAG 

20$ 

CHKPVC 

101$ 

#C$LEN,R1 

120$ 

#PF.DLM,FLAG 

80$ 

$XALOC 

60$ 

RO 

110$ 

R0,R5 

RO,-(SP) 

$CEACX 

(SP)+,RO 

R0,R4 

#C$NAM,RO 

#PVNAMX,R2 

#PVCNAM,R1 

(R1)+,(R0)+ 

R2 

70$ 

PVCFLG,C$FLG(R4) 

PVCLCN,C$LCN(R4) 

DTEDES,C$DTE(R4) 

FNDPRT 

90$ 

RO 

100$ 

#PF.DLM,FLAG 

95$ 

DLMTLC 

97$ 

R1,C$P0RT(R4) 

ALLXCB 

100$ 

RO 

#PF.DLM,FLAG 

110$ 

aPSIPT,RO 

#H$PVC,RO 

LNKEND 


102$ 


GET  STATION  NUMBER 

MAKE  IT  A  WORD  INDEX 

GET  HELLO  TIMER 

AND  LISTEN  TIMER 

IS  THIS  A  DLM  PVC? 

BR  IF  YES 

CHECK  FOR  VALID  PVC  ID 

BR  IF  ERROR 

GET  LENGTH  OF  BLOCK  TO  ALLOCATE 

ENTER  SYSTEM  STATE 

SAVE  PREVIOUS  MAPPING 

IS  THIS  A  DLM  PVC? 

BR  IF  YES 

ALLOCATE  A  BLOCK  FROM  NETWORK  POOL 

BR  IF  SUCCESSFUL  ALLOCATION 

ELSE  SET  USER  C-BIT 

AND  EXIT 

SAVE  UNMAPPED  ADDRESS  OF  ALLOCATED  BLOCK 

SET  UP  UNMAPPED  ADDRESS  FOR  CONVERSION 

CONVERT  TO  APRS  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

SAVE  MAPPED  ADDRESS 

POINT  TO  CIRCUIT  ID  FIELD 

GET  LENGTH  OF  CIRCUIT  ID 

POINT  TO  SPECIFIED  CIRCUIT  ID 

STORE  CIRCUIT  ID 

MORE  TO  STORE? 

BR  IF  YES 

STORE  FLAGS  BYTE 

STORE  LOGICAL  CHANNEL  NUMBER 

STORE  DTE  DESCRIPTOR  ADDRESS 
FIND  FREE  PORT  ENTRY 
BR  IF  FOUND  ONE 
ELSE  SET  USER  C-BIT 
AND  EXIT 

IS  THIS  A  DATA  LINK  MAPPING  PVC? 
BR  IF  NO 
ELSE  STORE  PORT  NUMBER  IN  COUNTER  BLOCK 

STORE  PORT  NUMBER 

ALLOCATE  X25  CIRCUIT  BLOCK 

8R  IF  SUCCESS 

ELSE  SET  USER  C-BIT 

IS  THIS  A  DLM  PVC? 

BR  IF  YES  -  NO  PVC  NAME  BLOCK  CREATED 

POINT  TO  PSI  HOME  BLOCK 

POINT  TO  PVC  BLOCK  LISTHEAD 

LINK  CURRENT  BLOCK  (IN  R5)  TO  LIST 

RESTORE  PREVIOUS  MAPPING 


BR  IF  ERROR 


CFGPVf   -   INITIAL   CONFIG   FILE   SC   MACRO  V05.05b   Saturday   29-Jun-85 
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CFGPVC  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:04  Page  21-3 
Symbol  table 


CFG' 
tQSl 


PF$FMc  = 

000200 

PVSTA 

002000R 

PF$OFF= 

000000 

PVUSZ 

000266R 

PF$RM1= 

000020 

PX$BLK= 

000040 

PF$RM2= 

OOOOAO 

PX$DLM= 

000200 

PF$RVR= 

000010 

PX$SVC= 

000100 

PFtSTA= 

000004 

P$CHN 

000004 

PF$SVC= 

040000 

P$CNT 

000005 

PF$UP  = 

000004 

PSCTR 

000034 

PF.DLM= 

000001 

PSDRCT 

000015 

PORTNO 

000004R 

002 

PSDRTR 

000036 

PRTADD 

000006R 

002 

PSFLG 

000012 

PR$BED= 

000200 

P$FWD 

000030 

PR$BEU= 

000100 

PSICCB 

000046 

PR$BRD= 

000040 

P$IPL 

000014 

PR$BRU= 

000020 

P$LCD 

000002 

PR$[)WN= 

000002 

P$LEN 

000052 

PR$LCC= 

000010 

P$LST 

000000 

PR$MOP= 

000004 

PSNRNI 

000040 

PRSUP  = 

000001 

PSOCCB 

000050 

PSIPT  = 

»***«*  GX 

P$PFQ 

000006 

PSZ 

000044R 

003 

PSPKSZ 

000044 

PS$CHR= 

000016 

PSRMXl 

000016 

P3$FA1= 

000014 

P$RMX2 

000020 

PS$NTI  = 

000006 

PSRPRI 

000042 

PS$OFF= 

000000 

PSRTIM 

000003 

PS$STR= 

000002 

PSSTAl 

000022 

PSSUP  = 

000012 

P$STA2 

000023 

PS$VER= 

000010 

P$TIM 

000010 

PS$WT  = 

000004 

PSTSCT 

000026 

PT$BRO= 

000200 

PSTSIZ 

000024 

PT$DRT  = 

000100 

P$TYP 

000001 

PT$END= 

000004 

P$$P45= 

000000 

PT$LV1= 

000002 

P$$URD= 

000000 

PT$LV2= 

000001 

Q$$OPT= 

000010 

PT$PH3= 

000010 

RF.CTL= 

000003 

PT$XAR= 

000020 

RF.LD1= 

000040 

PVCCTM 

00001 2R 

002 

RF.LD2= 

000100 

PVCDF 

OOOOOOR 

003 

RF.T1M= 

177400 

PVCFLG 

000035R 

CJ2 

RF.TI*I0= 

000400 

PVCLCN 

000010R 

002 

RF.WFC= 

000200 

PVCNAM 

000036R 

002 

RF.WTD= 

000020 

PVCOWN 

000020R 

002 

RF.WTM= 

000030 

PVCPRT 

000034R 

002 

RF.WTS= 

000010 

PVCPSZ 

000014R 

002 

RTSPC  = 

****** 

PVCST 

OOOOOORG 

003 

R$RO  = 

000002 

pv:t 

000220R 

R$R1   = 

000004 

PVCTL 

001726R 

R$R2  = 

000006 

PVCWSZ 

000016R 

002 

R$R3  = 

000010 

PVDLM 

001630R 

R$R4  = 

000012 

PVEND 

000400P 

R$R5  = 

000014 

PVFG 

000346R 

R$$DER= 

000000 

PVLCN 

000162R 

R$$K11= 

000001 

PVNAM 

000056R 

R$$SND= 

000000 

PVNAMX= 

000006 

R$$11M= 

000000 

PVOwN 

000310R 

SF.ACT= 

000200 

PVPSZ 

000244R 

GX 


SF.ENA= 

000100 

VSLEN 

000022 

XSTIMR 

SF.LP8= 

000004 

V$RCV 

000002 

XSTXI 

SF.MFL= 

000040 

V$XHT 

000012 

XSTXQ 

SF.PAC= 

000020 

V$$CTR= 

001000 

XSTYP 

SF.REA= 

000010 

WNDSZ 

000066R 

003  XSUSR 

SF.SER= 

000001 

XA$NCO= 

000020 

XSWAQ 

SF.SVC= 

000002 

XA$RR  = 

000200 

XSUSZ 

SF.UNL= 

000040 

XA$UCL= 

000040 

X$$DBT= 

SLTMA  = 

******  GX 

XA$URE= 

000100 

ZTIME  = 

SPACE  = 

000040 

XF$NC0= 

000020 

Z.DAT  = 

SP$P4 

000050RG 

002  XF$0FF= 

000200 

Z.MAP  = 

SYNERR= 

******  GX 

XF$0RI= 

000002 

Z.NAM  = 

S$$URG= 

000000 

XF$0TI= 

000001 

$ALPHA= 

S$$YSZ= 

007600 

XF$TIL= 

000010 

$ANY  = 

S.COST 

000001 

XF$TIR= 

000004 

$BLANK= 

S.FLG 

000000 

XT$CHN= 

000100 

$CAT5  = 

S.LEN 

000004 

XT$DGR= 

000002 

$CEACX= 

S.NMST 

000002 

XT$FAS= 

000200 

$DIG1T= 

S . OWNR 

000003 

XT$INC= 

000004 

$DNUMB= 

TSFLAG 

000044 

XT$OUC= 

000010 

$EOS  = 

T$LIF 

000013 

XT$PVC= 

000001 

SERRNO 

TSLIFL 

000013 

X$ABQ 

000076 

SERRNI 

TSLJFO 

000013 

XSALF 

000055 

$ERRN2 

TSLIFS 

000013 

X$AUC 

000056 

$ERRN3 

T$LIN 

000000 

X$C'.EN= 

000025 

SERROO 

TSLIPS 

000006 

XSCTIM 

000060 

$ERR05 

T$LLD 

000012 

XSDIAG 

000003 

$ERR09 

TSLLDC 

000045 

X$DTE 

000024 

$ERRP8 

TSLLDL 

000012 

X$FLG 

000014 

$ERR1T= 

TSLLDO 

000012 

XSGLEN 

000106 

SEXIT  = 

TSLLDS 

000012 

X$LCN 

000026 

SFAIL  = 

TSLLEN 

000046 

X$LEN 

000106 

$HEADR= 

TSLOPR 

000002 

X SHOWN 

000023 

$LAMDA= 

TSLTCL 

000024 

XSNLRE 

000052 

$NUMBR= 

TSLTIM 

000026 

XSNNRE 

000054 

SQPVC 

TSLTPR 

000014 

XSNPL 

000006 

$RAD50= 

TSLTPS 

000020 

XSNPR 

000007 

SSLTA  = 

TSNAPL 

000004 

XSNRBY 

000032 

$STRNG= 

T$NFE 

000000 

XSNRPK 

000042 

$SUBXP= 

TSNLEN 

000010 

XSNRRE 

000053 

STRIB  = 

TSNNUL 

000002 

XSNTBY 

000036 

$XALOC= 

TSNOPL 

000006 

XSNTPK 

000046 

$X3DBS= 

TSNRNI 

000042 

XSPKSZ 

000016 

$X3DWS= 

TSNRPL 

000005 

X$PR 

000011 

$$HTIM= 

TSNRUL 

000007 

XSPRT 

000021 

$$LTIM= 

T$NVR 

000001 

X$PS 

000010 

$$$FLG= 

TSRPRI 

000040 

XSRPR 

000013 

$$$KEY= 

T$SVC 

000034 

XSRPS 

000012 

$$$R  = 

T$T5 

000030 

XSRTRY 

000002 

$$$STA= 

T$T6 

000032 

X5RXI 

000104 

$$$TMP= 

T$$KMG= 

000000 

XSRXQ 

000072 

.PNUMB= 

T$$MIN= 

000000 

X$SS 

000004 

.PNUMH= 

VF$RCV= 

100000 

X$ST 

000005 

.PSTCN= 

VF$XMT= 

040000 

XSTCLZ 

000030 

.PSTPT= 

V$FLG 

000000 

XSTIMC 

000001 

.TPARS= 

GX 
GX 
GX 
GX 


GX 
GX 


000000 
000102 
000066 
000015 
000022 
000062 
000020 
000000 
****** 
****** 
****** 
****** 
000022 
000020 
000006 

*t**»* 
****** 

000024 

000014 

000012 

000052R 

0001 12R 

000146R 

000200R 

000300R 

000334R 

000370R 

000244R 

******  GX 

000000 

177777 

******  GX 

000000 

000002 

OOOOOORG 

000016 

****** 

000004 

000010 

****** 

****** 

****** 

****** 

****** 

****** 


GX 


GX 
GX 
GX 
GX 
GX 
GX 


177777 
000002 
000010 
000000 
00001 3R 
******  GX 
******  GX 
******  GX 
******  GX 
*»««**  GX 


002 
002 
002 
002 
002 
002 
002 
002 


005 


CFGPVC 
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SQSLT  -  LOOK  FOR  SLTSDF  MACRO 


Page  6 


CFGS 
CONS 


71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A  000000 

85  000004 

86  000006 

87  000012 

88  000016 

89  009022 

90  000026 

91  000032 

92  000036 

93  000042 

94  000044 

95  000050 

96  000052 
97 

98 

99 
100 
101  000054 


.S8TTL  SQSLT  -  LOOK  FOR  SLTSDF  MACRO 

SQSLT  -  LOOK  FOR  SLTSDF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-eiT:=SUCCESS/FAILURE 
R3,R4,R5=DESTROYED 


012705 
005001 
012702 
016703 
012704 
005067 
005067 
005067 

103003 
005367 

001401 


000000' 

000000' 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 


SQSlT:: 


MOV 

#SLTDF,R5 

CLR 

R1 

MOV 

#SLT)(U,R2 

MOV 

CFGSZ,R3 

MOV 

#CFGBF,R4 

CLR 

SYNERR 

CLR 

.N8fiA 

CLR 

.RPfil 

CALL 

.TPARS 

BCC 

20S 

DEC 

SYNERR 

8E0 

101$ 

RETURN 

20S: 

ERROR  CONDITION 
iOIS:   EMSGSR  IT 


STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

CLEAR  BROADCAST  ROUTER  ADJACENCIES 

CLEAR  ROUTER  PRIORITY 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EQ,  YES 


SYNTAX  ERROR 


CFGSLT 


SCAN  CONFIGURATION  FIL  MACRO  V05.03b 


Saturda; 


L  10 

29-Jun-85  00:05 


Page  7 


r^G' 
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CfGSTA  -  CONFIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  00:06  Page  6 
CONSTANT  DEFINITIONS 


CFG 
Tab 


65 
66 
67 
68 
69 
70 


.S8TTL  CONSTANT  DEFINITIONS 


000031 


CONSTANTS 

•1AXCST  =  25. 


;  MAXIMUM  LINE  COST  ALLOWED 


fcfiSTA  -  CONFIG  FIlE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  00:06  Page  7 


CFG 


<  1? 

CFGSVr  -  CONFIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  00:06 

Table  ot  contents 

5-  5A  MACRO  DEFINITIONS 

6-  109  LOCAL  DATA 

7-  155  ERROR  MESSAGES 

8-  152  $QSVC  -  LOOK  FOR  SVCSDF  MACRO 

9-  181  SVCtDF  STATE  TABLE 
10-  255  SVC$DF  ACTION  ROUTINES 
U-  495  FNDOWN  -  FIND  SVC  OWNER'S  PDV  INDEX 

15-  519  SETTLC  -  SET  UP  TRANSPORT  LINE  COUNTERS 

16-  585  PCKBCD  -  PACK  STRING  OF  DIGITS  IN  BCD  FORMAT 

17-  622  STRNXT  -  STORE  NEXT  DIGIT 


CFC 

FNt 


L  12 


CFGSVC 
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U 
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^95 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 


001146 
001152 
001154 
001160 
001162 
001174 
001200 


.SBTTL      FNDOWN  -   FIND   SVC   OWNER'S   PDV   INDEX 

h 

FNDOWN  -  FIND  PDV  INDEX  OF  SVC  OWNER 

INPUTS: 

R2  -  RAD50  PROCESS  NAME  OF  SVC  OWNER 

OUTPUTS: 

CARRY  CLEAR: 

R2  -  PDV  INDEX  OF  PROCESS 
CARRY  SET: 

PDV  INDEX  OF  OWNER  NOT  FOUND 


010102 
103005 
110267  000020' 


FNDOWN: 

SWSTKS 

20$ 

MOV 

R1,R2 

CALL 

aPDVID 

BCC 

10$ 

RETC 

RO 

10$: 

MOVB 

R2,0WNSVC 

20$: 

RETURN 

ENTER  SYSTEM  STATE 

GET  PROCESS  NAME  TO  LOOK  FOR 

GET  PDV  INDEX 

BR  IF  FOUND  IT 

ELSE  SET  USER  C-BIT 

SAVE  OWNER  PDV  INDEX 


L  13 
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L_ 


"FILE'MD'HFGUNT 


K  U 


CF 

UN 


CCCCCCCC   F 

FFFFFFFFF 

GGGGGGGG 

UU 

UU 

NN 

NN 

TTTTl 

TTTTT 

CCCCCCCC   F 

FFFFFfFFF 

GGGGGGGG 

UU 

UU 

NN 

NN 

TTTTl 

TTTTT 

GG 

UU 

UU 

NN 

NN 

GG 

UU 

UU 

NN 

NN 

GG 

UU 

UU 

NNNN 

NN 

GG 

UU 

UU 

NNNN 

NN 

FFFFFFF 

GG 

UU 

UU 

NN  NN  NN 

FFFFFFF 

GG 

UU 

UU 

NN  NN  NN 

GG 

GGGGGG 

UU 

UU 

NN 

NNNN 

GG 

GGGGGG 

UU 

UU 

NN 

NNNN 

GG 

GG 

UU 

UU 

NN 

NN 

GG 

GG 

UU 

UU 

NN 

NN 

CCCCCttC    F 

GGGGGG 

UUUUUUUUUU 

NN 

NN 

CCCCCCCC    F 

GGGGGG 

UUUUUUUUUU 

NN 

NN 

LL 

SSSSS5SS 

TTTTTTFTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

r  c  r.,  iMT    -    r  DMC  1  r.    cup 


jrTin    Miron    WflS    n^h    MnnHAv    1S- 


L  U 

■Jul-RS    1R:SiS 


u. 


L_ 
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UNTSDF  ACTION  ROUTINES 


CF( 
L0( 


395  001062 
39A  00106^ 
395  001070 
396 

397  001076 

398  001 10^ 
399 

AOO  001106 

A01 

^02 

A03 

AOA 

A05  00111A 

A06  00111A 

A07  001122 


001A05 
062701 
116761 


000022 
OOOOOOG  000001 


116760  OOOOOOG  U00015 


10$: 
20$: 

101$: 


BEO 

ADD 
MOVB 

Move 

RETURN 


10$ 

*L.MF'f,R1       ; 

.PNUMB,S.C0ST(R1) 


IF  NO  -  BRANCH 

POINT  TO  STATION  EXTENSION 

;  STORE  COST 


EMSG$R  YP 


PNUMB,L.COST(RO)  ;  STORE  UNIT  COST 
;  ILLEGAL  LINE  COST 


016767  OOOOOOG  OOOOOOG 


UNIT  DEAD  POLLING  RATIO 
U.OPR: 


MOV 
RETURN 


.PNUM8,$$DPR 


SAVE  DEAD  POLLING  RATIO 


L  15 
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LOCAL  DATA 


Page  1 


82 
85 
8A 
85 
86 

87  000000 

88  000002 

89  000003 
90 


.SBTTL   LOCAL  DATA 
LOCAL  DATA 


X2DEV: 
X2CTL: 
X2UNT: 


.8LKW 
.8LKB 
.BLKe 


DFVICE  NAME 
CONTROLLER  NUMBER 
UNIT  NUMBER 


MArnn     wnc     f\iv^     c-it-.ixi^? 


I,  16 

nn.na     Da 


Air-^M 


MlOCATE  a  block  of  me  macro  >/05.03b  Saturday  29-Jun-85  00:01  Page  5 


CEA 


6A 
65 
66 
67 

68 
69 

70 

71 

n 

7? 
74 

75 
76 
77 

78 
79 
80 
81 
8? 
83 
84 
85 
86 
87 
88 
89 
90 

Q' 

92 
93 
94 
95 

16 

<,7 

98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
'08 
109 
110 
111 


THESE  ROUTINES  WERE  ADAPTED  FROM  THE  RSXl ID/IAS  MEMORr 

ALLOCATION  ROUT.NES  .FMEM  8  .FRSEG  (  EM09.MAC  )  FOR 
USE  BY  THE  DISTRIBUTED  SYSTEMS  GROUP  ON  THEIR 
RSX  FAMILY  PRODUCTS.  THE  COMMENTS  IN  THfSE  MODULES  ARE 
VERY  HARD  10  UNDERSTAND.  THE  VIRTUAL  MEMORY  ALLOCATION 
ROUTINE  COMMENTS  HAVE  BEEN  REWRITTEN  AND  IT  IS  REC- 
COMMENDEO  THAT  IF  THE  FLOW  OF  THIS  CODE  MUST  BE  FOLLOW- 
ED, THAT  THOSE  C.  " 5NT  BE  USED  AS  A  GUIDE  (  VAL22.MAC  ). 

THE  G108AL  SYMBOL  SQBIAS  IS  THE  LISTHEAD  FOR  A  LINKED  LIST 
OF  FREE  SEGMENTS  OF  MEMORY.  THE  CHAIN  POINTERS  ARE 
KEPT  IN  THE  FIRST  WORD  OF  EACH  SEGMENT  AND  ARE  THE 
REAL  MEMORY  ADDRESS  MODULO  64  (  1/64  REAL  MEMORY 
ADDRESS).  THIS  IS  THE  VALUE  THAT  SHOULD  BE  PUT  INTO 
THE  SCRATCH  APR  TO  MAP  TO  THE  NEXT  SEGMENT.  THE 
SECOND  WORD  OF  EACH  SEGMENT  IS  THE  SIZE  IN  32  WORD 
BLOCKS  OF  THE  CURRENT  SEGMENT.  IT  IS  IMPORTANT  TO 
UNDERSTAND  THAT  ALL  SEGMENTS  MUST  BE  ALLIGNED  ON  32 
WORD  BOUNDARYS,  BUT  THAT  THE  LISTHEAD  SQBIAS  IS  NOT 
SO  CONSTRAINED.  THIS  CAUSES  SOME  EXCEPTION  TESTING 
IN  THESE  ROUTINES. 

INITIALLY  SQBIAS  SHOULD  CONTAIN  THE  biAS  (  1/64  PHYSICAL 
MEMORY  ADDRESS  )  FOR  THE  BASE  OF  THE  MEMORY  TO  BE 
AS  A  BUFFER  POOL.  THIS  POOL  CAN  BE  ALLOCATED  IN  THE 
SYSTEM  BY  EITHER  USING  A  PARTITION  OR  TASK.  ADDITIONALLY 
THE  FIRST  WORD  OF  THE  PARTITION/TASK  SHOULD  BE  ZERO 
(  LAST  SEGMENT  )  AND  THE  SECOND  WORDTHE  SIZE  OF  THE 
PARTITION/TASK  IN  32-UORD  BLOCKS. 

INITIALLY: 


SQBIAS 


0   I 
SIZE  I 


REST 

OF 

FREE 

SPACE 


AFTER  THESE  TWO  ROUTINES  HAVE  BEEN  RUNNING  FOR  AWHILE,  THE 
THE  PARTITION/TASK  WILL  PROBABLY  CONTAIN  A  LINKED 
LIST  OF  FREE  SEGMENTS  OF  MEMORY.  THE  LISTHEAD  SQBIAS 
IS  MAINTAINED  BY  THESE  ROUTINES  SO  THAT  IT  IS  ALWAYS 
A  POINTER  TO  TO  FIRST  FREE  SEGMENT  OF  MEMORY.  ONE 
SURE-FIRE  WAY  TO  CRASH  THE  SYSTEM  IS  TO  MODIFY  SQBIAS 
SINCE  THIS  ROUTINE  CANNOT  TELL  WHETHER  OR  NOT  IT 
IS  PROCESSING  GARBAGE  AND  CAN  ALLOCATE  MEMORY  FROM 
ANYWHERE  IN  THE  REAL  ADDRESS  SPACE. 

THESE  ROUTINES  ALWAYS  AGGLOMERATE  SEGMENTS  WHEN  THEY  ARF 
CONTIGUOUS.  THESE  ROUTINES  ARE  NOT  REENTRANT. 

NOTE  THAT  IT  IS  THE  CALLERS'  RESPONSIBILITY  TO  SET  UP  THE 

ADDRESS  BIAS  AND  SIZE  OF  SEGMENTS  BEING  RETURNED  TO 
THE  POOL  CORRECTLY.  IF  EITHER  VALUE  IS  INCORRECT,  IT 


■^L",  -  i. 


n  1 
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CEi 


CEALL   - 

ALLOCATE 

BYTES 

OF   POOL     M 

93 

9A 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

000060 

106 

107 

000060 

108 

109 

00006-; 

110 

111 

112 

00006-; 

016703 

OOOOOOG 

113 

000070 

162703 

000002 

IK 

00007A 

027700 

OOOOOOG 

115 

000100 

10U0A 

116 

117 

118 

119 

000102 

016703 

OOOOOOG 

120 

000106 

162703 

000002 

121 

000112 

122 

000116 

123 

12A 

125 

L  2 
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$DEA16  -  DE-ALLOCATE  SINGLEWORD  ADDRESSABLE  STORAGE  (  SCOM  ) 
INPUTS: 


CFGi 
CNT' 


RO 

Rl 


BUFFER  ADDRESS 
BYTE  COUNT 


OUTPUTS: 

C-BIT  WILL  BE  SET  IF  BUFFER  ADDRESS  IS  ILLEGAL. 


.ENABL   LS8 


$DEA16:: 


.IF  DF 
SWSTKS 


R$$11M 
20$ 


SDECEX:: 


.IF  NDF  R$$MPL 


lOS: 
20$: 


MOV 
SUB 
CMP 
BLOS 

.ENDC 

MOV 

SUB 

CALL 

RETURN 

.ENDC 


CEAVL,R3 
#2,R3 
aEXSIZ.RO 
10$ 


CRAVL,R5 

#2,R3 

aDEACl 


ENTER  KERNEL  MODE 


ASSUME  CEX  POOL 
GET  FREE  POOL  LISTHEAD 
IS  BUFFER  FROM  CEX  POOL? 
IF  LOS,  YES 


ELSE  USE  RSX  POOL 

GET  FREE  POOL  LISTHEAD 

RETURN  BUFFER  TO  APPROPRIATE  POOL 

BACK  TO  USER  MODE  AND  THEN  TO  CALLER 


.DSA8L   LS8 


CEALL   -  ALLOCATE   BYTES   OF   POOL     MACRO  V05.03b   Saturday  29-Jun-85  00:01      Page  7 


:§! 


CFG 
rKiT 
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CNT$DF  ACTION  ROUTINES 


Page  9 


CFG 
ACT 


166 
167 
168 
169 

170  000052 

171  000060 

172  000062 

173  000072 
174 

175 
176 

177  000074 

178  000102 

179  000104 

180  000110 

181  000112 

182  000120 

183  000122 

184  000130 

185  000132 

186  000140 

187  000146 

188  000150 

189  000156 
190 

191 
192 
193 

194  000164 

195  000172 

196  000174 

197  000200 
198 

199 
200 
201 
202 
203 
204 
205 

206  000202 

207  00'"''06 

208  Ci 

209  00^. 

210  000,- ..: 

211  000224 

212  000232 
213 

214 
215 

216  000240 

217  000246 

218  000250 

219  000254 

220  000256 

221  000264 

222  000266 


126767 
001404 


032767 
001421 
005767 
001017 
032767 
001013 
026767 
103012 
016767 
042767 


032767 
001413 

103411 


.SBTTL   CNTSDF  ACTION  ROUTINES 
CONTROLLER  NUMBER  (CNTSDF) 


OOOOOOG  OOOOOOG  C.CTL: 


10$: 


CMPB 
BEQ 
REJ$ 
RETURN 


.PNUMB.CTL 
10$ 


INTERRUPT  VECTOR  (CNT$DF) 
OOOOOOG  OOOOOOG  C.VECT 
OOOOOOG 


000003  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


10$: 

101$: 

111$: 


BIT 

BEQ 

TST 

BNE 

BIT 

BNE 

CMP 

BHIS 

MOV 

BIC 

RETURN 

EMSG$R 

EMSGSR 


CSR  (CNT$DF) 


OOOOOOG  OOOOOOG  C.CSR: 


BIT 
BEQ 
CALL 
BCS 


.  IF  DF   R$$MPL 


#MS.VCT,$MISS 

10$ 

.PNUMH 

101$ 

#3,.PNUMB 

101$ 

.PNUMB,$MXVCT 

111$ 

.PNUMB,$$VECT 

#MS.VCT,$HISS 

IC 
ID 


#MS.CSR,$MISS 

10$ 

GETCSR 

101$ 


103411 
010067 
042767 


032767 
001424 
005767 
001022 
026727 
101016 
016700 


OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 


5$: 

10$: 

101$: 

111$: 


TST8 
BNE 

.ENDC 

CALL 

BCS 

MOV 

BIC 

RETURN 

EMSG$R 

EMSG$R 


51NCPU 
5$ 


$NLCSR 
111$ 

RO,$$CSR 
#MS.CSR,$MISS 

IE 
Z2 


INTERRUPT  PRIORITY  (CNT$DF) 


OOOOOOG  C.PRI: 


000007 


BIT 
BEQ 
TST 
BNE 
CMP 
BHI 
MOV 


#MS.PRI,$MISS 

10$ 

.PNUMH 

101$ 

.PNUM8,*7 

101$ 

.PNUMB,RO 


REJECT  TRANSITION  IF  NO  MATCH 


IS  VECTOR  MISSING? 

IF  EQ,  NO 

MAKE  SURE  IT'S  A  VALID  VECTOR 


AND  THAT  IT'S  IN  OUR  SYSTEM 

STORE  VECTOR  VALUE 
IT'S  NO  LONGER  MISSING 

ILLEGAL  VECTOR  VALUE 
VECTOR  NOT  IN  SYSTEM 


IS  CSR  MISSING? 
..  NO 

GET  CSR  ADDRESS 
..  ILLEGAL  VALUE 


IS  THIS  A  MULTI-PROCESSOR  SYSTEM  ? 
IF  NE,  DON'T  CHECK  CSR  -  YET 


TEST  FOR  ONLINE 

..  OFFLINE 

STORE  CSR  VALUE 

IT'S  NO  LONGER  MISSING 

ILLEGAL  CSR  VALUE 
DEVICE  OFFLINE 


IS  PRIORITY  MISSING? 

IF  EO,  NO 

MAKE  SURE  IT'S  A  VALID  PRIORITY 


GET  PRIORITY  VALUE 


n  z 
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CFC 


fFGDDM  -  5C*N  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85 
ACTION  ROUTINES 


00:02 
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CFG 
LIN 


152 
153 
15^ 
155 
156 

157  000052 

158  000052 

159  000060 

160  000062 

161  000070 
162 

163 
164 


.SBTTL  ACTION  ROUTINES 
PROCESS  CONTROLLER  TABLE  COUNT  (DDMSDF,  DLCSDF) 


032767 
00U03 
016767 


000001 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


D.EXT: 


,IF  DF  M$$MGE 


10$: 


BIT 

BEQ 

MOV 

RETURN 

.ENDC 

.END 


#MS. EXT, SWISS 

10$ 

.PNUMB,$$EXT 


IS  THE  CONTROLLER  TABLE  COUNT  MISSING 

IF  EQ,  NO  -  LEAVE 

GET  THE  CONTROLLER  TABLE  COUNT 
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CFC 


CFGDTE 
LINE-ID 

221 
222 
223 
22A 
225 
226 
227 
228 
229 
230 
231 
232 
233 
23A 
235 
236 
237 
238 
239 
2^0 
241 
2A2 
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SUBEXPRESSION 

.SBTTL  LINE-ID  SUBEXPRESSION 


000052 
000052 

000052 
000052 

000052 
000052 

000052 
000052 
000052 

000052 
000052 

000052 


•  LINE-ID  SUBEXPRESSION 

STATES 
TRANS 

LINJD 
SRAD50,,DEVNAM 

;  DEVICE  NAME 

STATES 
TRANS 

<■-> 

STATES 
TRANS 

$NUM8R,,DEVCTL 

;  CONTROLLER 

STATES 
TRANS 
TRANS 

<'->,LINIDl 
SLAMDA.SEXIT 

STATES 
TRANS 

LINID1 
SNUMBR.SEXIT.DEVUNT 

;  UNIT  NUMBER 

STATES 


CFGDTE 


M  5 
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CFGDTE     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:03 
SYf^BOL  CROSS  REFERENCE 


L  6 

PAGE  2 

CREF   OA.OO 


SYMBOL  VALUE 


LF.X2P 

LINCTL 

LINNAM 

LINUNT 

LN.CLO 

LN.DUM 

LN.LOA- 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LSDTEA 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.ODS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

NEXT 

NUMDTE 

NStVCT 

PCKBCD 

PSIPT 

RTSPC 

R$RO 

R$Ri 

R$F<2 

R$R! 

R$R5 

R$$E :  5 

R$$''[- 
5F  .ar^ 

i' .E^i 


=  000000 

0000A4  R 

00O0A2  R 

0000^5  R 

=  000000 

=  000005 

=  OOOOOA 

=  000003 

=  000003 

=  000001 

=  000000 

=  000004 

=  000001 

=  000002 

=  000002 

=  000017 

=  000360 

=  000006 

000020 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

=  000022 

000022 

000020 

00001A 

000021 

000013 

000040  R 

=  000020 

r  ****** 

000660  R 


000002 
000004 
000006 
000010 
000012 
OOOOU 

****** 
****** 

0OC200 
OOOICC 
000004 


GX 

GX 


REFERENCES 

#5-66 

#7-122 

#7-121 

#7-123 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#!"-66 

#5-66 

#5-66 

#5-65 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

16-383 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#7-120 
#6-86 

16-390 

12-278 

12-280 

8-129 
#6-91 
#6-92 
#6-93 
#6-94 
#6-95 
#6-96 

20-500 

20-500 
#5-66 
#5-66 
#5-66 


♦18-432 
*18-425 
*18-439 


CC 
CC 
CC 
CC 
CC 
CC 
rr 
tC 
CC 
CC 


*12-255 


#20-489 
16-368 
8-130 


•16-392 


12-262 


-131 


19-468 


8-152 


M9-469 


8-133 


LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 


'fGDIE 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:03 
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M     6 


\^, 


♦•F!LE«*1D**CFGPVC 


L  7 


CF 

PV 


CCCCCCCC   F 

FFFFFFFFF 

GGGGGGGG 

PPPPPPPP 

VV 

VV 

CCCCCCCC 

CCCCCCCC   F 

FFFFFfFFF 

GGGGGGGG 

PPPPPPPP 

VV 

VV 

CCCCCCCC 

CC          F 

GG 

PP      PP 

VV 

VV 

CC          F 

GG 

PP      PP 

VV 

VV 

CC          F 

GG 

PP      PP 

VV 

VV 

CC          F 

GG 

PP      PP 

VV 

VV 

CC           F 

FFFFFFF 

GG 

PPPPPPPP 

VV 

VV 

CC           F 

FFFFFFF 

GG 

PPPPPPPP 

VV 

VV 

T           F 

GG 

GGGGGG 

PP 

VV 

VV 

I  C           F 

GG 

GGGGGG 

PP 

VV 

VV 

CC           F 

GG 

GG 

PP 

VV 

VV 

CC           F 

GG 

GG 

PP 

VV 

VV 

CCCCCCCC    F 

GGGGGG 

PP 

VV 

CCCCCCCC 

CCCCCCCC    F 

GGGGGG 

PP 

VV 

CCCCCCCC 

ssssssss 

TTTTTl 

TTTT 

ssssssss 

TTTTT 

irn 

ss 

Tl 

ss 

T 

ss 

T 

ss 

T 

SSSSS5 

T 

SSSSSS 

T 

ss 

T 

ss 

T 

ss 

T 

ss 

T 

LLLLLLLLLL 

ssssssss 

T 

LLLLLLLLLL 

ssssssss 

T 

CFGPVf 
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[; 


CFGPvr  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
PVCtDF  ACTION  ROUTINES 


DO;M 


460  000706 

A61 

462 

463 

464  000710 

465  000716 


RETURN 


ERRORS 


101$: 
102$: 


EMSGSR  NO 
EMSGSR  N3 


Page  13-1 


INVALID  PVC  ID 

PVC/XC8/P0RT/HASH  ALLOCATION  FAILED 


CFGPVC  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:04  Page  14 


Symbol 

table 

.  ABS. 

177776 

000 

002272 

001 

DATA 

000A30 

00^ 

SSTATE 

000212 

00^ 

SICTAB 

000006 

(K)^ 

SKSTR 

000016 

OOb 

Errors 

detected: 

0 

I-  9 

CFGPVC  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:04  Page  21-4 

(RW,1,6BL,ABS,0VR) 
(RW,I,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 

»*»   Assembler   statistics 

Work      tile     reads:  94 

Work      f i le  writes:  93 

Size  of   »(ork    file:  23564   Words      (   93  Pages) 

Size  of  core  pool:  17608  Words     (   67  Pages) 

Operating     system:  RSX-11M/PLUS 

SY:CFGPVc!v2;[°32?l34]CFGPVC/CR/-SP=SV:[l  J]RSXMCM.SML/ML,[130J10]NETLI8/ML,[130,10]RSXMCM/PA:1,[1^ 


CFG' 
TPAI 


CFGPVC 


CREATED  BV  MACRO  ON  29-JUN-85  AT  00:04 


PAGE 
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CFG 


L  10 

CFGSLT  -  SCAN  COMF IGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:05  Page  7 
TPARS  TABLES 

103 

104 

105 

106 

107  000062 

108 

109 

110 

111 

112  000062 

113  000062 
IH  000062 

115  000062 

116  000062 

117  000062 

118  000062 

119  000062 

120  000062 

121  000062 

122  000062 

123  000062 

124  000062 

125  000062 

126  000062 

127  000062 

128  000062 

129  000062 

130  000062 

131  000062 

132  000062 

133  000062 

134  000062 

135  000062 

136  000062 

137  000062 

138  000062 

139  000062 

140  000062 

141  000062 

142  000062 

143  000062 

144  000062 

145  000062 

146  000062 

147  000062 

148  000062 

149  000062 

150  000062 

151  000062 

152  000062 

153  000062 

154  000Co2 

155  000062 

156  000062 

157  000062 

158  000062 

159  000062 


C^GS 
ERRC 


.SBTTL 

TPARS  TABLES 

TPARS  STATE  TABLES 

ISTATS 

SLTST,SLTKW 

SLT  DEFINITION  MACRO  (SLTSDF) 

STATES 

SLTDF 

TRANS 

XSLTSDFX,,,1,S 

.'NERR 

STATES 

;  DDM  NAME 

TRANS 

$RAD50,,S.NAME 

STATES 

TRANS 

<',> 

STATES 

;  PLC  NAME 

TRANS 

$fiAD50 

STATES 

TRANS 

<',> 

STATES 

;  LLC  NAME 

TRANS 

SRAD50 

STATES 

TRANS 

<'  .> 

STATES 

;  FLAGS 

TRANS 

I8ITS 

STATES 

;  CONTROLLER  NUMBER 

TRANS 

SNUM8R,,S.CTL 

STATES 

TRANS 

<'  ,> 

STATES 

;  UNIT  NUMBER 

TRANS 

SNUMBR,,S.UNT 

STATES 

TRANS 

!END,SEXIT 

TRANS 

<'  ,> 

STATES 

TRANS 

<',>,SCTIM 

TRANS 

SSTRNG 

;  TYPE  OF  LINE 

STATES 

TRANS 

lEND.tEXIT 

TRANS 

<'  ,> 

STATES 

SCTIM 

TRANS 

SNUMBI'.SCHELO, 

S.CTIM  ;  COUNTER  TIMER 

TRANS 

<',>,SCHEL 

STATES 

5CHEL0 

TRANS 

]END,SEXIT 

TRANS 

<'  ,> 

STATES 

SCHEL 

TRANS 

SNUMBR,BRADJ,S. 

HTIM  ;  HELLO  LISTEN  TIMER 

TRANS 

<'  ,> 

STATES 

SRADJ 

TRANS 

<',>,8RADJ1 

TRANS 

lEND.SEXIT 

STATES 

BRADJI 

TRANS 

SNUMSR,,S.BRAD 

STATES 

TRANS 

<',> 

STATES 

H  1C 
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CFG' 


C^GSTA  -  CONFIG  FILE  SCAN  ACTIO  MACRO  VC^.O^b  Saturday  29-Jun-85  50:06  Page  7 
ERROR  "MESSAGES 


D0:0( 


CFG 


72 
73 
Ik 

75  000000 

76  000030 

77  000070 

78  000130 

79  000162 
80 


.SBTTL  ERROR  MESSAGES 


.ENABL  LC 

NTLERS  ,1A,8B,CERR,RTSPC,CFLIN,<Station  Address> 

NTLERS  ,18,8,CERR,RTSPC,CFLIN,<More   Than  48.    STA$DF's> 

NTLERS  ,VQ,88,CERR,RTSPC,CFLIN,<MuUipoint  Active  Ratio> 

NTLERS  ,YA,8B,CERR,RTSPC,CFLIN,<heUo   timer   ualue> 

NTLERS  ,Ye,8B,CERR,RTSPC,CFLIN,<listen   timer   value> 

.DSA8L  LC 


M  11 
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CFC 


L  12 
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CF( 
SE' 


A 
5 
6 

7 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
5C 

51 

52 


.TITLE 
.IDENT 


CFGSVC  -  CONFIG  FILE  SCAN  ACTION  ROUTINES 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  04-JUN-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  Vl.l 

3.00  16-APR-82 

DECNET-11M  V3.1 
0ECNET-11M-PLUS  Vl.l 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-8J 

OECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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CF 


L 
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SETTLC  -  SET  UP  TRANSPORT  L!NE  COUNTERS 


Cf 


519 
520 
521 
522 
525 
52^ 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 

537  001202 

538  001206 

539  001212 

540  0012U 

541  001216 

542  001222 

543  001226 

544  001230 

545  001232 

546  001236 

547  001240 

548  001242 

549  001244 

550  001246 

551  001250 

552  001252 

553  001254 

554  001260 

555  001264 

556  001266 

557  001270 

558  001274 

559  001276 

560  001302 

561  001306 

562  001314 

563  001320 

564  001324 

565  001334 

566  001336 

567  001340 

568  001342 

569  001544 

570  001350 

571  001554 

572  001556 
575  001564 

574  C01370 

575  001574 


017705 
022567 
001575 
005745 
167705 
067705 
011505 
100004 
066705 
006505 
011505 
005046 
110516 
006516 
012605 
005046 
116716 
067716 
013602 
060205 
062705 
011504 


016202  OOOOOOG 


OOOOOOG 
000016' 


OOOOOOG 
OOOOOOG 


000014' 


000020' 
OOOOOOG 


OOOOOOG 


.SBTTL  SETTLC  -  SET  UP  TRANSPORT  LINE  COUNTERS 


SETTLC  -  SET  UP  TRANSPORT  LINE  COUNTERS 

INPUTS: 

RO  -  APR  BIAS  OF  SVC  DESCRIPTOR  BLOCK 

R1  -  VIRTUAL  ADDRESS  OF  SVC  DESCRIPTOR  BLOCK 

OUTPUTS: 

APR  BIAS   AND   VIRTUAL  ADDRESS  OF    SVL    DESCRIPTOR  BLOCK 
STORED    IN    TRANSPORT   LINE    COUNTER  BLOCK 

R0,R1,R2,R5,R4  DESTROYED 

NOTE:  THIS  ROUTINE  MUST  BE  CALLED  FROM  SYSTEM  STATE 


SETTLC: 
5$: 


10$: 


016205 
016202 

005712 
100406 
021204 
001405 
062702 

010412 
152762 
005062 

020127 
105406 


000100 
000104 


000046 


000500  000044 

000054 

120000 


20$: 


50$: 
40$: 


MOV 

CMP 

BNE 

TST 

SUB 

ADD 

MOV 

BPL 

ADD 

ASL 

MOV 

CLR 

M0V8 

ASL 

MOV 

CLR 

MOVS 

ADD 

MOV 

ADD 

ADD 

MOV 

SAVMAP 

MOV 

MAP 

MOV 

MOV 

BIAS 

TST 

BHI 

CMP 

BEO 

ADD 

SOS 

MOV 

Bise 

CLR 
CMP 
BLO 


aSLTMA,R5 

(R5)t,SLTA 

5$ 

-(R5) 

aSLTMA,R5 

aLLCTA,R5 

(R5),R5 

10$ 

STASVC,R3 

R3 

(R3),R3 

-(SP) 

R5,(SP) 

(SP) 

(SP)+,R5 

-(SP) 

OWNSVC,(SP) 

aPDVTA,(SP) 

a(SP)+,R2 

R2,R5 

#Z.MAP,R5 

(R5),R4 

Z.DAT(R2),R2 

N$TLC+2(R2) 

N$rLC(R2),R5 

N$TLC+4(R2),R2 

R2 

(R2) 

30$ 

(R2),R4 

40$ 

#T$LLEN,R2 

R5,20$ 

R4,(R2) 

#PX$SVC. 

T$SVC(R2) 

Rl, #120000 


PX$DLM,T$FLAG(R25 


GET  SLT  VECTOR  TABLE  ADDRESS 

IS  THIS  THE  CORRECT  ENTRY? 

BR  IF  NO 

POINT  TO  CORRECT  ENTRY 

GET  SYSTEM  LINE  NUMBER*2 

INDEX  INTO  REVERSE  MAPPING  TABLE 

GET  CHANNEL  NUMBER  AND  PDV  INDEX 

BR  IF  NOT  MULTIPOINT 

POINT  TO  CORRECT  STATION  ENTRY 

GET  ADDRESS  OF  STATION  TABLE 

GET  CHANNEL  NUMBER  AND  PDV  INDEX 

GET  INDEX  INTO  FORWARD  MAPPING  TABLE 


RETRIEVE  FORWARD  MAPPING  TABLE  INDEX 
GET  XPT'S  PDV  INDEX 

POiNT  TO  XPT'S  PDV  ADDRESS 

GET  XPT'S  PDV  ADDRESS 

POINT  TO  FORWARD  MAPPING  TABLE  ENTRY 

GET  SLN/STA  PAIR 
SAVE  CURRENT  MAPPING 
GET  ADDRESS  OF  XPT'S  DDB 
MAP  TO  CIRCUIT  COUNTERS 
GET  NUMBER  OF  CIRCUIT  COUNTERS 
GET  ADDRESS  OF  FIRST  COUNTER  BLOCK 
BIAS  COUNTER  BLOCK  ADDRESS 
HAS  THIS  BLOCK  BEEN  ASSIGNED  ALREADY? 
BR  IF  NO  -  USE  IT 
ELSE  IS  THIS  THE  ONE  WE  WANT? 
BR  IF  YES 

POINT  TO  NEXT  COUNTER  BLOCK 
CHECK  ALL  COUNTER  BLOCKS 
STORE  SLN/STA  PAIR 
;;  INDICATE  DLM  SVC 
ASSUME  SVC  DESCRIPTOR  IS  IN  DSR 
IS  SVC  DESCRIPTOR  IN  DSR? 
BR  IF  YES 


M  13 
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r 


L 


L  U 

CFGUNT  -  CONFIG  FILE  SCAN  ACTIO  MACRO  v05.05b  Monday  15-Jul-85  18:56 
^able  ot  contents 

MACRO  DEFINITIONS 

LOCAL  DATA  AND  CONSTANT  DfFINTIONS 

ERROR  MESSAGES 

SQUNT  -  LOOK  FOR  UNTSDF  MACRO 

UNTSDF  STATE  TABLE 

UNTSDF  ACTION  ROUTINES 


CF 

UN 


s- 

S^ 

fl- 

6,- 

/- 

101 

H- 

VI 

9- 

151 

1- 

^10 

rnMnr,  fiif   <;c4m  arrin  macro  uOS.O'^b  Mnnrtav 


15-Jut-85   18:55     Paae  k 


L 


L 


L  15 

ffGuN^   -  rONFlO   FILE   SCAN  ACTIO  MACRO  V05.03b  Monday   15-Jul-85   18:56     Page   U 

UNHDF    ACTION  ROUTINES 


CF( 
ERI 


409 
410 


000001 


.END 


r  r  r.i  imt 


rrwizir    tut:    ctam    AfTin   Mfiron    v/fic;    OT.h    MnnHav    IS-h 


n  15 


c 


CFGK2P  -  CONFIG  FILE 
ERROR  MESSAGES 

9? 
95 

94 
95 
96 
97 

98  000004 

99  000046 
100  000106 
101 


SCAN  ACTIO  MACRO  V05.05b  Saturday  29-Jun-85 


D0:( 


IS     Page  8 


.SBTTL  ERROR   MESSAGES 

ERROR  MESSAGES 

.ENABL  LC 

NTLERS  ,2J,8B,CERR,RTSPC,CFLIN,<maximum  retransmit  count> 

NTLERS  ,2<,8B,CERR,RTSPC,CfLIN,<retransmit  timer  uatue> 

NTLERS  ,2L,8B,CFRR,RTSPC,CFLIN,<holdback  timer  value> 

.DSABL  LC 


rTin  MATDn  mHK      H^K   C3 


M  16 

-a";  nn-ns 


1 


"J 

115 

114 

115 

116 

117  000000 

118 

119  000000 

120 

12' 


n   1 

iLiOCA'E   ft  BLOCK   0'^   '^E   "lACRO   v05.05b   Saturday  29-Jun-85   00:01      Page   5-1 

WILL    EVENTUALLV   CRASH    THE    SYSTEM. 
,vDF$ 


CE' 


K%: 


.MCALL 
NHWDFI 
.BLKW 


1 


;  DEFINE  HARDWARE  OFFSETS 

;  LOCAL  LOCATION  OF  KISAR6  ADDRESS 

;  SINCE  UE  WILL  BE  UNMAPPING  OUR  APR6 

;  WE  CANNOT  ACCESS  VECTOR  TABLE 


N  1 

A^'MfM  -  IllCCATE  a  BLOC*;  OF  ME  MACRO  V05.03b  Saturday  29-Jun-85  00:01 

tiWfil  .  i, LOCATE  MfMORv  IN  NTPQOL 


Page  6 


CE 


M  2 

CEALL  -  ALLOCATE  BYTES  OF  POOL  MACRO  V05.03b  Saturday  29-Jun-85  00:01  Page  7 


CFG 
CNT 


12^ 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
HO 
Kl 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 

157  000120 

158  000120 

159  000124 

160  000126 

161  000130 

162  000134 

163  000140 

164  000142 

165  000146 
166 

167 

168  000150 

169  000150 

170  000154 

171  000156 

172  000160 

173  000164 

174  000170 

175  000172 

176  000176 

177  000200 

178  000204 

179  000206 

180  000212 
;8!  000216 
'82 


$ALN18  -  ALLOCATE  DOUBLEWORD  ADDRESSABLE  STORAGE  FROM  THE  NON-UMR 

PORTION  OF  THE  NETUORK  BUFFER  POOL 
$ALL18  -  ALLOCATE  DOUBLEWORD  ADDRESSABLE  STORAGE  FROM  THE  UMR 

PORTION  OF  THE  NETUORK  BUFFER  POOL 


INPUTS 


R1      =  NUMBER  OF  BLOCKS  (MAPPED)  OR  BVTES  (UNMAPPED)  NEEDED 
SNBIAS  =  BIAS  OF  BASE  OF  NEXT  FREE  NON-UMR  SEGMENT  (0=NONE) 
SQBIAS  =  BIAS  OF  BASE  OF  NEXT  FREE  UMR  SEGMENT  (0=NONE) 


OUTPUTS: 

C-BIT 

RO 

R1 

$NBIAS 

SQBIAS 


NOTE: 


$ALN18: 


010105 
001421 
017704 

103407 
010477 
000421 


010105 
001405 
017704 

105006 
017700 
on  000 
005260 
000404 
010477 
010566 


OOOOOOG 
OOOOOOG 


OOOOOOG 

OOOOOOG 

000006 

OOOOOOG 
000002 


10$: 


20$ 
25$ 
30$ 


SUCCESS/FAILURE 

BIAS  OF  BASE  OF  BUFFER 

DESTROYED  (11D/IAS  ONLY) 

BIAS  OF  NEXT  FREE  NON-UMR  SEGMENT 

BIAS  OF  NEXT  FREE  UMR  SEGMENT 


THESE  ROUTINES  ALLOCATE  ON  32-WORD  BOUNDARIES,  AND  THUS 
THE  BUFFER  VIRTUAL  ADDRESS  LOW  THIRTEEN  BITS  WILL  ALWAYS  BE 
ZERO.  IF  THE  CALLER  INTENDS  TO  RETURN  THE  MEMORY  ALLOCATED 
VIA  THE  $DEA18  ROUTINE,  THE  BUFFER  SIZE  CAS  CALLED)  MUST 
BE  PRESERVED.  THE  GLOBAL  VARIABLES  SQBIAS  AND  $N8IAS  MUST 
BE  PROPERLY  INITIALIZED  BEFORE  THIS  ROUTINE  IS  CALLED.  SEE 
COMMENTS  IN  THE  $AMEM  ROUTINE  C  MODULE  'ALCMEM'  ). 


$ALL18: 


5$: 


.ENA6L  LSe 

:.IF  DF,R$$11H  8  M$$MGE 

SWSTK$  30$ 

MOV  R1,R5 

BEQ  10$ 

MOV  SN8IAS,R4 

CALL  $AMEM 

BCS  5$ 

MOV  R4,aNBIAS 

BR  25i 
.ENDC 


SWSTK$  30$ 

MOV  R1,R5 

BEQ  10$ 

MOV  aQ8IAS,R4 

CALL  $AMEM 

8CC  20$ 

MOV  SHEADR.RO 

MOV  (RO),RO 

INC  6(R0) 

BR  30$ 

MOV  R4,aQBIAS 

MOV  R5,2(SP) 
RETURN 

.DSA8L  LSe 


IF  NON-1 1M,  NON-MGE,  ONLY  USE  $ALL18 

ENTER  KERNEL  MODE 
COPY  NUMBER  OF  BLOCKS  FOR  $AMEM 
BR  IF  NONE  REQUIRED,  BAD  CALL 
GET  BIAS  OF  FIRST  NON-UMR  SEGMENT 
TRY  TO  ALLOCATE  SOME  MEMORY 
8R  IF  CAN'T,  TRY  UMR  SEGMENT 
RESET  $NBIAS  VALUE  TO  NEW  SEGMENT 
GO  SET  USER  RO  AND  LEAVE 


ENTER  KERNEL  MODE 
COPY  BLOCK  COUNT 
IF  ZERO,  RETURN  FAILURE 
GET  BIAS  OF  FIRST  FREE  SEGMENT 
TRY  TO  ALLOCATE  FROM  NETWORK  POOL 
IF  CC,  SUCCESS 
GET  USER  MODE  SP 

SET'uSER  MODE  C-BIT 

LEAVE  RO  UNCHANGED 

SET  NEW  $Q81AS  VALUE 

RETURN  BUFFER  BIAS  IN  RO 

BACK  TO  USER  MODE  AND  THEN  TO  CALLER 
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CFG 
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CFGCNT  -  SCAN  CONFIGURATION  FIL 

CNTSDF  A''-!!iN  f 

OUTINES 

225  000272 

001415 

224  000274 

225  000506 

010067  OOOnOOG 

226  000512 

042767  0000006 

227  000520 

228  000522 

229 

250 

251 

252 

255 

254 

255 

256 

257 

258 

259 

240 

241 

242 

245 

244 

245 

246 

247 

248 

249 

250 

251 

252 

255 

254 

2:5 

256 

257 

258 

259 

260 

261 

262 

265 

264 

265 

266 

000001 

M  3 
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OOOOOOG 


BEQ 

101$ 

ASL$ 

5.R0 

MOV 

R0,$$PRI 

BK 

#MS.PRI,$MI 

10$: 

RETURN 

101$: 

EMSG$R 

IF 

•  UNI8US  RUN  MASK  (CNT$OF) 

• 

.IF  DF 

R$$MPL 

C.URM: 

MOV 

.PNUMB,$URM 

TSTB 

aiNCPU 

BEQ 

10$ 

MOV 

$$CSR,RO 

CALL 

$NLCSR 

8CS 

101$ 

10$: 

RETURN 

101$: 


EMSG$R  Z2 


IF  ZERO,  ILLEGAL 

CONVERT  TO  PSW  PRIORITY  VALUE 

STOf'E  IT 

IT'S  NO  LONGER  MISSING 

ILLEGAL  INTERRUPT  PRIORITY  VALUE 


STORE  THE  UNIBUS  RUN  MASK 

IS  THIS  A  MULTI-PROCESSOR  SYSTEM 

IF  EQ,  NO 

GET  THE  CSR  ADDRESS 

CHECK  IF  DEVICE  IS  OFFLINE 

IF  CS,  OFFLINE 


DEVICE  OFFLINE 


;  CHECK  IF  UNIBUS  RUN  MASK  IS  MISSING 
MP . URM : 


TSTB 

aNCPU 

;  IS  THIS  A  MULTI-PROCESSOR  SYSTEM 

BEQ 

10$ 

;  IF  EQ,  NO 

TST 

URMFL 

;  IS  THE  UNIBUS  RUN  MASK  PRESENT  ? 

BEQ 

101$ 

;  IF  EQ,  NO 

10$: 

RETURN 

101$:   EMSGSR  ZK 

';  RE-CONFIGURATION  DEVICE 

C.RCD1  :  MOVB    .PCHAh,$RCDEV 

RETURN 
C.RCD2:  MOVB    .PCHAR,$RCDEV+1 

RETURN 

.ENDC 

.END 


UNIBUS  RUN  MASK  MISSING 

STORE  THE  1ST  CHAR  OF  THE  RE-CONFIGURATION  DE" 
STORE  THE  2ND  CHAR  OF  THE  RE-CONFIGURATION  DEV 


N  3 

CFGCNT  -  SCAN  CONFIGURATION  ML  MACRO  V05.05b  Saturday  29-Jun-85  00:01  Page  9-2 
SvmhnI  tahip 


M  4 

CFGDDM  -  SCAN  CONFIGURATION  FIL  MACRO  VO5.03b  Saturday  29-Jun-85  00:02 
Symbol,  table 


Page  8-1 


A$$CHK= 

A$$CPS= 

A$$PR[= 

A$$TRP= 

BITS 

BIT'1 

BITL^ 

CFGBF  = 

CFGFLG= 

CFGSZ  = 

C$$CKP= 

Ct$ORE  = 

CS$RSH= 

DDMDF 

DDMKW 

DDMNAM 

DDMST 

D$tBUG= 

D$$1SK= 

D$$L11= 

.  ABS. 

SSTATE 

$KTAB 

SKSTR 


000000 

000000 

000000 

000000 

00006^ R 

0001 KR 

0001 30R 

♦*♦**«  GX 

«*»***  GX 

»»*»•♦  GX 

000000 

OOOAOO 

177564 

OOOOOOR 

OOOOOORG 

00001 6R 

OOOOOORG 

1775K 

000000 

000001 

000000 
000072 
00016'. 
OOOOU 
000052 


D$SYNC= 

D$$YNM= 

D.EXT 

D.NAME= 

002  END 

002  E$$XPR= 

002  FG.X2P= 

FG.X3P= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

I$$RDN= 

002  K$$CNT= 

002  K$$CSR= 

K$$LDC= 

Kt$TPS= 

LDSLP  = 


002 
003 


000000 
000000 
000052R 

****** 

0001 5AR 

000000 

****** 

****** 

000001 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000000 


GX 


Errors  (j'etected: 


000 
001 
002 
003 
004 
0 


(RW,I,GBL,ABS,OVR) 
(RW,1,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,C0N) 
(RU,D,LCL,REL,C0N) 


*»♦  Assembler  statistics 


Work  tile  reads: 
Work  file  writes: 
Size  of  work  file; 
Size  of  core  pool : 
Operating  system: 


0 

0 

11343  Words 

14440  Words 

RSX-11M/PLUS 


45  Pages) 
55  Pages) 


CFG 
DTE 


L$$ASG= 

000000 

P$$P45= 

000000 

iDNUMB= 

000014 

L$$DRV= 

000000 

P$$WRD= 

000000 

$F0S  = 

000012 

L$$P11= 

000001 

p. INC  = 

*»***♦  GX 

$ERRU= 

******   GX 

L$$11R= 

"00000 

Q$$OPT= 

000010 

SEXIT  = 

000000 

002  HS.EXT= 

»****♦  GX 

R$$DER= 

000000 

SFAIL  = 

177777 

M$$CRB= 

000124 

R$$K11= 

000001 

$LAMDA= 

000000 

M$$CRX= 

000000 

R$$SND= 

000000 

SWISS  = 

»»♦»«♦  GX 

H$$FCS= 

000000 

R$$11M= 

000000 

$NUMBR= 

000002 

M$$MGE= 

000000 

SYNERR= 

******   GX 

SQDDM 

OOOOOORG 

M$$NET= 

000000 

S$$WRG= 

000000 

$RAD50= 

000016 

M$$0VR= 

000000 

S$$YSZ= 

007600 

$STRNG= 

000004 

N$$ACC= 

000001 

r$$KMG= 

000000 

$SUBXP= 

000010 

N$$8UF= 

000001 

T$$MIN= 

000000 

$$EXT  = 

******  GX 

N$$LDV= 

000001 

V$$CTR= 

001000 

$$$FLG= 

ynni 

N$$MCP= 

000001 

X$$DBT= 

000000 

$$$KEY= 

000005 

N$$MLL= 

000001 

$ALPHA= 

000022 

$$$STA= 

000000 

N$$M0V= 

000010 

$ANY  = 

000020 

$$$TMP= 

000043R 

N$$NCT= 

000001 

$8LANK= 

000006 

. PNUMB= 

******   GX 

N$$PEM= 

000001 

$DIGIT= 

000024 

.TPARS= 

******   GX 

004 
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244 
245 
246 
247 
248  000052 

.SBTTL 

DTE$DF  ACTION  ROl 

■;  START 

OF  DTE 

ADDRESS 

005067 

OOOOOOG 

DTEAST: 

CLR 

DTEFLG 

249  000056 

012700 

000017 

MOV 

#DTEALN,RO 

250  000062 

012701 

000000' 

MOV 

#DTEADD,R1 

251  000066 

105021 

10$: 

CLRB 

(Rl)  + 

252  000070 

005300 

DEC 

RO 

253  000072 

003375 

BGT 

10$ 

254  000074 

105067 

000035' 

CLR8 

COUNT 

255  000100 

012767 

000000'  000040' 

MOV 

#DTEADD,NEXT 

256  000106 

CALL 

STRNXT 

257  000112 

RETURN 

258 
259 
260 
261 
262  000114 

;■  PROCESS  DTE  ADDRESS  DIGIT 

026727 

000040'  000016' 

DTEDIG: 

CMP 

NEX:,#DTEND 

263  000122 

101003 

BHI 

101$ 

264  000124 

CALL 

STRNXT 

265  000130 

RETURN 

266 

267 
268 
269  000132 

;•  ERRORS 

101$: 

EMSG$R 

03 

270 

271 

272 
273 

274  U00140 

;  END  OF  DTE  ADDRESS 

004567 

0000006 

DTEAEN: 

JSR 

R5,$SAVRG 

275  000144 

012700 

000010 

MOV 

#<DTEALNt1>/2,R0 

276  000150 

012704 

000000' 

MOV 

#DTEADD,R4 

277  000154 

012705 

000017' 

MOV 

#DTEPCK.,R5 

278  000160 

279 

280  000164 

CALL 

PCKBCD 

017700 

OOOOOOG 

MOV 

aPSlPT.RO 

281  000170 

062700 

000024 

ADD 

#H$NETW,R0 

282  000174 

012701 

000027' 

MOV 

*DTNTNM,R1 

283  000200 

012702 

000006 

MOV 

#DTNMMX,R2 

284  000204 

112021 

10$: 

M0V8 

(R0)+,(R1)t 

285  000206 

005302 

DEC 

R2 

286  000210 

003375 

BGT 

10$ 

287  000212 

RETURN 

INITIALISE  FLAGS  (ON/OFF  BITS) 

GET  LENGTH  OF  DTE  ADDRESS 

GET  ADDRESS  OF  BUFFER 

INITIALIZE  BUFFER 

MORE  TO  INITIALIZE? 

BR  IF  VES 

INITIALIZE  DTE  DIGIT  COUNT 

START  STORING  AT  BEGINNING  OF  BUFFER 

STORE  CHARACTER 


IS  ADDRESS  TOO  MANY  CHARACTERS? 

BR  IF  YES 

STORE  NEXT  DIGIT 


ILLEGAL  DTE  ADDRESS 


SAVE  R3-R5 

GET  LENGTH  OF  PACKED  ADDRESS 

GET  ADDRESS  OF  DTE  ADDRESS  BUFFER 

GET  ADDRESS  OF  PACKED  ADDRESS  BUFFER 

PACK  ADDRESS  IN  BCD  FORMAT 

POINT  TO  HOME  BLOCK 

POINT  TO  DEFAULT  NET  NAME 

POINT  TO  LOCAL  STORAGE  OF  NAME 

GET  SIZE  OF  NAME 

SET  UP  DEFAULT  FOR  DTE 

MORE  TO  SET  UP? 

YES,  SET  AWAY 

ELSE  COMPLETED 
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fF 
Tal 


SYMBOL 

VALUE 

REFERENCES 

SF.MFL 

=  000040 

#5-66 

SF.PAC 

=  000020 

#5-66 

SF.REA 

=  000010 

#5-66 

SF.SER 

=  000001 

#5-66 

SF.SVC 

=  000002 

#5-66 

SF.UNL 

=  000040 

#5-66 

SPACE 

=  000040 

#6-83 

STRNXT 

000610 

R 

12-256 

12-264 

#19-462 

SYNERR 

-   ****** 

GX 

♦9-157 

*9-160 

SSSBAS 

r  ****** 

8-129 
8-133 

8-129 

8-130 

S.COST 

000001 

#5-66 

S.FLG 

000000 

#5-66 

S.LEN 

000004 

#5-66 

S.NMST 

000002 

#5-66 

S.OWNR 

000003 

#5-66 

SALPHA 

=  000022 

#10-173 

$ANY 

=  000020 

#10-173 

SBLANK 

=  000006 

#10-173 

$CAT5 

-  **t *** 

GX 

18-424 

SCDTB 

-  ****** 

GX 

19-467 

tCEACX 

~  ****** 

GX 

16-379 

SDIGIT 

=  000024 

#10-173 

SDNUMB 

=  000014 

#10-173 

SEOS 

=  000012 

#10-173 

SERROO 

000046 

R 

#8-129 

14-338 

SERRO^ 

000106 

R 

#8-130 

12-269 

15-350 

$ERRu4 

000140 

R 

#8-131 

13-307 

$ERR05 

000170 

R 

#8-132 

13-318 

$ERR06 

000224 

R 

#8-133 

18-444 

SERRIT 

r  ****** 

GX 

9-167 

$EXIT 

=  000000 

#10-173 

$FAIL 

=  177777 

#10-173 

SGPRM 

r  ****** 

10-173 

SHEADR 

-  ****** 

GX 

16-390 

SLAMDA 

=  000000 

#10-173 

SNUMBR 

=  000002 

#10-173 

SQDTE 

000000 

RG 

#9-152 

$RA[)50 

=  000016 

#10-173 

SRONLY 

-  ****** 

10-173 

10-173 

10-173 

SSAVRG 

r  ****** 

GX 

12-274 

SSTRNG 

=  000004 

#10-173 

SSUSXP 

=  0G0010 

#10-173 

SSSFLG 

=  ^77''n 

#10-173 

$$$KEY 

=  177777 

#10-173 

.PCHAR 

~   ****** 

GX 

19-462 

19-464 

.PNUMB 

-   ****** 

GX 

13-294 

18-432 

18-439 

.PNUMH 

-  ****** 

GX 

13-292 

13-312 

18-430 

.PSTCN 

r  ****** 

GX 

14-325 

18-421 

.PSTPT 

r  ****** 

GX 

14-328 

18-423 

.TPARS 

-  ****** 

GX 

9-158 

8-130 


8-131 


8-131 


8-132 


8-132 


8-133 


18-437 


CFGDTE 
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5-  54    MACRO  DEFINITIONS 

6-  97    LOCAL  SYMBOL  DEFINITIONS 

7-  115    LOCAL  DATA 

8-  157    ERROR  MESSAGES 

9-  174    LOOK  FOR  PVCSOF  MACRO 

10-  204    TPARS  STATE  TABLES 

11-  293    PVCSDF  ACTION  ROUTINES 

14-  467    ALLXCB  -  ALLOCATE  X25  CIRCUIT  BLOCK 

15-  507    CHKPVC  -  CHECK  FOR  VALID  PVC 

16-  548    FNDPRT  -  FIND  FREE  PORT  ENTRY 

17-  586    INIXC8  -  INITIALIZE  X25  CIRCUIT  BLOCK 

18-  630    FNDHSH  -  FIND  HASH  TABLE  ENTRY 

19-  678    BIASX  -  BIAS  XPOOL  ADDRESS  FOR  APR6 

20-  698    PVDLM  -  CHECK  FOR  DLM  PVC 

21-  759    DLMTLC  -  SET  UP  TRANSPORT  LINE  COUNTERS 
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A67 
i68 
469 
470 

471 

'.  7 

■,n 

^,74 
475 
476 
477 
478 
479 
480 

481  000724 

482  000730 

483  000734 

484  000736 

485  000742 

486  000746 

487  000752 

488  000754 

489  000760 

490  000764 

491  000770 

492  000772 

493  000776 

494  001000 

495  001004 

496  001010 

497  001016 

498  ni020 

499  001024 

500  001030 

501  001034 

502  001040 

503  001044 
504 

505  001046 


012701  000106 


103444 
017702 
016246 


.SBTTL  ALLXCB  -  ALLOCATE  X25  CIRCUIT  BLOCK 

I- 

ALLXCB  -  ALLOCATE  AND  SET  UP  X25  CIRCUIT  BLOCK 

INPUTS: 

PRTADD  -  ADDRESS  OF  ENTRY  IN  PORT  TABLE 

OUTPUTS: 

R3  -  MAPPED  ADDRESS  OF  X25  CIRCUIT  BLOCK  (APR  5  MAPPED  TO  BLOCK) 
R0,R1,R2  DESTROYED 


ALLXCB: 


005726 
010077 


103426 
016700 
001414 
016701 
052701 
032767 
001002 

110163 
016746 
062716 
011663 
005726 


OOOOOOG 
000020 


000006' 


000020- 


000030' 

000200 

000001  000032' 


000023 
OOOOOOG 
000002 
000030 


10$: 
40$: 


50$: 


MOV 

CALL 

BCS 

MOV 

MOV 

CALL 

TST 

MOV 

CALL 

CALL 

BCS 

MOV 

BEQ 

MOV 

BIS 

BIT 

BNE 

CALL 

M0V8 

MOV 

ADD 

MOV 

TST 

RETURN 


#X$LEN,R1 

SXALOC 

50$ 

SPSIPT,R2 

H$PT8(R2),-(SP) 

$CEACX 

(SP)  + 

RO.SPRTAOD 

INIXCB 

FNDHSH 

50$ 

PVCOWN.RO 

40$ 

DLMSLN.RI 

#200, Rl 

#PF.DLM,FLAG 

10$ 

FNDPDV 

R1,X$M0WN(R3) 

ZTIME,-(SP) 

*2,(SP) 

CSP),X$TCLZ(R3) 

(SP)  + 


^ET  SIZE  OF  X.25  CIRCUIT  BLOCK 

ALLOCATE  CIRCUIT  BLOCK 

BR  IF  UNSUCCESSFUL  ALLOCATION 

POINT  TO  PSI  HOME  BLOCK 

GET  UNMAPPED  ADDRESS  OF  PORT  TABLE 

MAP  TO  PORT  TABLE 

CLEAN  UP  STACK 

STORE  UNMAPPED  ADDRESS  IN  PORT  TABLE 

INITIALIZE  X25  CIRCUIT  BLOCK 

FIND  HASH  TABLE  ENTRY  AND  SET  UP 

BR  IF  NO  ENTRY  AVAILABLE 

GET  PROCESS  OWNER  NAME 

IF  EQ,  NONE  SPECIFIED 

GET  DLM'S  SYSTEM  LINE  NUMBER 

INDICATE  SYSTEM  LINE  NUMBER  PRESENT 

IS  THIS  A  DLM  CIRCUIT? 

IF  NE,  YES 

GET  PDV  INDEX 

STORE  PDV  INDEX 

GET  $ZTIME  ADDRESS 

GET  $ZTIME*-2  ADDRESS 

STORE    TIME    SINCE   LAST   ZEROED 

CLEANUP   STACK 
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SYMBOL  VALUE 


ALLXCB 

BIASX 

CERR 

CFGBF 

CFGSZ 

CFLIN 

CHKBLK 

CHKPVC 

CHKUND 

CHNLMX 

CSDTE 

CSFLG 

CSLCN 

CtLEN 

CSNAM 

CSPORT 

DLMCTL 

DLMIND 

DLMPDV 

DLMSLN 

DLMSLT 

DLMSTA 

DLMTLC 

DLMUNT 

DTEDES 

E$NBR 

ESNBS 

ESNCR 

E$NCS 

ES.NIC 

ESNLEN 

ESNLLA 

FSNLNK 

E$NML 

E$NMR 

ESNMS 

ESNNOD 

ESNRT 

ESNRTP 

ESNSEG 

ESNTIM 

ESNUSE 

ESSTRT 

FLAG 

FMT8 

FMfSB 

FM.8 

FM.8B 

FNDHSM 

FNDPDV 

FNDPRT 

MSHADD 


000724 
001610 

«***«♦ 
****«♦ 


R 

R 
GX 
GX 
GX 
GX 
GX 

R 
GX 
GX 


-  ****** 
001050  R 

r  ****** 

-  ****** 

000012 
000015 
000010 
000016 
000002 
000014 

000044  R 
000046  R 
000022  R 
000030  R 
00GO24  R 
000026  R 
002034  R 

000045  R 

-  ****** 


GX 


000014 
000020 
000034 
000036 
000044 
000050 
000012 
000000 
000040 
000024 
000030 
000002 
000042 
000005 
000010 
000046 
000004 
000006 
000032 

=      ****** 
=   ****** 

-  oooooo 
=  oooooo 

001452 

"      ****** 

001172  R' 

-   ****** 


GX 
GX 


GX 
R 
GX 


REFERENCES 

13-448 

17-611 

8-161 

9-191 

9-190 

8-161 

12-353 

13-413 

12-365 

11-328 
♦13-438 
•13-436 
♦13-437 

13-415 

13-430 
♦13-447 
#7-146 
#7-148 
#7-137 
#7-140 
#7-138 
#7-139 

13-445 
#7-147 

13-438 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#7-141 

8-164 

8-161 
#8-164 
#8-161 

14-490 

14-498 

13-439 
•18-655 


#14-481 

#19-691 

8-162 


8-162 
#15-522 

15-534 

15-532 

15-539 

♦20-737 

♦20-722 

♦20-724 

14-494 

13-407 
#21-775 

15-534 


•9-186 

8-162 

#8-162 
#18-646 

#16-565 
18-664 
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CREF       04.00 


CFG 
TPA 


8-163 
8-163 


8-164 
8-164 


8-165 
8-165 


8-166 
8-166 


8-167 
8-167 


8-168 
8-168 


•21-780 
•20-749 

17-615 


•21-781 
21-785 

18-647 


13-411 

8-163 

#8-165 


13-419     13-443 
8-165     8-166 
#8-165     #8-166 


13-451 

14-496 

8-167 

8-168 

#8-167 

#8-168 

CFGPVC 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:04 
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TPARS  TABLES 


CFG! 
tOSl 


160  000062 

161 

162 


TRANS  $NUM8R,$EX1T,S.RPRI 
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CFG 
MAC 


82 

.S8TTL 

$QSTA  -  LOOK  FOR 

STA$DF 

83 

8^ 
85 
86 
87 
88 

+ 

$QSTA 

-  LOOK 

FOR  STA$DF 

INPUTS: 

89 

NONE 

90 

91 

OUTPUTS: 

92 
93 

C-BIT  - 

SUCCESS/FAILURE 

9A 
95 
96 

000216 

012705 

000000' 

tQSTA:: 

MOV 

#STADF,R5 

STATE  TABLE  ADDRESS 

97 

000222 

005001 

CLR 

R1 

FULL  KEYUORD  MATCH  LENGTH 

98 

000224 

012702 

000000' 

MOV 

.»STAKW,R2 

KEYWORD  TABLE  ADDRESS 

99 

000230 

016703 

OOOOOOG 

MOV 

tFGSZ,R3 

RECORD  LENGTH 

100 

000234 

012704 

OOOOOOG 

MOV 

#CFGSF,R4 

RECORD  BUFFER  ADDRESS 

101 

0002AO 

005067 

OOOOOOG 

CLR 

SYNERR 

CLEAR  SYNTAX  ERROR  FLAG 

102 

000244 

CALL 

.TPARS 

GO  DO  THE  PARSE 

103 

000250 

103003 

BCC 

20$ 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

104 

000252 

005367 

OOOOOOG 

DEC 

SVNERR 

DID  SYNTAX  ERROR  OCCUR? 

105 

000256 

001401 

BEQ 

101$ 

IF  EQ,  YES 

106 

000260 

20$: 

RETURN 

107 

108 
109 
110 

;  ERRORS 

000262 

101$: 

EMSG$R 

IT 

SYNTAX  ERROR 
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CF 
SE 


5A 
55 
56 
57 
58 
59 
60 
61 

62  000000 

63  000000 

64  000000 

65  000000 

66  000000 

67  000000 
68 

69 

70 

71 

72 

73 

T. 

75 

76 

11 

78 

79 

80 

81 

82 

83 

8'i 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 


.SBTTL  MACRO  DEFINITIONS 


I  STATS, TRANS, STATES, EMSG$R,NTLER$,XPDDB$,CTRDF$ 
PHBDFS,RETC,SVCDFS,ASLS,SLTDFS,PLBDFS 


LISRARV  MACROS 

.MCALL 
.MCALL 

CTRDFS 
XPDDBS 
PHBDFS 
SLTDFS 
SVCDFS 
PLBDFS 


LOCAL  MACRO  DEFINTIONS 


REJECT  TPARS  TRANSITION 

.MACRO  REJS 

ADD  #2,(SP) 

CLR  SYNERR 

.ENDM  REJS 

SAVE  CURRENT  MAPPING 

.MACRO  SAVMAP 

MOV     aKSAR5,-(SP) 

.ENDM 

RESTORE  PREVIOUS  MAPPING 

.MACRO  RESMAP 

MOV     (SP)+,aKSAR5 

.ENDM 

SET  UP  APR5  MAPPING 

.MACRO  MAP     BIAS 
MOV     BIAS,aKSAR5 
.ENDM 

SET  UP  APRS  BIAS 

.MACRO  BIAS    REG 

BIC  #160000, REG 

BIS  #120000, REG 
.ENDM 


DEFINE  TRANSPORT  LINE  COUNTER  OFFSETS 

DEFINE  XPT  DDB  OFFSETS 

DEFINE  PSI  HOME  BLOCK  OFFSETS 

DEFINE  SLT  OFFSETS 

DEFINE  SVC  OFFSETS 

DEFINE  PL8  OFFSETS 


RETURN  TO  CALLER+2 
INDICATE  NO  SYNTAX  ERROR 


SAVE  APR  5 


RESTORE  APRS 


SET  UP  APRS  MAPPING 


CLEAR  CURRENT  MAPPING  SITS 
SET  UP  APRS  MAPPING 
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576  001376 

042701 

160000 

BIG 

#160000, R1 

577  00UC2 

052701 

140000 

BIS 

#140000, R1 

578  P0U06 

010062 

000034 

MOV 

R0,T$SVC(R2) 

579  00U12 

010162 

000036 

50$: 

MOV 

R1,T$SVC*2(R2) 

580  00K16 

016762 

000002' 

000030 

MOV 

HT]MR,T$T5(R2) 

581  00H24 

C16762 

000004" 

000032 

MOV 

LT]MR,T$T6(R2) 

582  0OU32 

RESMAP 

583  00U36 

RETURN 

CLEAR  CURRENT  APR  MAPPING  BITS 

XPT  NEEDS  APR6  MAPPING 

STORE  APR  BIAS  OF  SVC  DESCRIPTOR 

STORE  VIRTUAL  ADDR  OF  SVC  DESCRIPTOR 

STORE  HELLO  TIMER 

AND  LISTEN  TIMER 

RESTORE  PREVIOUS  MAPPING 
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28 
29 
30 
31 
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34 
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36 
37 
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.TITLE   CFGUNT  -  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT   /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAVNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   09-JUN-81 

DECNET-11M/S  V3.1 
0ECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S   V4.2 
DECnet-HM-Plus   V3.0 
DECnet-Micro/RSX    VI .0 
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CFGUNT  -  CONFIG  FIlE  SCAN  ACT] 
S/tibo'  table 


ASSCHK: 

000000 

FMT8B  = 

......  GX 

At$CPS= 

000000 

FM.8  = 

000000 

A$$PRI= 

000000 

FM.8A  = 

000000 

A$t'RP= 

000000 

FM.8B  = 

000000 

CERR  = 

......  GX 

F$$LVL= 

000001 

CFGBF  = 

......  GX 

GETCSR= 

.«..«»  GX 

CFGSZ  = 

......  GX 

G$$TPP= 

000000 

CFLIN  = 

......  GX 

G$$1SS= 

000000 

CHERR 

000254R 

Gt$TTK= 

000000 

CH.DUP- 

000001 

G$$WRD= 

000000 

CH.D11= 

000100 

I$$RAR= 

000000 

lH.ECH= 

000002 

I$$RDN= 

000000 

CH.MDT= 

100020 

K$$CNT= 

177546 

CH.PAR= 

C00100 

K$tCSR= 

177546 

rH.PRM= 

0.10200 

K$$LDC= 

000000 

CH.PRT= 

000007 

IC$$TPS  = 

000074 

CH.STA= 

Ol'OOAO 

LDILP  = 

000000 

CH.SrN= 

0(  OOOA 

LF.ACT= 

100000 

CH.TVP= 

000010 

LF.BRO= 

000400 

COST 

000052R 

003  Lf.BWT= 

000007 

cosn 

r00062R 

003  LF.ENA= 

002000 

C$$C<P= 

000000 

LF.LPB= 

001000 

C$t0RE= 

000400 

LF.MDC= 

000100 

C$$PSH= 

177564 

LF.MFL= 

004000 

C1.BS¥= 

000002 

LF.MTP= 

000020 

C1.DCP= 

000001 

LF.PAC= 

000200 

CI. SDL = 

000003 

LF.RDr= 

040000 

C1.X25= 

000004 

LF.REA= 

010000 

DPR 

000072R 

003  LF.SER= 

000040 

DPRl 

000102R 

003  LF.T1M= 

00CD10 

DtSBUG= 

177514 

LF.UNL= 

020000 

D$$ISK= 

000000 

LF.X2P= 

000000 

D$SL11= 

000001 

LN.CLO= 

000000 

0$$VNC= 

000000 

LN.DUM= 

000005 

D$SVNM= 

000000 

LN.LOA= 

000004 

END 

0001 30R 

003  LN.LOO= 

000003 

E$$XPR= 

OOOOOC 

LN.0AJ= 

000003 

FL.FDX= 

......  GX 

LN.0FF= 

000001 

FL.hDX= 

•♦•♦«»  GX 

LN.GN  = 

000000 

FL.<MX= 

*•••••  GX 

LN.OOP= 

000004 

FL.LMC= 

......  GX 

LN.0PE= 

000001 

F«!T8   = 

.«..♦.  GX 

LN.REF= 

000002 

fMT8A  = 

......  GX 

LN.SER= 

000002 

.    AB5. 

DATA 
SSTATE 
S<TAB 
$K5^R 


001^24 
00C312 
000140 
000002 
000007 


IrrQri   detected: 


000 
001 
002 
003 
004 
005 
0 


(RWJ.GBL.ABS.OVR) 
(RW,I,LCL,REL,CON) 
{RW,D,LCL,REL,CON) 
fRW,D,LCL,REL,CON) 
(Rw,D,LCL,REL,CON) 
fRW,D,LCL,REL,CON) 


»••    Asseiftier    stat'stus 


WO'" 


tile     'eads:   C 
"' I  e  ><rites:   C 


f1 

15 
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LN.STA= 

000017 

P$$URD= 

000000 

V$$CTR= 

001000 

LN.3UB= 

000360 

Q$t0PT= 

000010 

X$$DBT= 

000000 

LN.TRI= 

000006 

RDBSZ  = 

«»»»♦»  GX 

$ALPHA= 

000022 

L$$ASG= 

000000 

REP8A  = 

......  GX 

$ANY  = 

000020 

L$JDRV= 

000000 

RTSPC  = 

«•»»«*  GX 

$blank:= 

000006 

L$$P11= 

000001 

R$$DER= 

000000 

$DIG]T= 

000024 

L$$11R= 

000000 

R$$K11= 

000001 

$DIV  = 

..••«.  GX 

L.COST 

000015 

R$$SND= 

000000 

$DNUMB= 

000014 

L.CTL 

000012 

R$$11M= 

000000 

$EOS  = 

000012 

L.CVA 

177776 

SETTMO 

000400R 

$ERRVP= 

♦•♦•♦*  GX 

L.DDM 

000002 

SF.ACT= 

000200 

SERRZO 

000254R 

002 

L.DDS 

000004 

SF.ENA= 

000100 

SERRIG 

OOOOOOR 

002 

L.DLC 

000003 

SF.LPB= 

000004 

SERRIH 

000024R 

002 

L.DLM 

000006 

SF.MFL= 

000040 

SERRIK 

000060R 

002 

L.DLS 

000010 

SF.PAC= 

000020 

SERRIL 

0001 16R 

002 

L.FLG 

000000 

SF.REA= 

000010 

SERRIM 

0001 54R 

002 

L.KR8A 

000016 

SF.SER= 

000001 

tERRlN 

000216R 

002 

L.LEN  = 

000022 

SF.SVC= 

000002 

$ERR1T= 

*•**»•  GX 

L.MPF 

000022 

SF.UNL= 

000040 

$EXIT  = 

000000 

L.NMST 

000020 

SPEEDT 

OOOOOOR 

SFAIL  = 

177777 

L.NSTA 

000014 

SVNERR: 

»«♦*•«  GX 

$FLAGS= 

......  GX 

L . OWNR 

000021 

S$$WRG= 

000000 

$LAMDA= 

000000 

L.UNT 

000013 

S$$YSZ- 

007600 

SWISS  = 

***»»♦  GX 

MAXCST= 

000031 

S.COST 

000001 

$NLCSR= 

♦*♦**♦  GX 

MS.SEC= 

*•••*•  GX 

S.FLG 

000000 

$NUMBR= 

000002 

M$$CR8= 

000124 

S.L£N 

000004 

SQUNT 

000040RG 

M$$CRX= 

000000 

S.NHST 

000002 

$RAD50= 

000016 

M$$FCS= 

000000 

S.OWNR 

000003 

SSLTA  = 

»***«*  GX 

M$JMGE= 

000000 

T$$KMG= 

000000 

$STRNG= 

000004 

l«l$$NET  = 

000000 

T$$MIN= 

000000 

$SUBXP= 

000010 

N$$OVR= 

000000 

UCNT  = 

»»»«»«  GX 

$$DCHA= 

******  GX 

N$$ACC= 

000001 

UNTDF 

OOOOOOR 

003  $$DPR  = 

******  GX 

N$$BUf= 

000001 

UNTKW 

OOOOOORG 

004  $$PCHA= 

******  GX 

N$$LDV= 

000001 

UNTST 

OOOOOORG 

003  $$SCSR= 

******  GX 

N$$«CP= 

000001 

U.CHAO 

0001 56R 

$$$FLG= 

177777 

N$$MLL= 

000001 

U.CHA1 

000262R 

$$$KEy= 

000000 

N$$MOV= 

000010 

U.CST 

001022R 

$$$STA^ 

000000 

N$$NCr= 

000001 

U.DPR 

001114R 

$$$TMP= 

OOOOOOR 

005 

N$$PEM= 

000001 

U.PECH 

000334R 

.PNUMB= 

♦**..*  GX 

PECH 

0001 12R 

003  U.SCSR 

000614R 

.PNUI«1H= 

******  GX 

PECHI 

000122R 

0O3  U.UNT 

000112R 

.TPARS= 

******  GX 

P$$P45= 

000000 

U.XCSR 

000756R 

..SCSR= 

******  GX 

CF 

to 
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103 
104 
105 
105 
107 
108 
109 
110 
111 
112 
113 

r4 

115 

life  OOOUA 

117  000150 

118  000152 

119  000156 

120  000162 

121  000156 

122  000172 

123  000175 


.S8TTL  $QX2P  -  LOOK  FOR  X2P$DF  MACRO 

F 

$QX2P  -  LOOK.  FOR  X2P$DF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

ALL  REGISTERS  DESTROVED 


12A 
125 
126 
127 
128 
129 
130 


000200 
00020A 
000206 


000210 


012705  000000" 
005001 

012702  000000' 

016703  OOOOOOG 

012701  OOOOOOG 

005067  OOOOOOG 

105003 

005367  OOOOOOG 

0OU01 


$QX2P::  MOV 

#X2PDF,R5 

CLR 

R1 

MOV 

#X2PKW,R2 

MOV 

CFGSZ,R3 

MOV 

#CfG8F,RA 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

20$:     RETURN 

;  ERRORS 

)0n:        EMSGSR 

IT 

STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EO,  YES 


SYNTAX  ERROR 
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CE' 


123 
1?A 

125 

126 

127 

'28 

129 

150 

131 

'52 

133 

13A 

135 

136 

137 

138 

139 

HO 

Kl 

U2 

143 

144 

145 

146 

147 

148 

149 

150 

i51 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 


$AMEM 


.SBTTL  SAMEM  -  ALLOCATE  MEMORY  IN  NTPOOL 


SUBROUTINE  TO  ALLOCATE  A  CONTIGUOUS  BLOCK  OF  MEMORY 
FROM  PARTITION. 


INPUTS: 


R4  -    CURRENT  VALUE  OF  SQBIAS 

R5  -    NUMBER  OF  32  WORD  BLOCKS  REQUIRED 

TASK  SWITCHING  MUST  BE  DISABLED 


OUTPUTS: 

C  BIT 


NOTE: 


SET  IF  NO  MEMORY  ALLOCATED 

CLEAR  IF  MEMORY  ALLOCATED 
R4  -    NEW  VALUE  OF  SQBIAS 

r5  -    b'        OF  MEMORY  ALLOCATED,  IF  ALLOCATION  SUCCEEDS 
R0,R1,R2  A   DESTROYED 


THE  VALUE  OF  SQBIAS  RETURNED  IN  R4  MUST  BE  UPDATED  IN 
IT'S  GLOBAL  STORAGE  LOCATION  SQBIAS  BEFORE  TASK-SWITCHING 
IS  REENABLED. 


REGISTER  USAGE: 

RO  - 
R1  - 
R4  - 
R5  - 


BUFFER  FOR  ADJUSTED  HOLE  SIZE 

BIAS  OF  PREVIOUS  HOLE 

BUFFER  FOR  BIAS  OF  NEXT  HOLE 

SIZE  (IN  32-WD  BLKS)  OF  SPACE  REQUIRED 


000002 

000002  016767  OOOOOOG  177770 
000010  017746  177764 


000014  010477  177760 
000020  000261 
000022  001473 


000024  016700  140002' 

000030  160500 

OOOC32  103422 

000034  001414 

000036  017746  177736 


SAMEM: 


MOV 
MOV 


SPECIAL  CASE 

MOV 
SEC 
BEQ 


MOV 
SUB 

BLO 

BEQ 

MOV 


KSAR6,KS6 
aKS6,-(SP) 


--  IS  SPACE  AVAILABLE 
R4,SK56 
70S 

.  iASEBt2,R0 
R5,R0 

40$ 

30S 


COPY  KISAR6  ADDRESS  FROM  VECTOR  TABLE 
SAVE  MAPPING  REGISTER 


IN  rlRST  HOLE 

SET  VIRTUAL  BIAS  AT  FIRST  HOLE 

ASSUME  NOT 

IS  THERE  A  FIRST  HOLE? 

NO  —  RETURN  WITH  CARR"  SET 

SET  RO  TO  HOLE  SIZE,  ADJUSTED  AS  IF  REilUlRED 

SPACE  HAS  BEEN  TAKEN  FROM  HOLE. 

IS  SUFFICIENT  SPACE  AVAILABLE? 

NO  —  CHECK  NEXT  HOLE 

YES  —  IS  ANY  SPACE  LEFT  IN  HOLE? 

NO  —  ALLOCATE  MEMORY  &   DELETE  HOLE 

Y-S  —  ALLOCATE  CEMORY  &  ADJUST  HOLE  SIZE 


aKS6,-(SP) 


'.E' 


',4VH  t  •?"  ADR  OF  ALLOCATED  SPACE  ON  STACK 


CEALL  - 

ALLOCAT 

E  BYIES 

OF  POOL  MACRO  vol 

.03b  Sa 

185 

+ 

186 

$DEA18 

187 

188 

INPUTS 

189 

190 

191 

192 

193 

194 

195 

OUTPUT 

196 

197 

198 

199 

200 

NOTE: 

201 

202 

203 
204 
205 

- 

000220 

EDEA18:: 

206 

000220 

207 

000224 

010046 

208 

000226 

010003 

209 

000230 

017704 

OOOOOOG 

210 

000234 

020077 

OOOOOOG 

211 

000240 

103002 

212 

000242 

017704 

OOOOOOG 

213 

000246 

0(0105 

lOS: 

214 

000250 

215 

000254 

022677 

OOOOOOG 

216 

000260 

103003 

217 

000262 

010477 

0000006 

218 

000266 

000402 

219 

000270 

010477 

OOOOOOG 

20$: 

220 

000274 

30$: 

221 

222 

223 

OOOOOT 

3:01 


Page  S 


DE-ALLOCATE  DOUBLEUORD  ADDRESSABLE  STORAGE  IN  BUFFER  POOL 

'RO  =  BIAS  OF  BASE  OF  BUFFER  TO  BE  RETURNED 

Rl  =  NUMBER  OF  BLOCKS  (MAPPED)  OR  BYTES  (UNMAPPED)  IN  BUFFER 

$NBIAS=  BIAS  OF  BASE  OF  NEXT  FREE  NON-UMR  BUFFER 

SQBIAS  =  BIAS  OF  BASE  OF  NEXT  FREE  UMR  BUFFER 

$QSTRT=  BIAS  OF  BASE  OF  UMR  BUFFER  POOL 

TS: 
$NSIAS=  BIAS  OF  BASE  OF  NEXT  FREE  NON-UMR  BUFFER 
$(3BIAS  =  BIAS  OF  BASE  OF  NEXT  FREE  UMR  BUFFER 
R0,R1,R2  -  DESTROYED  (11D/IAS  ONLY) 

IF  IMPROPER  VALUES  ARE  SUPPLIED  TO  THIS  ROUTINE,  IT  WILL 
PROBABLY  RESULT  IN  THE  CORRUPTION  OF  THE  OPERATING  SYSTEM. 


SUSTK$ 

MOV 

MOV 

MOV 

CMP 

BHIS 

MOV 

MO" 

CAlL 

CMP 

BHIS 

MOV 

BR 

MOV 

RETURN 


.END 


30$ 

RO,-(SP) 

R0,R3 

aQ8IAS,R4 

RO.aOSTRT 

loi 

aN8IAS,R4 

R1,R5 

$DMEM 

(SP)+,aQSTRT 

20$ 

R4,aNBIAS 

30$ 

K    ,aQBIAS 


ENTER  KERNEL  MODE 
SAVE  BIAS  OF  BUFFER  TO  RETURN 
COPY  BUFFER  BIAS  FOR  $DMEM 
GET  CURRENT  SQBIAS  VALUE 
IS  BUFFER  IN  THE  UMR  POOL? 
BR  IF  YES,  USE  THE  SQBIAS  VALUE 
USE  THE  SNBIAS  (NON-UMR)  VALUE 
COPY  BLOCK  COUNT  FOR  $DMEM 
DE-ALLOCATE  BACK  TO  NETWORK  POOL 
DID  BUFFER  GO  TO  UMR  OR  '"  -UMR? 
BR  IF  WENT  TO  UMR  PORTK 
RESET  SNBIAS  (NON-UMR) 
LEAVE  KERNEL  MODE 
RESEf  $QBIAS  (UMR) 
RETURN  TO  USER  MODE,  THEN  TO  CALLER 


N  3 
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A$$CHK= 

A$$CPS= 

A$$PRI= 

A$STRP= 

CERR  = 

CFCBF  = 

CFGSZ  = 

CFLIN  ^ 

CNTDF 

CNTKW 

CNTST 

CTL 

C$$Clt,P= 

C$$ORE= 

C$$RSH=: 

C.CSR 

C.CTL 

C.PRI 

C.VECT 

D$$BUG= 

D$$ISK= 

0$$L11= 

D$$VNC= 


000000 
000000 
000000 
000000 
«»«•««  ex 

*»*♦♦•  GX 

*»*♦*»  GX 

*•:****   GX 

OOOOOOR 

OOOOOORG 

OOOOOORG 

»»*«»*  GX 

000000 

000400 

17756A 

000164R 

00OO52R 

000240R 

00007AR 

17751A 

000000 

000001 

000000 


003 
004 
003 


D$$YNM= 
E$$XPR= 
FMT8  = 
FMT8A  = 
FMT8B  = 
Fl».8  = 
FM.8A  = 
FM.8B  = 
F$$LVL= 
GETCSR= 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 

l$$a:^= 

L$$DRV= 


000000 
000000 
****** 
****** 
****** 
000000 
000000 
000000 
000001 

****** 

000000 
000000 
000000 
000000 
000000 
000000 
177546 
177546 
000000 
000074 
000000 
000000 
000000 


GX 
GX 
GX 


GX 


L$$pn  = 

L$$11R= 
MS.CSR= 
MS.PRI= 
MS.VCT= 
N$$CRS= 
M$$CRX= 
M$$FCS- 
M$$MGE= 
M$$NEr= 
M$$OVR= 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$HCP= 
N$$MLL= 
N$$M0V= 
N$$NCT= 
N$$PEM= 
P$$P45= 
P$$URD= 
Q$$0PT= 
REP8A  = 


000001 

000000 

******  GX 

******  GX 

******  GX 

000124 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000000 

000000 

000010 

******  GX 


RTSPC  = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SyNERR= 

S$$WRG= 

S$$YSZ= 

T$$KMG= 

T$$M1N= 

V$$CTR= 

X$$DBT= 

$ALPHA= 

$ANY  = 

$BLANK= 

$DIGIT= 

$DNUMB= 

$E0S  = 

$ERRZ2 

SERRIC 

SERRID 

$ERR1E 

SERRIF 


******  GX 

000000 

000001 

000000 

000000 

******  GX 

000000 

007600 

000000 

000000 

001000 

000000 

000022 

000020 

000006 

000024 

000014 

000012 

0001 5or 

OOOOOOR 
000032R 
000070R 
000114R 


$ERR1T= 

SEX  IT  ^ 

SFAIL  = 

$LAMDA= 

SMISS  = 

$MXVCT= 

INLCSR= 

$NUHBR= 

SQCNT 

$RAD50= 

$STRNG= 

SSUBXP^ 

$$CSR  = 

$$PRI  = 

$$VECT= 

$$$FLG= 

$$$KEY= 

$$$STA= 

002  $$$THP= 

002  .PNUMB= 

002  .PNUMH= 

002  .TPARS= 

002 


******  GX 

000000 

]77777 

000000 

******  GX 

******  GX 

******  GX 

000002 

OOOOOORG 

000016 

000004 

000010 

******  GX 

******  GX 

******  GX 

17777: 

000000 

000000 

OOOOOOR 

******  GX 

******  GX 

******  GX 


ABS.   000000 


DATA 
SSTATE 

sktab 

SKSTR 


000330 
000170 
000036 
000002 
000007 


000   (RW,I,G8L,ABS,0VR) 


Errors  detected: 


001 
002 
003 
004 
005 
0 


(RW,I,LCL,REL,C0N) 
(RU,D,LCL.REL,C0N) 
(RW,D,lCL,REL,CON) 
(RW,D,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 


•*•   Assembler   statistics 

Work      file     reads:  0 

Work      file  writes:  0 

Size  of  work    file:  12504   Words     (   49  Pages) 

Size  of   core  pool:  14440  Words      (    55  Panes) 

Ooerating     system:  RSX-11M/PLUS 

SyfcFGCNT!v2][132,134]CFGCNr/CR/-SP=SY:Cl,nRSXf'1CM.SML/ML,Ll30,110]NETLI8/ML,C130,10]RSXMCM/PA:l,C132,10]CFGCNT 
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SYMBOL    CROSS   REFEREI^CE 


N     4 

PAGE   1 

CREf       04.00 


CFG 
DTE 


SYMBOL 

VALUE 

REFERENCES 

CFGBF 

-  ****** 

GX 

6-77 

CFGSZ 

=  ****** 

GX 

6-76 

ODMDF 

000000 

R 

6-73 

DDMKU 

000000 

RG 

6-75 

#7-92 

DDMST 

000000 

RG 

#7-92 

D.EXT 

000052 

R 

#8-157 

MS. EXT 

r  ****** 

GX 

8-158 

M$$MGE 

=  000000 

7-101 

8-156 

SYNERR 

~    ****** 

GX 

•6-78 

•6-81 

SALPHA 

=  000022 

#7-92 

$ANY 

=  000020 

#7-92 

SBLANK 

=  000006 

#7-92 

SDIGIT 

=  000024 

#7-92 

SONUMB 

=  00001 A 

#7-92 

$EOS 

=  000012 

#7-92 

SERRIT 

=  ****** 

GX 

6-88 

SEXIT 

=  000000 

#7-92 

SFAIL 

=  177777 

#7-92 

$GPRM 

=  ****** 

7-92 

SLAMDA 

=  000000 

#7-92 

SMISS 

=    ****** 

GX 

8-158 

SNUMBR 

=  000002 

#7-92 

SQDDM 

000000 

RG 

#6-73 

$RAD50 

=  000016 

#7-92 

SRCNLY 

=  ****** 

7-92 

7-92 

SSTRNG 

=  000004 

#7-92 

SSUBXP 

=  000010 

#7-92 

$$EXT 

=  ****** 

GX 

•8-160 

$$$FLG 

=  177777 

#7-92 

$$$KEY 

=  177777 

#7-92 

.PNUMB 

~       ****** 

GX 

8-160 

.TPARS 

-   ****** 

GX 

6-79 

7-92 
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289 
290 
291 

292  0002H 

293  000220 
29A  000222 

295  000226 

296  000232 

297  00023-; 

298  000236 

299  000240 

300  000244 

301  000246 

302  000250 

303  000254 
304 

305 

306 

307  000256 

308 

309 

310 

311 

312  000264 

313  000270 

314  000?72 
315 

316 

317 

3i8  000274 

319 


005767  OOOOOOG 

001016 

016700  OOOOOOG 

012701  000040 

020001 

001405 

006301 

020127     001000 

101004 

000771 

010067  OOOOOOG 


HASH  TABLE  SIZE 


HSHTBL: 


10$: 


20$: 


TST 

BNE 

MOV 

MOV 

CMP 

BEQ 

ASL 

CMP 

BHI 

BR 

MOV 

RETURN 


.PNUMH 

101$ 

.PNUMB,RO 

#HSHMN,R1 

RO.RI 

20i 

R1 

R1,#HSHMX 

101$ 

10$ 

RO,HSHSZ 


ERRORS 
101$:   EM5G$R  04 

COUNTER  TIMER  VALUE 


005767  OOOOOOG 
001001 


CNTTIM: 


TST     .PNUMH 
BNE     101$ 
RETURN 


ERRORS 
101$:   EMS6$R 


05 


LEGAL  HASH  TABLE  SIZE  VALUE? 

BR  IF  NO 

GET  HASH  TABLE  SIZE 

GET  MINIMUM  SIZE  OF  HASH  TABLE 

IS  THIS  A  LEGAL  SIZE? 

BR  IF  YES 

HASH  TABLE  SIZE  MUST  BE  POWER  OF  TWO 

IS  THIS  A  LEGAL  SIZE? 

BR  IF  NO 

CHECK  FOR  LEGAL  VALUE 

SAVE  HASH  TABLE  SIZE 


ILLEGAL  HASH  TABLE  SIZE 


LEGAL  COUNTER  TIMER  VALUE? 
BR  IF  NO 


ILLEGAL  ^HUNTER  TIMER  VALUE 


CF 
MA 

m; 

AS 
CA 
06 
DT 
EN 
IS 
MT 
NT 
Ph 
RE 
RE 
RE 
RE 

S^ 

s; 

SL 
SI 

Sk 
Tf 


CFGDTE     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:03 
MACRO  CROSS  REFEmENCE 
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CREF   04.00 


CF 


m;cro  name 

REFERENCES 

ASL$ 

#5-60 

20-500 

CALL 

9-158 

12-256 

12-264 

12-278 

15-344 

16-371 

OBGTP$ 

#10-173 

#10-185 

#10-204 

#10-208 

#10-212 

#10-219 

DTEDFS 

#5-59 

5-64 

EMSGSR 

#5-59 

9-167 

12-269 

13-307 

13-318 

14-338 

ISTATS 

#5-60 

10-173 

MTRANS 

#10-173 

NTLER$ 

#5-60 

8-129 

8-130 

8-131 

8-132 

8-133 

PHBDFS 

#5-60 

5-65 

RESMAP 

#5-74 

16-391 

RESRG 

#5-59 

RETC 

#5-59 

16-390 

RETURN 

9-162 

12-257 

12-265 

12-287 

13-303 

13-314 

18-433 

18-440 

19-471 

20-508 

SAVMAP 

#5-70 

16-372 

SAVRG 

#5-59 

SLTDFS 

#5-59 

5-66 

STATES 

#5-60 

10-177 

#10-180 

#10-183 

#10-187 

#10-190 

#10-206 

#10-210 

#10-214 

#10-217 

11-226 

#11-229 

swstks 

16-371 

TRAN$ 

#5-60 

#10-178 

#10-181 

#10-184 

#10-185 

#10-188 

#10-203 

#10-204 

#10-207 

#10-208 

#10-211 

#10-212 

#11-230 

#11-235 

#11-236 

#11-237 

#11-240 

16-379 
#11-237 

15-350 


15-346 


#10-193 
#11-232 

#10-191 
#10-215 


18-424 


18-444 


16-393 


#10-196 
#11-235 

#10-194 
#10-218 


19-467 


17-414 


#10-199 
#11-239 

#10-197 
#10-219 


18-426 


#10-202 
#11-242 

#10-200 
#11-227 


N  7 

CFGPVC  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:04  Page  k 


CF 

CH 


3 

A 
5 
6 
7 
8 
9 

10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
L7 
48 
A9 
50 
51 
52 


.TITLE   CFGPVC  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 

-■OPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-0Cr-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

0ECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DE'"NET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-P(us  V5.0 
DECnet-Micro/RSX  VI. 0 


CFGPVC  - 

INITIAL  CONFIG 

FILE  SC 

MACRO  VO! 

.03b 

Saturday 

29-Jun-85  00 

:04  Page  15 

CHKPvr  - 

CHECIC 

FOR  VALID  PVC 

507 
508 
509 
510 
511 

.SBTTL 

CHKPVC  -  CHECK  FOR  VALID  PVC 

+ 

CHKPVC  -  CHECK  FOR  VALID 

PVC 

512 

513 

INPUTS: 

5U 

NONE 

515 

515 

OUTPUTS: 

517 

CARRY  CLEAR  -  SPECIFIED  PVC  IS  UNIQUE 

518 

CARRV  SET  -  SPECIFIED  PVC 

IS  NOT  UNIQUE 

519 

RO  DESTROYED 

520 

521 
522 

001050 

017700 

OOOOOOG 

:hkpvc 

:  MOV 

aPSJPT.RO 

POINT  TO  PSI  HOME  BLOCK 

523 
52A 
525 

001054 

062700 

000006 

ADD 

#H$PVC,RO 

POINT  TO  PVC  NAME  BLOCK  LISTHEAD 

001060 

SUSTK$ 

50$ 

;  ENTER  SYSTEM  STATE 

526 

001064 

SAVMAP 

;  SAVE  CURRENT  MAPPING 

527 

001070 

011000 

10$: 

MOV 

(RO),RO 

;  GET  ADDRESS  OF  NEXT  BLOCK  IN  LIST 

528 

001072 

001434 

BEQ 

40$ 

;  BR  IF  END  OF  LIST 

529 

001074 

010046 

MOV 

RO,-(SP) 

;  SET  UP  UNMAPPED  ADDRESS 

530 

001076 

CALL 

$CEACX 

;  CONVERT  TO  MAPPED  ADDRESS 

531 

001102 

012600 

MOV 

(SP)+,RO 

;  RETRIEVE  MAPPED  ADDRESS 

532 

001104 

026760 

000010' 

000010 

CMP 

PVCLCN,C$LCN(RO); 

;  SAME  CHANNEL  NUMBER? 

533 

001112 

001004 

BNE 

15$ 

; 

;  NO,  OKAY 

53A 

001114 

026760 

OOOOOOG 

000012 

CMP 

DTEDES,C$DTE(RO); 

;  SAME  DTE  AS  WELL? 

535 

001122 

001413 

BEQ 

30$ 

;  YES-  ILLEGAL         ^    ,,   ,^^  ,^  ,^ 

536 

001124 

012702 

000006 

15$: 

MOV 

#PVNAMX,R2 

;  GET  NUMBER  OF  CHARACTERS  IN  CIRCUIT  ID 

537 

001130 

012701 

000036' 

MOV 

^PVCNAM.Rl 

;  POINT  TO  SPECIFIED  PVC  CIRCUIT  ID 

538 

001134 

010003 

MOV 

R0,R3 

;  COPY  PVC  BLOCK  POINTER 

539 

001136 

062703 

000002 

ADD 

#ciNAM,R3 

;  POINT  TO  CIRCUIT  ID  MELD 

540 

001142 

122123 

20$: 

CMPB 

(Rl)t,(R3)- 

;  IS  THIS  A  UNIQUE  CIRCUIT  ID? 

541 

001144 

001351 

BNE 

10$ 

;  BR  IF  YES,  SO  FAR  -  CONTINUE  SEARCH 

542 

001146 

005302 

DEC 

R2 

;  MORE  CHARACTERS  TO  CHECK? 

543 

001150 

003374 

RGT 

20$ 

;  BR  IF  YES 

54A 

001152 

30$: 

»l:c 

RO 

;  ELSE  ERROR  -  SET  USER  C-BIT 

54  5 

001164 

40$: 

RESMAP 

;  RESTORE  PREVIOUS  MAPPING 

546 

001170 

50$: 

RETURN 

CFGPVC     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:04 
SYMBOL  CROSS  REFERENCE 
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CREF   04.00 


CFG 
SUB 


SYMBOL 

VALUE 

PEFERENC 

HSHSZ 

=  *.»»»*  GX 

18-658 

HTIMR 

000000  R 

#7-128 

HtNPT 

000022 

^6-567 

HSPTB 

000020 

14-485 

HIPVC 

000006 

13-454 

INIXCB 

001266  R 

14-489 

INVCIR 

001720  R 

20-714 

<SAR5 

=  •*♦•**  GX 

13-418 
21-804 

LF.ACT 

=  100000 

#5-70 

LF.BRO 

=  000400 

#5-70 

LF.BWT 

=  000007 

#5-70 

LF.ENA 

=  002000 

#5-70 

LF.LPB 

=  001000 

#5-70 

LF  MDC 

=  000100 

#5-70 

LF.MFL 

=  004000 

#5-70 

LF.MTP 

=  000020 

#5-70 

LF.PAC 

=  000200 

#5-70 

LF.RDY 

-  040000 

#5-70 

LF.REA 

=  010000 

#5-70 

LF.SER 

=  000040 

#5-70 

LF.TIM 

'-   000010 

#5-70 

LF.UNL 

=  020000 

#5-70 

LF.X2P 

=  000000 

#5-70 

LLCTA 

=  ♦*«♦*«  GX 

21-782 

LNKEND 

=  ..*■;»»   GX 

13-455 

LN.CLO 

=  000000 

#5-70 

LN.DUM 

=  000005 

#5-70 

LN.LOA 

=  000004 

#5-70 

LN.LCO 

=  00000 ■ 

#5-"0 

LN.OAU 

=  00000  . 

#5-70 

LN.OFF 

=  00000. 

#5-70 

LN.ON 

=  000000 

#5-70 

LN.OOP 

=  000004 

#5-70 

LN.OPE 

=  000001 

#5-70 

LN.REF 

=  000002 

#5-70 

LN.SER 

=  000002 

#5-70 

LN.STA 

=  000017 

#5-70 

LN.SUB 

=  000360 

#5-70 

LN.TRI 

=  000006 

#5-70 

LTIMR 

000002  R 

#7-129 

LSCHTB 

000030 

18-650 

L.COST 

ooonis 

#5-70 

L.CTL 

000012 

#5-70 

L.CVA 

177776 

#5-70 

L.DDM 

000002 

#5-70 

L.DDS 

000004 

#5-70 

L.DLC 

000003 

#5-70 

L.DLM 

000006 

#5-70 

L.DLS 

000010 

#5-70 

L.FLC 

oooooo 

#5-70 

L.HRBA 

000016 

#5-70 

18-668 
*1 3-409 

16-568 
15-523 
#17-602 
20-727 
13-456 
21-820 


21-818 


#20-732 
15-526 


20-739 
15-5<,5 


20-741 
16-565 


20-753 
16-583 


20-755 
18-646 


18-675 


21-802 


♦13-410 


20-743 


21-819 
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SUBEXPRESSIONS 

16A 
165 
166 
167 

168  000062 

169  000062 

170  000062 

171  000062 

172  000062 

173  000062 

174  000062 

175  000062 

176  000062 

177  000U62 

178  000062 
179 
180 
181 

182  000062 

183  000062 
18A  000062 
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cfg; 

STA) 


;  FLAG  BIT  DEFINITIONS  PLUS  TRAILING  COMMA 

STATES 

BITS 

TRANS 

XLF.X2PX,BITS1,,FG.X2P,CFGFLG 

TRANS 

$RAD50,BITS1 

TRANS 

<',>,SEXir 

STATES 

BITS1 

TRANS 

<'I>,BITS2 

TRANS 

'+,8ITS2 

TRANS 

<',>,SE)(IT 

STATES 

BiTS2 

TRANS 

XLF.X2PX,BITSl,,FG.X2P,CFGfLG 

TRANS 

$RAD50,BITS1 

':    CHECK  FOR  END 

OF  SOURCE  LINE 

STATES 

END 

TRANS 

<';>,SEX1T 

TRANS 

SEOS.SEXIT 

185 

If 


000062 


STATES 


CFGSTA  - 

CONFIG  FILE 

STAtDF  STATE  TABLE 

112 

11? 

1H 

000270 

115 

116 

117 

118 

000270 

119 

000270 

120 

121 

000270 

122 

000270 

123 

12^ 

000270 

125 

000270 

126 

127 

000270 

128 

000270 

129 

130 

000270 

131 

000270 

132 

000270 

133 

134 

000270 

135 

000270 

136 

137 

000270 

138 

000270 

139 

KO 

000270 

Kl 

000270 

U2 

000270 

K3 

UA 

000270 

K5 

000270 

1h6 

K7 

000270 

U8 

000270 

U9 

000270 

150 

151 

000270 

152 

000270 

153 

15A 

155 

156 

157 

000270 

158 

000270 

159 

000270 

160 

161 

162 

163 

000270 

16A 

000270 

165 

000270 

166 

000270 

167 

000270 

168 

000270 
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.SBTTL  STASDF  STATE  TABLE 

ISTATS  STAST,STA<W 

STATION  TABLE  DEFINITION  (STASDF) 

STATES  STADF 

TRANS   5!STASDF?!,,,1,SYNERR 


CFG 
MAC 


STATES 


;  STATION  NUMBER 


TRANS 

SNUMBR,,ST. 

NUM 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SRAD50 

PROCESS  NAME 

STATES 
TRANS 
TRANS 

.'END.SEXIT 
<'  .> 

DON'T  REQUIRE 

ANY 

STATES 
TRANS 

I8JTS 

STATES 
TRANS 

STADF2 
SNUMBR,,ST 

CST 

STATION  COST 

STATES 
TRANS 
TRANS 

!END,SEXIT 

DON'T  REQUIRE 

APR 

STATES 
TRANS 

$NUMBR,,ST 

APR 

ACTIVE  RATIO 

STATES 
TRANS 
TRANS 

lEND.SEXlT 
<'  .> 

STATES 
TRANS   $NUMBR,,ST.HTM  ;  HELLO  TIMER 


CHECK  FOR  END  OF  LINE 

STATES  END 
TRANS   <';>,SEXIT 
TRANS   SEOS,SEXIT 

FLAG  fIT  DEFINITIONS  PLUS  TRAILING  COMMA 

STATES  BITS 

TRANS   SRAD50,BITS1 

TRANS   <',>,SEXIT 

STATES  BITS1 

TRANS   <'.'>, BITS2 

ThANS   '+,8ITS2 


N  12 
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MACRO   DEFINITIONS 
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CF 
PC 


105 
106 
107 
108 
109 
110 
111 
112 
113 
11A  000000 

115  000000 

116  000002 

117  OOOOOA 

118  000006 

119  000010 

120  000012 

121  OOOOI'i 

122  000016 

123  000020 

124  000021 

125  000022 

126  000023 
12^  000024 
128 

129  000025 
130 

131  0000A4 

132  000054 
133 


000007 


000017 
000044' 


CONSTANT   DCFINITIONS 

MAXWND  =  7 

.S8TTL  LOCAL  DATA 


LOCAL  DATA 

.PSECT  DATA.D 
NEXT:  .8LKU 
HTIMR:  .BLKW 
LTIMR:  .8LKW 
PKTSVC:  .8LKW 
FLGSVC:  .BLKU 
RTYSVC:  .8LKW 
STASVC:  .BLKW 
SLTA:  .81  KW 
OWNSVC:  .8LKB 
CTLSVC:  .BLK8 
UNDSVC:  .BLKB 
RCLSVC:  .8LKB 
COUNT:   .BLK8 

DTELEN  =  15. 
DTESVC:  .BLKB   DTELEN 

DTEEND  =  . 
DTEPCK:  .8LKB   <DTELEN+1>/2 
CVT8UF:  .BLKB   1 

.EVEN 


;  MAXIMUM  WINDOW  SIZE 


ADDRESS  TO  STORE  NEXT  DTE  DIGIT 

LOCAL  COPY  OF  HELLO  TIMER 

LOCAL  COPY  OF  LISTEN  TIMER 

PACKET  SIZE 

FLAGS  WORD 

RETRY  TIMER 

STATION  NUMBER 

LOCAL  COPY  OF  $SLTA 

OWNER 

CONTROLLER  NUMBER 

WINDOW  SIZE 

RECALL  TIMER 

NUMBER  OF  DIGITS  IN  DTE  ADDRESS 

DTE  ADDRESS 

DTE  ADDRESS  (BCD) 
CONVERSION  BUFFER 


L 
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585 

586 

587 

588 

589 

590 

591 

592 

593 

59A 

595 

596 

597 

598 

599 

600 

601  00K40 

010501 

602  00UA2 

116702  000024' 

603  001446 

001423 

604  001450 

105021 

605  001452 

005300 

606  001454 

003375 

607  001456 

005001 

608  001460 

005305 

609  001462 

112400 

610  001464 

005701 

611  001466 

001007 

612  001470 

613  001500 

005201 

614  001502 

005205 

615  001504 

000401 

616  001506 

005301 

617  001510 

1 5001 5 

618  001512 

005302 

619  001514 

003362 

620  001516 

.SBTTL  PCK8CD  -  PACK  STRING  OF  DIGITS  IN  uCD  FORMAT 
y 

PCKBCD  -  PACK  A  STRING  OF  DIGITS  IN  BCD  FORMAT 

INPUTS: 

RO  -  NUMBER  OF  BYTES  IN  PACKED  ADDRESS 

R4  -  ADDRESS  OF  BUFFER  CONTAINING  ASCI  DIGITS  TO  PACK  (0=END  OF  BUFFER) 

R5  -  ADDRESS  OF  BUFFER  TO  STORE  PACKED  DATA 

COUNT  -  NUMBER  Or  DIGITS  SPECIFIED 

OUTPUTS: 

BUFFER  SPECIFIED  IN  R5  CONTAINS  DATA  IN  BCD  FORMAT 


GET  ADDRESS  OF  PACKED  DATA 

GET  NUMBER  OF  DIGITS  IN  STRING 

BR  IF  NOTHING  TO  DO 

INITIALIZE  PACKED  ADDRESS 

MORE  TO  INITIALIZE? 

BR  IF    YES 

POSITION  INIDCATOR  (0=HIGH  FOUR  BITS) 

UPDATE  ADDRESS  FOR  FIRST  TIME 

GET  DIGIT  TO  PACK 

STORE  IN  HIGH  FOUR  BITS? 

BR  IF  NO 

MOVE  TO  HIGH  FOJR  BITS 

INDICATE  STORE  IN  LOW  FOUR  BITS  NEXT 

POINT  TO  NEXT  BYTE 

BR  TO  STORE  DECIMAL 

INDICATE  STORE  IN  HIGH  FOUR  BITS  NEXT 

PACK  THE  NUMBER  INTO  THE  BUFFER 

MORE  TO  CONVERT? 

BR  IF  YES 


PCKBCD 

MOV 

R5,R1 

MOVB 

COUNT, R2 

BED 

40$ 

5$: 

CLRB 

(R1)  + 

DEC 

RO 

B6T 

Sf 

CLR 

R1 

DEC 

R5 

10$: 

MOVB 

(R4)+,R0 

TST 

R1 

BNE 

20$ 

ASL$ 

4,R0 

INC 

R1 

INC 

R5 

BR 

30$ 

20$: 

DEC 

R1 

30$: 

BIS8 

R0,(R5) 

DEC 

R2 

BGT 

10$ 

40$: 

RETURN 

L 


N  U 
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MACRO  PEFINIMONS 


5? 

54 
55 
56 
57 
58 

59  000000 

60  000000 


.SBTIL  MACRO  DEFINITIONS 
LIBRARV  MACROS 

.MCALL   EMSGIR, I  ST  ATS, NTLERS, STATES, TRANS, SLTDF$,SAVRG,RESRG,CHADF$ 


CHADFS 
SLTDFS 


DEFINE  CHARACTERISTICS  WORD  OFFSETS 
DEFINE  SLT  OFFSETS 


n 

S: 


E 


N  15 

CFGUNT   -  CONFIG  FILE   SCAN  ACTIO  '^ACRO  v05.03b  Monday  15-Jul-85  18:56     Page  U-2 
S/mcot    tabie 

Size  ot  work  file:  K981  Words  '  59  Pages) 
Size  ot  core  pool:  16552  Weds  '  65  Pages) 
Ooe'-at'-ig     system;   RSX-11M/PLUS 

^B??CFGUNKT^3?[13°!l3^]CFGUNT/CR/-SP=DB2:[1  JJRSXMCM.SML/ML,[130J10]NETLIB/ML,[T30JO]RSXMCM/PA:1,[152 


c 

D 
E 
F 
G 

H 

! 

J 
K 
L 
M 
N 
B 
r 

D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 

F 

G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
0 
E 
F 
G 
H 
I 


ALCMEM 


CEALL 


CFGCNT 


CFGPDM 


CFGD^'E 


J 

K 

1 

M 

N 

R 

ft 

r 

6 

D 

h 

F 

6 

F 

6 

G 

6 

H 

ft 

1 

ft 

J 

ft 

K 

ft 

1 

ft 

M 

ft 

N 

ft 

R 

^ 

r 

Z 

D 

! 

F 

I 

F 

I 

G 

1 

H 

/ 

I 

1 

J 

1 

K 

1 

1 

1 

M 

? 

N 

I 

R 

8 

r 

H 

D 

H 

F 

H 

F 

K 

fi 

H 

H 

H 

I 

8 

J 

8 

K 

H 

1 

H 

n 

8 

N 

8 

H 

V 

r 

9 

D 

9 

E 

9 

F 

9 

G 

9 

H 

9 

I 

9 

.1 

9 

K 

9 

1 

9 

n 

9 

N 

9 

R 

10 

r 

10 

D 

10 

CFGFEA 


CFGPVC 


F 

10 

F 

10 

G 

10 

H 

10 

I 

10 

J 

10 

K 

10 

1 

10 

M 

10 

N 

10 

R 

11 

r 

11 

n 

11 

F 

11 

F 

11 

G 

11 

H 

11 

J 

11 

K 

11 

1 

11 

H 

11 

N 

11 

R 

V 

r 

V? 

1) 

V 

F 

V 

F 

Vf 

G 

r? 

H 

V 

I 

V 

J 

V 

K 

V 

1 

V 

M 

1^ 

N 

V 

R 

n 

r 

n 

D 

I'i 

F 

H 

F 

1^ 

G 

H 

H 

M 

I 

1< 

1 

M 

K 

1^ 

1 

H 

M 

1^ 

N 

H 

R 

U 

r 

14 

D 

U 

F 

U 

F 

14 

G 

14 

H 

14 

I 

14 

J 

14 

K 

14 

L 

14 

CFGSLT 


CFGSTA 


CFGSVC 


M 

N  1^ 
B 
C 
D 


16 
16 
16 

,  16 
H  16 

I  Vi 

J  6 
K  16 
L  16 
M  16 


CFGX2P 


CFGUNT 


CFGX2P  - 

CONFIG   FILE 

X2P$DF    STME    TABLE 

132 

133 

134 

135 

136 

000216 

137 

138 

139 

KO 

000216 

K1 

000216 

K2 

K3 

000216 

U4 

000216 

H5 

146 

000216 

147 

000216 

148 

149 

000216 

150 

000216 

151 

152 

000216 

153 

000216 

154 

000216 

155 

156 

000216 

157 

000216 

158 

159 

000216 

160 

000216 

161 

162 

000216 

163 

000216 

164 

165 

000216 

166 

000216 

167 

168 

000216 

169 

000216 

170 

171 

000216 

172 

000216 

173 

174 

000216 

175 

000216 

176 

177 

000216 

178 

000216 

179 

180 

000216 

181 

000216 

182 

183 

000216 

184 

0002 -■'■ 

185 

186 

000216 

187 
188 

000216 
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.SBTTL  X2PSDF  STATE  TABLE 
;  TPARS  STATE  TABLES 

ISTATS  X2PST,X2PKW 
•  X2PSDF 


CFGX3F 


STATES  X2°DF 
TRANS   XX2PS3FX, 


,1,SYNERR 


STATES 
TRANS   l,.AD50,,X2.DEV 


STATES 
TRANS 

<'-> 

STATES 
TRANS 

SNUMBR , 

,X2 

CTL 

STATES 
TRANS 
TRANS 

<',>,X2PRM 

CHKDEV 

STATES 
TRANS 

INUMBR , 

,X2 

UNT 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

X2PRM 
SNUMBR, 

,X2 

'!WS 

STATES 
TRANS 

<'  .> 

STATES 
TRANS 

SNUMBR, 

,X2 

MBS 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUM8R, 

,X2 

MRT 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

".NUMBR, 

,X2 

RTR 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR, 

,X2 

HLD 

DEVICE  NAME 


CONTROLLER  NUMBER 


UNIT  NUMBER 


MAXIMUM  WINDOW  SIZE 


MAXIMUM  BLOCK  SIZE 


MAXIMUM  RETRANSMIT  COUNT 


RETRANSMIT  TIMER 


HOLDBACK  TIMER 


rcrvTD    _    rnMr  i  r.    r  r  i 


'Tin   Miron   wit;    n^h   '^jfurHav    ?q-liin-RS    nn:n«      Panp    10-1 
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1 

2 

3 

A 

5 

6 

7 

8 

9 

10 
11 
'2 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 

51 
52 


.TITLE  CH;X3P  -  CONFIG  FILE  SCAN  ACTION  ROUTINES 
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MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00     02-JUN-81 

DECNET-11M/S   V3.1 
DECNET-MM-PLUS   VI. 1 

3.00      16-APR-82 

DECNET-TM  V3.1 
DECNET-11M-PLUS    Vl.1 

4.00     07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS    V?.0 

5.00  22~JUL-85 

DECnet-lIM/^  V4.2 
DECnet-llM-PI js  V3.0 
DECnet-Micro/RSX  Vl.C 


ITS 


t:  r  ^y^    Arrin    MAron    \(nci    A7K    Qat- 


C     2 


•  FILE«'!D"CF2AC1 


B     3 


CCCCCCCC   F 

F  F  F  F  F  F  F  F  F 

222222 

AAAAAA 

CCCCCCCC 

1 

1 

CCCCCCCC    F 

F  F  r  F  F  F  F  F  F 

222222 

AAAAAA 

CCCCCCCC 

1 

1 

CC           F 

21             22 

AA 

AA 

111 

1 

22     22 

AA 

AA 

1 1 1 

1 

22 

AA 

AA 

1 

1 

22 

AA 

AA 

1 

1 

FFFFFFF 

22 

AA 

AA 

1 

1 

FFFFFFF 

22 

AA 

AA 

1 

22 

AAAAAAAAAA 

' 

■| 

22 

AAAAAAAAAA 

' 

1 

CC           F 

22 

AA 

AA 

1 

1 

rc        F 

22 

AA 

AA 

1 

1 

CCCCCCC^   F 

2222222222 

AA 

AA 

CCCCCCCC 

in 

111 

CCCCCCCC    F 

2222222222 

AA 

AA 

CCCCCCCC 

in 

111 

ssssssss 

TTT 

^TTTTTT 

ssssssss 

f  1 1 

ITTTTTT 

5S 

ss 

ss 

ss 

ssssss 

SSiSSS 

ss 

SS 

SS 

ss 

lLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

ssssssss 

CF2A 
Symb 

A$$C 
A$SC 
A$$P 
A$ST 
CERR 
CFLl 

esse 

C$$C 

C$$R 

DECP 

DEV 

DEVB 

D$A^ 

0$A^ 

D$AN 

DSBfi 

D$BF 

DtDE 

0$DE 

D$EN 

D$FN 

DSHI 

D$HC 

D$[^ 
DSI^ 

D$!F 
D$L1 
D$L^ 

DSir 

.    AE 

DAT/ 
Errc 


Wor> 
Wor^ 
S'Zf 
Size 
Opei 

E'ai 
SY:( 


lu  fl  r  n  ri 


C 
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A$$CH<= 

A$$CPS= 

A$$PR1= 

A$$TRP= 

CERR  = 

CFLIN  = 

C$SCKP= 

C$$ORE= 

C$$RSH= 

DECPT  = 

DEV 

OEVBUF= 

D$AMXC 

USAMXh 

DSANN 

DtBRPR 

DSBRTM 

DSDELF 

DSDELW 

D$END  = 

DS^NB 

DSHICR 

DiHOST 

DSINAC 

OSINCT 

DSIPL 

3$LID 

DSLNAM 

DSLNUM 


000000 

000000 

000000 

000000 

»»****  GX 

"*»♦*♦  GX 

POOOOO 

000^00 

17756A 

»n**i  GX 

000030RG 

******  GX 

000072 

00007A 

000000 

000102 

000^00 

0000^5 

0000A6 

000104 

00003A 

00002A 

000022 

00004A 

0000A2 

000051 

000020 

000006 

OOOOU 


DSLST 

DSMAXC 

D$MAXH 

DSMAXV 

DSMLL 

DSMNOD 

PSNA 

DSNBEA 

DSNBRA 

D$NEND= 

0$NLN 

D$NN 

DSOUTT 

DSREFF 

D$RNN 

DTRTMR 

DiSEG 

DSSER 

DSSQRL 

D$$BUG= 

D$$ISK= 

D$$L11= 

0$$YNC= 

D$$YNM= 

E$$XPR= 

FMT8   = 

FM.8   = 

Ff'3UFF  = 

F$$LVL= 


0000A7 
00006A 
000066 
000070 
OOOOAO 
0000A1 
000062 
000056 
00005A 
00005A 
000030 
000060 
OO0OA3 
000050 
000002 
000076 
000036 
000032 
000052 
17751A 
000000 
000001 
000000 
000000 
000000 
***♦*«  GX 

oooooc 

******  GX 
000001 


GETSTR 

GRPUIC 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

I$$RDN= 

KSAR5  = 

K$$CNr= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

M$$CR6= 

f1$$CRX= 

«1$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

NAME 

NAMED 

NBRA  = 

N$$ACC= 


OOOOOORG 

000102RG 

000000 

000000 

000000 

000000 

000000 

000000 

**.*  +  **  GX 

177546 

177546 

000000 

000074 

OOOGoO 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

OOOOOOR 

000010R 

******  GX 

000001 


N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
P$$P45= 
P$$WRD= 
QUICK 
Q$$OPT-- 
RADDR 
RF.LOO= 
RTSPC  = 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
R.ADD 
R.ARE 
R.FLAG 
R.LEN 
R.LNK 
R.NAM 
002  R.NAME 
002  R.NUM 
STRADD= 
STRPT  - 


000001 

000001 

000001 

000001 

000010 

000001 

000001 

000000 

000000 

000766R 

000010 

000006R 

100000 

♦»***«  GX 

000000 

000001 

000000 

000000 

000010 

000366RG 

000012 

000014 

000000 

000002 

000312RG 

000444HG 

******  GX 

******  GX 


STKSIZ= 
S$$WRG= 
S$$YSZ= 
S.8RA 
S.CTIM 
T$$KMG= 
T$$MIN= 
UICBUF= 
USRUIC 
USRUI1 
V$$CTR= 
002  X$$DBT= 
$CEACX= 
SCTIM  = 
SERRYN 
SERRYV 
SERRYX 
SERRYY 
$ERRY2 
$HEADR= 
$LI,MKX  = 
$LSTAD= 
SLSTRM-- 
$XALOC= 
.PNUMB= 
.PNUf",H= 
.PSTCN= 
.PSTPT= 


******  GX 
000000 
007600 
000740RG 
000714RG 
000000 
000000 
******  GX 
000162RG 
000154RG 
001000 
000000 
******  GX 
*»*  +  »(;  GX 
000222R 
000164R 
0001 32R 
000050R 
000012R 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
*»«*»*  GX 
******  GX 
******  GX 


.  ABS.  000104 
001030 
DATA    000266 
Errors  ietected: 


000 
001 
002 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


**•  AssemDler  statist  c.3 

Work   file  reads:  0 

Work   tile  writes:  0 

Size  of  work  file:  12032  Words  (  47  Pages) 

Size  of  core  pool:  14440  Words  {  5'i  Pages) 

Operating  system:  RSX-1 IN/PLUS 

SY?CF2ACl!v2;ri32,134](F2ACl/CR/-SP=5Y:[1,1]RSXMCH.SML/ML,[130,110JNETLI8/ML,[130,10]RSXMCM/PA:l,[132,10]Cf2ACl 


002 
002 
002 
002 
002 


r  or  A  Tc  n  d v 


MATDn     fiM  oQ-iiiM-st:   AT   nn-no 


C     A 


B  5 

:F2AC2  -  CONFIG  FILE  ACTION  ROU  MACRO  VC5.03b  Saturday  29-Jun-85  00:10 
Symbol  table 


Page  8-3 


CF2* 
TPAfi 


a$$chk;= 

A$$CPS= 

A$tPRI= 

AttTRP= 

CfcRR   = 

..FLIN  = 

L*tCKP= 

C$$ORE= 

CS$RSH= 

DS$BiJG= 

D$$IS<= 

D$$Lr  = 

D$$YNC= 

D$$YNM= 

ES$XPR= 

FLAG 

FMT8   = 

(M.8  = 

f$j;lvl  = 

GS$rPP= 


000000 

000000 

000000 

000000 

»»»«♦»  GX 

»♦»*♦*  GX 

000000 

ooo^co 

177564 
17751 A 
000000 
000001 
000000 
000000 

oooooc 

000001 R 
«.»..*  GX 
000000 
000001 
000000 


G$$TSS= 
G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$RDN= 
KSAR5  = 
K$$CNT= 
K$$CSR= 

k$$ldc=-- 

K$$TPS= 
LDSLP  = 
L$$AS'3= 
L$$DRV= 
L$$P11= 
L$$11R^ 
002  MXCP 

M$$CRB= 
M$$CRX= 
l»l$$FCS  = 
M$$MGE= 


000000 

000000 

000000 

000000 

000000 

****f**  GX 

1775A6 

177546 

000000 

000074 

000000 

000000 

oocooo 

000001 

000000 

000006R 

000124 

000000 

000000 

000000 


M$$NET= 
M$$0VR= 
N$$ACC= 
N1.$BUF  = 
N$$LDV- 
N$$MCP^ 
N$$MLL= 
N$$MOV= 
N$INCT= 
N$$PEM= 
OBJHD  = 
OF.PRO= 
OF.RLU= 
OF.SMC= 
ONAME 

002  o.cpy 

O.END 

O.fLAG 

O.FLG 


000000 

000000 

000001 

000001 

)00001 

J00001 

000001 

000010 

000001 

000001 

******  GX 

000040 

000100 

000200 

000002h 

000202RG 

000224RG 

000146PG 

000003 


002 


o.r 

000012 

T$$KMG= 

O.L,..- 

000000 

T$$MIN= 

O.MXC 

000004 

V$$CTR= 

O.NAM 

000006 

X$tDBT= 

O.NAME 

000046RG 

SCATS  = 

O.NUM 

OOOOOORG 

$CEACX= 

O.TVP 

000002 

SERRXW 

O.VFY 

000120RG 

SERPXX 

P$$P45= 

000000 

SERRXY 

P$$WRD= 

000000 

SERRXZ 

Q$$OPT= 

000010 

SERRYY 

RTSPC  = 

****-*  GX 

SERRYZ 

R$$OER= 

000000 

$HEADR= 

R$$K11= 

000001 

$LINKX= 

R$$SND=: 

000000 

$XALOC= 

R$$11M= 

oooooo 

.PNUMB= 

S$$WRG= 

00''j00 

.PNUMH= 

S$$VSZ= 

OC  600 

.PSTCN= 

TYPE 

OOOOOOR 

002  .PSTPT= 

OOOOOO 

oooooo 

001000 

oooooo 

******  GX 
******  GX 
00001  OR 
000046R 
00011  OR 
0001 54R 
000224R 
000306R 


*****^ 
****** 
****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 


002 
002 
002 
002 
002 
002 


ABS.   OuGu'? 
00042- 
DATA    00035i 
Errors  detected: 


000 
001 
002 
0 


(RU,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CCN) 
(RW,D,LCL,REL,CON) 


•♦•   Assembler   statistics 

work      file      reads:  0 

Work      file  writes:  0 

S'ze  of   work    file:  10656   Words      (    42   Pages) 

Size   of   core   pool:  14440   Words      (    55   Pages) 

Operating     system:  RSX-11M/PLUS 

ll'frF2t:2lv2i[?°???^4kF2AC2/CR/-SP=SY:[1,nRSXMCM.SML/ML,[130,110TNETLI8/ML,[l30,10]RSXMCM/PA:1,t132,10]CF2AC2 


\  T     AA .   1  A 


C     5 


B  6 

CF2AC3  -  NTLCF2  ACTION  ROUTINES  MACRO  V05.03B  Saturday  29-Jun-85  00:10  Page  11 
TPARS  ACTION  ROUTINES  FOR  flOUSDF 


CF2AC 
ACTIC 


29& 
297 
298 
299 
300 
501 
302 
303 
30A 
305 
306 
3V 
318 
309 
310 
311 
312 


000572 
000576 
000600 
00060^, 
000606 
000610 
000616 


005767 
00100^ 
005767 
OOU05 
000410 
022767 
002A04 


OOOOOOG 
OOOOOOG 


R.BTM: 


00037^  OOOOOOG  10$: 


TST 

BNE 

TST 

BEQ 

BR 

CMP 

BLT 


.m 

10$ 

.PNUMB 

20$ 

101$ 

#255.,. PNUMB 

101$ 


000620  016767  OOOOtOG  OOOOOOG  20$: 
000626 


MOV     . PNUMB,. ROUTB 
PETURN 


000630 


101$:   EMSG$R  tl 


ENDNODE  ? 

IF  NOT  -  BRANCH 

CHECK  FOR  C.GAL  VALUE 

IF  OK  -  BRANCH 

IF  NOT  -  ERROR 

CHECK  LIMIT 

IF  ILLECU  BRANCH 

STORE  BROADCAST  TIMER  VALUE 
ILLEGAL  BROADCAST  TIMER  VALUE 


□  c  r,  n  .  1  n 


B     7 

CF2AC4  -  LONfIG  f:LE   n  TION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:11 
ACTION  ROUT'NES    TO   SET   UP   EVENT   FILTER    CONTROL   BLOCK 


Page  9 


Cf2A( 
MOVBi 


161 
162 
163 
16A 
165 
166 
167 
168 
169 
170 
171 
172 

173  000130 

174  000136 
175 

176  OOOUO 

177  0C0H6 
178 

179  000150 

180 

181   000156 

182 

183  000162 

18A  000166 

185  000172 

186  0001 7A 

187  000206 

188  000210 

189  0002T. 

190  000216 

191  000220 

192  000224 

193  000226 
19A  00023A 

195  0002^.2 

196  000250 

197  000256 

198  00026A 

199  000272 

200  000300 

201  00030A 

202  000306 

203  000310 

204  000312 

205  000314 

206  000316 

207  000320 

208  000324 

209  000326 

210  000334 

211  000536 

212  000340 

213  00C342 

214  0003^6 

215  000352 


216 

21" 


103006 

000461 

010002 
010046 

012600 
01&76C 
052760 
016760 
016760 
016760 
016760 
016760 
016700 
010003 
010301 
011000 

oour 

010003 
010046 

012600 
026760 
101564 
010246 
010146 


000554  '05401 


000000' 

000016 

0000C4' 

OOOOOo' 

000010' 

000012' 

000002' 

OOOOOOG 


000002 
000002 
000004 
000006 
OOOO'O 
000012 
000014 


.SBTTL  ACTION  ROUTINES  TO  SET  UP  EVENT  FILTER  CONTROL  BLOCK 


E.CON  -  EVENT  IS  DESTINED  FOR  CONSOLE 

E.FIL  -  EVENT  IS  DESTINED  FOP  FILE 

E.MON  -  '^VENT  IS  DESTINED  FOR  A  LOGGING  MONITOR 


052767  000001  00C002'  E.CON: 
000407 

052767  000002  000002'  E.FIL: 
000403 

052767  000004  000002'  E.MON: 

012701  000016         5$: 


10$: 


20$: 


OOOOOO'  000002 


40$: 

50S: 
oO$: 


.ENABL  LSB 


BIS 
BR 

BIS 
BR 

BIS 

MOV 

SWSTK$ 

CALL 

BCC 

RETC 

BR 

SAVMAP 

MOV 

MOV 

CALL 

MOV 

MOV 

BIS 

MOV 

MOV 

MOV 

MCV 

MOV 

MOV 

MOV 

MOV 

MOV 

BEQ 

MOV 

MOV 

CALL 

MOV 

CMP 

BHI 

MOV 

MOV 

CALL 

RESMAP 

RETURN 

BCS 


#FF.CON,fLAG 
5$ 

#FF.FIL,FLAG 
5$ 

#'^F.MON,FLAG 

#F.LEN,R1 

60$ 

$XAL0C 

10$ 

RO 

50$ 

R0,R2 

RO,-(SP) 

$CEACX 

(SP)+,RO 

CLASS, F.CL£(RO) 

#F.LEN,F.CLS(RO 

EVENT, F.EVT(RO) 

EVENT+2,F.EvT+2 

EVENT+4,F.EVT+4 

EVENTt6,F.EVT+6 

FLAG,F.FLG(RO) 

FILHD.RO 

R0,R3 

R3,R1 

(RO),RO 

40$ 

R0,R3 

R0,-(SP) 

$CEACX 

(SP)+,RO 

CLASS, F.CLS(RO) 

20$ 

R2,-iSP) 

R1,-(SP) 

$LINKX 


1C^$ 


INDICATE  EVENT  DESTINED  FOR  CONSOLE 


INDICATE  EVENT  DESTINED  FOP  FILE 

INDICATE  EVENT  DESTINED  FOR  CONSOLE 
GET  LENGTH  OF  A  FILTER  CONTROL  BLOCK 

»  ENTER  KERNEL  MODE 

*  ATTEMPT  TO  ALLOCATE  BLOCK 

*  BR  IF  SUCCESSFUL 

*  ELSE  SET  USER  C-BIT 

*  AND  EXIT 

*  SAVE  CURRENT  MAPPING 

*  SAVE  BLOCK  ADDRESS 

*  SET  BLOCK  ADDRESS 

»  GET  ACCESS  TO  BLOCK 

*  GET  MAPPED  ADDRESS  OF  BLOCK 

*  STORE  THE  EVENT  CLASS 
);•  STORE  LENGTH  OF  BlOCK 

STORE  THE  EVENT  TYPE  MASKS 
(RO)  ;*  ... 
(RO)  ;•  ... 
(RO)  ;♦  ... 

STORE  FLAGS 

GET  ADDRESS  OF  BEGINNING  OF  LIST 

SAVE  ADDRESS  OF  PREVIOUS  BLOCK 

SAVE  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK 

GET  NEXT  BLOCK  IN  LIS' 

IF  EQ,  INSERT  AT  END  OF  LIST 

SAVE  ADDRESS  OF  PREVIOUS  BLOCK 

SET  ADDRESS  OF  BLOCK 

GET  ACCESS  TO  BLOCK 

GET  MAPPED  ADDRESS  OF  BLOCK 

LINK  FILTER  CONTROL  SLOCK  HERE  ? 

BR  IF  NO 

SET  BLOCK  ADDRESS 

SET  ADDRESS  OF  PREVIOUS  BLOCK  IN  LIST 

LINK  BLOCK  INTO  LIST 

RESTORE  PREVIOUS  MAPPING 

RETURN  TO  USER  MODE  AND  TO  CALLER 

BR  IF  UNABLE  TO  ALLOCATE  BlOCK 


C  7 


CF2AC5 
MOVBdF 

191 
192 
195 
194 
19S 
196 
197 
198 
199 
200 
201 
202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2U 
215 


p  p 

-  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:11  Page  9 
-  SET  UP  LOCAL  FILE  NAME  BLOCK 


.SBTTL  M0V8UF 


SET  'JP  LOCAL  FILE  NAME  BLOCK 


MOVBUF  -  SET  UP  LOCAL  FILE  NAME  BLOCK 
INPUTS  - 


F)2 
RO 


INPUT   BU5FER 

LOCAL   FILE    NAME   BLOCK   ADDRESS 


OUTPUTS 


LOCAL  FILE  BLOCK  SET 


0001 7A  005701 

000176  001002 

000200  11':220 

000202  000404 

000204  005201 

000206  112220 

000210  005301 

000212  001375 

000214 


MOVBUF 

TST 

R1 

BNE 

10$ 

MOVB 

(R2), 

(RO)t 

BR 

30$ 

10$: 

INC 

R1 

20$: 

MOVB 

(R2)i 

,(RO)t 

DEC 

R1 

BNE 

20$ 

ZERO  LEMGTH  ? 

IF  NOT  -  BRANCH 

COPV  THE  ZERO  LENGTH  BYTE  (DLL  DEFAULT) 

CONIINUE 

INCLUDE  STRING  LENGTH  BVTE 

COPY  FIELD 

ANY  LEFl  ? 

IF  MORE  -  BRANCH 


50$: 


RETURN 


C  8 


•«FILE«»ID> 

'rF2AC6 

CCCCCCCC 

FFFi FFFFFF 

222222 

AAAAAA 

cccccctc 

FFFFFF'^FFF 

222222 

AAAAAA 

CC 

22     22 

AA      AA 

CC 

22     22 

AA      AA 

CC 

22 

AA      AA 

CC 

?2 

AA      AA 

CC 

fFFFFFFF 

22 

AA      AA 

CC 

FFFFFFFF 

22 

AA      AA 

CC 

22 

AAAAAAAAAA 

CC 

22 

AAAAAAAAAA 

CC 

22 

AA      AA 

CC 

22 

AA      AA 

CCCCCCCC 

2222222222 

AA      AA 

CCCCCCCC 

2222222222 

AA      AA 

LL 

SSSSS5SS 

TTTTTT'TTT 

LL 

SSSS5.SSS 

TTTTTTITTT 

IL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLl- 

SSSSSSSS 

LLLLLLLLIL 

SSSSSSSS 

B  9 


CC 
CC 
CC 
CC 
CC 
CC 
CC 
CC 
CC 
CC 


CCCCLCCC 
CCCCCCCC 


CCCCCCCC 
CCCCCCCC 


666666 
666666 
66 
66 
66 
66 

66666666 
66666666 
66     66 
66     66 
66     66 
66     66 
666666 
666566 


CF2A 
Symb 

A$tC 

A$$C 

«$$F 

A$$T 

CERf 

CFLI 

CTL 

C$$C 

C$4C 

C$$f 

DECF 

D$A^ 

D$A^ 

D$A* 

D$BF 

D$BF 

DtDE 

CSDE 

D$E^ 

D$Ff 

DtH: 

D$H( 

D$If 

D$If 

DH' 

DSL, 

D$Lf 

D$L' 

DSL' 

DSfl- 

DIM/ 

DSM. 

DSMI 

DSM: 

0W> 

DSMI 

DIM 

DSN! 

DSNI 

DSMI 

DSOi 

Al 

OAT- 
Em 


Wor 
War 
Siz 
Siz 

Ope 

Eta 
S": 


C     9 


r~ 


B  10 

CF2AC6  -  CGNUG  FILE  ACTION  ROJ  MACRO  V05.03b  Saturday  29-Jun-85  00:11 
Symbol  table 


Page  11-1 


CF2 
DAT 


A$$CHK= 
At$CPS= 

.A$$PR1  = 

A$$TRP= 

CERR  = 

CFLIN  = 

CTL 

C$$CKP= 

C$tORE= 

C$$RSH= 

DECPT  = 

DSAMXC 

OSAMXH 

D$ANN 

OSBRPR 

DSBRTM 

DSDELF 

C$DE:_W 

0$END  = 

DSFI^B 

DtHlQP 

DSHOST 

DSINAC 

DSINCT 

D'IPL 

DSL  ID 

DSLNAC" 

DSlNUM 

DSLST 

OSMAX'' 

DSMAX" 

DSMAXV 

DSMLL 

DSMfJOD 

D$NA 

DSNBEA 

DSNBRA 

D$NEND= 

DSNLN 

D$NN 

dsout: 


000000 

ooooco 

000000 
000000 
«*«**«  GX 
.».*».  GX 
000003R 
000000 
000400 
177564 


000072 
000074 
000000 
000102 
000100 
00004  5 
000046 
000104 
000034 
000024 
000022 
000044 
000042 
000051 
000020 
000006 
000014 
00004  7 
000064 
000066 
000070 
000040 
000041 
000062 
000056 
000054 
000054 
000050 
000060 
000043 


6X 


.  ABS.   177776 
001270 
DATA    000272 
Errors  detected: 


DSRET- 
DSRNN 
DSRTM^ 
DSSEG 
DSSER 
D$SQRL 
002  DS$BUG= 
D$$ISK= 
D$$L11= 
D$$V'iC  = 
D$$yNJM= 
F$$XPR= 
FMT8  = 
FM.8  = 
F$$LVL= 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$WRD= 
HSTARE 
HSTNUM 
Ii$RAR= 
I$$RDN= 
KSAR5  = 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LDSLP  = 
LF.ACT= 
LF.BRG= 
LF.BWT= 
LF.ENA= 
IF.LPB= 
LF.MDC= 
LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDV^ 
LF.REA= 
LF.SER= 


000 
001 
00,^ 
0 


000050 

000002 

000076 

000C36 

000032 

000052 

177514 

000000 

000001 

000000 

000000 

000000 

»»*»»«  GX 

000000 

000001 

000000 

000000 

000000 

000000 

000454RG 

000526RG 

000000 

000000 

***«*«  GX 

177546 

177546 

000000 

000074 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 


(RW,1,GBL,A8S,0VR) 
(RW,I,LCL,REL,CON) 
{RW,D,LCL,REL,CON) 


•»♦  Assembier  statistic? 


LF.TIM= 

LF.UNL= 

LF.X2P= 

LGSTT  = 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.0AU= 

LN.0FF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

L$$ASG= 

L$$DR\/= 

L$$'^11  = 

L$$.1R= 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEM  = 

L.LGST 

L.MPF 

L.NMST 

L.NSTA 

L.OWNfi 

L.UNT 

MRKFL  = 

M$$CR8= 


GX 


000010 
020000 
000000 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000000 

000000 

00C0O1 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

001232RG 

000022 

000020 

000014 

000C21 

000013 

******  GX 

000124 


M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$i0VR= 

NAME 

NODARE 

NOD  ID 

NODNM 

NODNUM 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$*MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

P^VNM  = 

PD\/TA  = 

PRMFL 

PRONM 

P$$P45= 

P$$WRD= 

0$$OPT= 

RTSPC  = 

R$$DER= 

R$$i<11  = 

R$$SND= 

R$$11M= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SLTMA  = 

SLTNM  = 


000000 

000000 

000000 

000000 

000000 

OOOOOOR 

000356RG 

000024RG 

OOOOOORG 

000430RG 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

******  GX 

******  GX 

000644RG 

000560RG 

000000 

000000 

000010 

**♦;**  GX 

000000 
000001 
000000 
000000 

oooroo 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

******  GX 

******  GX 


00, 


0 

0 

13564  Words  ( 

14440  Words  ( 

RSX-11M/PLJS 


5?  P:.qes) 
55  Pages) 


STAN  = 

STRAD 

STRCH 

STRCT 

STRMX 

STRPT 

STRXX 

S$$URG= 

S$$YSZ= 

S.COST 

S.CTL 

S.FLG 

S.LEN 

S.NAHt 

S.NMST 

S.OWNR 

S.UNT 

T$$<MG= 

T$$MIN= 

UNT 

V$$CTR=; 

X$$DBT= 

X.FLG 

ZF.MFL= 

Z.FLG  = 

Z.NAM  = 

$CAT5  = 

$CEACX= 

SERRLl 

SERRXN 

SERRXP 

SERRXT 

SERRXU 

SERRYM 

$PDVA  = 

SSLTA  = 

$XAL0C= 

.CBIAS= 

.PNUMB= 

.PSTPT= 


***♦«*  GX 

000006R 

000154RG 

000012R 

000010R 

000014R 

000016R 

000000 

007600 

000001 

000700RG 

000000 

000004 

000660RG 

000002 

000003 

00071  ORG 

000000 

000000 

000004R 

001000 

000000 

001124RG 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 

000234R 

00002UR 

000056R 

000112R 

000142R 

0001 76R 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 


Work  tile  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Ocerating  system: 

SYfcF2Ar6!v2;ri32,i54jCF2Ar6/CR/-SP=SV;[1,1]RS<MCM.SML/ML,[150,110]NETLia/ML,[130.103R5XMCM/FA:1,[132,10]CF2AC6 


002 

002 
002 
002 
002 


002 


002 
002 
002 
002 
002 
002 


C  10 


B  11 

CF2AC7  -  CONFIG   FlLfc   AUION  ROU  MACRO  V05.05b   Saturday  29-Jun-85  00:12 
DATA   SECTION 


■:>0? 
303 
304 
305 
306 
307 
308 
309 
510 
311 
312 
3'3 
3K 
315 
316 
317 
318 
319 
320 
321 
322 
323 

32-; 

325 
326 
327 
328 
329 


MOV 

MOV 

CALL 

MOV 

DEC 

ASH 

ADD 

BIC 

BIS 

MOV 

MOV 

INCB 

INCB 

MOV 

CALL 

BCS 

INCB 

CALL 

MOV 

MOV 

MOV 

MOV 

RETURN 


101$:    EMSGSR 
102$:    EMSG$R 
.ENDC 
•  ENDC 


20$: 


.CRTSK.RO 

A.HA(R0),R0 

$MAPX 

.RGID,R3 

R3 

*2,R3 

H.AD8(R2),R3 

•#160000, R3 

R2,R3 

R4,.REG 

G.AC(RA) 

G.IC(R4) 

G.PD(R4),R3 

..MUFL 

20$ 

M.I0(R3) 

a(SP)t 

G.8A(R^),.H0ME 

RA,.8ASEB 

(SP)+,RA 

(5P)t,R3 


XJ 
XK 


Page  6-4 


GET  ADDRESS  OF  MY  ATL  NODE 
GET  ADDRESS  OF  TASK  HEADER 
MAP  TO  TASK  HEADER 

GET  REGION  ID 

START  COUNTING  AT  2ER0 

FORM  OFFSET 

COMPUTE  OFFSET  INTO  HEADER 

REMOVE  APR  BIAS 

AND  USE  CORRECT  APR 

GET  ADDRESS  OF  GCD  NODE 

SAVE  ADDRESS  OF  GCD  FOR  LATER 

LOCK  REGION  IN  MEMORY 

GEt'tPD  LISTHEAD  for  REGION 

FIND  ASSOCIATED  MUL  ENTRY 

IF  CS,  NOT  FOUND 

LOCK  TIMESHARING  REC'ON  IN  MEMORY 

CO-ROUTINE  RETURN  TO  RESET  MAPPIMG 
SAVE  HOME  BLOCK  BIAS 
STORE  POOL  GCD  ADDRESS  IN  HOME  BLOCK 
RESTORE  REGISTERS 


FAILED  TO  CREATE  REGION 
MAPPING  FAILED 


CF, 
MAi 


C  11 


r 
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90 

91 

92 

93 

9A 

95 

96 

97 

98 

99 

100 

101 

102 

103 

lOA 

105  000000 

010346 

106  000002 

012700 

OOOOOOG 

107  000006 

103  000012 

109 

110  000016 

CIOIOO 

111  000020 

005001 

112 

113  000022 

116701 

0000006 

114  000026 

005002 

115  000030 

116702 

OOOOOOG 

116  00003A 

117 

118  000040 

010367 

OOOOOOG 

119  000044 

116767 

OOOOOOG  000001 G 

120  000052 

012603 

121 

122  000054 

.SBTTL   SERSLN  -  DETERMINE  SLN/STA  VALUE 

'SERSLN  -  DETERMINE  SLN/STA  VALUE 

INPUTS  - 

CIRNAM  -  DEVICE  NAME  (ASCII  STRING) 

CIRNUM  -  DEVICE  UNIT/CONTROLLER  NUMBER 

CIRMUL  -  DEVICE  TRIB  NUMBER 

OUTPUTS  - 

SERSLT  -  CONTAINS  SLN/STA  VALUE 


SERSLN: :MOV  R3,-(SP) 

MOV  #CIRNAM,RO 

CALL  SCATS 

CALL  FPDV 


HOV 
CLR 

Move 

CLR 

MOVB 

CALL 


R1,R0 
R1 

CIRNUM.RI 
R2 

CIRUNT,R2 
FSLT 


MOV  R3, SERSLT 

Move  riRMUL,SERSLT+1 

MOV  {SP)+,R3 

RETURN 


SAVE  REG 

GET  DEVICE  STRING 

CONVERT  TO  RAD50 

FIND  DEVICE  DDM  PDV  INDEX 

GET  DDM  PDV  INDEX 
GET  CONTROLLER  NUMBER 


GET  UNIT  NUMBER 

GET  SIN 

STORE  SLN 

STORE  STATION  NUMBER 

RESTORE  REG 


r  1? 
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CREF        0^.00 


CF2 
SER 


SYMBOL 

VALUE 

REFERENCES 

ZF.TIM 

=   000200 

#5-61 

ZF.X3P 

=  000000 

#5-61 

ZS.ASN 

=  100000 

#5-61 

ZS.BSY 

=  uoooo 

#5-61 

Z.AVL 

oooou 

#5-61 

Z.DAT 

000016 

#5-61 

Z.DSP 

000000 

#5-61 

5-61 

Z.FLG 

000010 

#5-61 

Z.LEN 

=   000016 

#5-61 

Z.LLN 

000006 

#5-61 

Z.MAP 

000020 

#5-61 

Z.NAM 

000004 

#5-61 

10-35; 

Z.PCB 

000012 

#5-61 

Z.SCH 

000007 

#5-61 

$CAT5 

r     ***♦♦* 

fix 

6-107 

SCEACX 

=    ****** 

fix 

8-199 

8-238 

SERRSS 

000000 

R 

#5-85 

8-183 

SHEADR 

=    ****** 

(iX 

8-191 

SLINKX 

::      ****** 

fix 

8-2;a 

SXALOC 

r:      ****** 

fix 

8-188 

.PSTCN 

-      ****** 

fix 

9-273 

9-275 

10-330 

.PSTPT 

~      ****** 

GX 

8-157 

9-276 

10-329 

B  14 
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SFRtDF  ACTION  ROUTINES 


322 

325 

32^; 

525 

326 

327 

528 

329 

330 

351 

352 

533 

35A  000652 

535  000660 

536 

337  000662 

338  00067C 
559 

3A0  000672 

5A1   0007C0 

5A2 

3A5  000702 

3AA  000706 

3AS  000712 

5A6  00071A 

3A7  000720 

3A8 

5A9  000722 

350  000730 

551 

552  000752 

353  000^56 

35A  0007A2 

355  0007AA 

556  000750 

557 

558  000752 

559  000760 
560 

561  000762 

562  000  76^ 
565  000772 
36A 

565  000776 

566 

367  001000 

568  001006 

369 

370  0010U 

571 

372  001016 

373  00102A 
57A 

575 
376 
577 
378 


016767 
016767 
016767 


016700 
012701 
070100 
010167 


056767 


016700 
012/01 
070100 
010167 


056767 

016700 
010167 


016767 
016767 


.SBTTL   SERSDF  ACTION  ROUTINES 

SERSDF  ACTION  ROUTINS 

INPUTS  - 

.PNUMB  -  NUMERICAL  VALUE  PARSED 

.PSTPT  -  PARSED  STRING  ADDRESS 

.PSTCN  -  STRING  SIZE 

OUTPUTS  - 

PARAMETERS  f^oiED  INTO  NTLCF2 


OOOOOOG  OOOOOOG  SERUNI :  :MOV     .PNUriB.C  IRNUM 
RETURN 

OOOOOOG  OOOOOOG  SERMUL::MOV     .PNUMB, C IRMUL 
RETURN 

OOOOOOG  OOOOOOG  5ERMUX::M0V     .PNUMB, CI  RUNT 
RETURN 


0000006 
002000 


NOAR: 
OOOOOOG 
OOOOnOG  OOOOOOG  NOAD: 

HSAR: 
OOOOOOG 
OOOOOOG  OOOOOOG  HSAD: 


OOOOOOG 
002000 


MOV  . PNUMB,  RO 

MOV  #102'i.,Rl 

MUL  R0,R1 

MOV  R1,SERN0D 
RETURN 

3IS  . PNUMB, SERNOD 
RETURN 

MOV  . PNUMB, RO 

MOV  *1024.,R1 

MUL  RO.RI 

MOV  R1,SERHST 
RETURN 


BIS 
RETURN 


OOOOOOG 
OOOOOOG 


SERDV::  MOV 
CALL 
MOV 

RETURN 


OOOOOOG  OOOOOOG  DADDR::  MOV 
OOOOOOG  000002G        MOV 


.PNUMB, SERHST 


. PSTPT, RO 

$CAT5 

R1,SERDEV 


.PNUMB, SERDMP 
.PNUMH,SERDMPt2 


RETURN 


016767  000''00G  OOOOOOG  DCT: 


MOV     .PNUMB, SERDCT 
RETURN 


STORE  NUMBER  OF  XPI  CIRC! UTS 


STORE  UNIT  NUMBER 

STORE  TRID  ADDRESS 

STORE  UNIT  NUMBER 

STORE  NODE  AREA 
POSITION  AREA  ADRESS 

SAVE  NODE  AREA 

SET   njoDE    ADDRESS 

SET  HOST  AREA 
POSITION  AREA  ADDRESS 

SAVE  HOST  AREA 
SET  HOST  ADDRESS 


GET  STRING  ADDRESS 
CONVERT  TO  RAD50 
STORE  DEVICE  NAME 


STORE  DUMP  ADDRESS 


STORE  DUMP  COUNT 


CF2AC9 

CREATED  BY     MACRO     ON  29- 

-JUN-85  AT   00 

:13            F 

MACRO   CROSS 

RETERENCE 

C 

MACRO  NAME 

REFERENCES 

CALL 

7-97 

7-118 

7-124 

7-158 

DBGTPS 

#10-393 

#10-417 

#10-420 

#10-421 

#10-'.A6 

#10-449 

#10-452 

#11-468 

DHBDFS 

*5-5A 

6-62 

EMSGSR 

#5-5^ 

7-103 

7-172 

7-252 

FNBDfS 

/r5-54 

6-63 

ISTATS 

*5-55 

10-398 

MIRANS 

#10-398 

NTLERS 

#5-';^ 

PDVDFS 

#5-55 

6-65 

RESMAP 

#5-5A 

RETC 

#5-5A 

RETJRM 

7-101 

7-155 

7-182 

7-210 

9-535 

9-338 

9-341 

9-347 

9-381 

9-i84 

9-387 

9-390 

SAVMAP 

#5-5A 

SERDFS 

#5-5A 

6-64 

SLTDFS 

#5-55 

6-66 

SOB 

7-201 

STATES 

#5-55 

10-401 

#10-403 

#10-405 

#10-A23 

#10-426 

#10-428 

#10-430 

#10-450 

#10-453 

#11-457 

#11-460 

#12-489 

#12-491 

#12-493 

#12-495 

SWSTKS 

7-124 

TRANS 

#5-55 

#10-402 

#10-404 

#10-406 

#10-A19 

#10-420 

#10-421 

#10-422 

#10-434 

#10-436 

#10-437 

#10-439 

#10-449 

#10-451 

#10-452 

#10-454 

#11-472 

#11-475 

#11-478 

#'2-488 
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7-204 
#10-422 
#11-469 


7-219 
9-350 


#10-407 
#10-432 
#11-465 


#10-408 
#10-424 
#10-440 
#11-458 
#12-490 


7-207 
#10-425 


7-254 
9-556 


#10-409 
#10-455 
#11-466 


#10-410 
#10-425 
#10-442 
#11-461 
#12-492 


9-362 
#10-434 


7-259 
9-559 


#10-411 
#10-458 
#11-471 


#10-412 
#10-427 
#10-445 
#11-464 
#12-494 


#10-457 


8-284 
9-565 


#10-415 
#10-441 
#11-474 


#10-414 
#10-429 
#10-445 
#11-467 


#10-440 


8-315 
9-370 


#10-415 
#10-444 
#11-477 


#10-416 
#10-451 
#10-446 
#11-468 


#10-443 


8-318 
9-375 


#10-418 
#10-447 
#12-487 


#10-417 
#10-455 
#10-448 
#11-469 


CF2 

MAC 

MAC 

'AL 
DBG 
OHB 
EMS 

1ST 
MTR 
RET 

STA 

TRA 


n 
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PA3E   3 

CREf       OA.OO 


'ALL 

6-68 

DBGTP$ 

#8-177 

#3-181 

DHBDFS 
EMSGSR 

#5-50 
#5-50 
7-157 

5-57 
6-74 
7-166 

7-91 

7-100 

7-108 

7-116 

7-124 

7-132 

7-140 

7-148 

IS'ATS 

#5-50 

f  177 

MTRANS 
RETURN 

#8-177 
6-72 
7-16A 

7-89 
7-170 

7-98 

7-106 

7-114 

7-122 

7-130 

7-138 

7-146 

7-155 

STATES 

#5-50 

8-179 

#8-183 

#8-186 

#8-189 

#8-192 

#8-195 

#8- (98 

#8-201 

#8-204 

#8-207 

#8-210 

#8-213 

#8-216 

#8-219 

#8-222 

#8-225 

#8-228 

#8-231 

#8-234 

#8-237 

#8-2A0 

#8-243 

#8-246 

TRANS 

#5-50 

#8-180 

#8-181 

#8-184 

#8-167 

#8-190 

#8-193 

#8-196 

#8-199 

#8-202 

#8-205 

#8-208 

#8-211 

#8-214 

#8-217 

#8-220 

#8-223 

#8-226 

#8-229 

#8-232 

#8-235 

#8-238 

#8-241 

#8-244 

c 

1 

CFGX2P 

-  CONFIG 

FII  F 

STAN 

ACTIO 

MACRO 

V0!> 

05b 

Saturday 

2y-Jur 

-85  00 

08 

X2P$DF 

STATE    TABLE 

189 

000216 

STATES 

190 

000216 

TRANS 

^';> 

SEXIT 

191 

000216 

TRANS 

SEOS 

SEXIT 

192 

193 

000216 

STATES 
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CFGX3P 
MACRO 

5 

5 
5 
5 
5 
6 
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55 
56 
57 
58 
59 
60 


.SBITL  MACRO  DEFINITIONS 

LIBRARY  MACROS 

.MCALL   I  STATS, STATES, TRANS, EMSG$R,NTLER$ 


CF2AC 
Table 
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Table  of  contents 

MACRO  DEFINITIONS 

LOCAL  5ATA 

ERROR  MESSAGES 

FILSDF  ACTION  ROUTINES 

COUNTER  TIMER  ACTION  ROUTINE 

QUICK  -  FAST  REMOTE  NODE  LIST  PROCESSING 


s- 

Sf, 

6- 

/K 

/- 

Ql 

R- 

111 

11- 

i2S 

12- 

546 

F Jin   -  iNiT I Ai    rriNF tn  f n  f 
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SVMBCL  CROSS  REFERENCE 


C  4 

PAGE  1 

CREF   0^.00 


SYMBOL   VALUE 


CERR 

CFLIN 

CECPT 

DEV 

DEVBUF 

3$RI^N 

FMT8 

FM.8 

FNBUFF 

GET5TR 

GRPUIC 

!$$AS 

ksar; 

NAME 

NAMED 

NBRA 

N$$VCT 

QUICK 

RADDR 

RF.LOO 

RTSPC 

R$$EIS 

R$$nD 

R.ADD 

R.ARE 

R.FL'iG 

R.LEN 

R.LNK 

R .  NAM 

R.NAME 

R.NUM 

5TRADD 

STRPr 

STRSIZ 

S$$BAS 

S.BRA 

S.CTIM 

UICBUF 

USRUK 

USRUI1 

SCEACV 

SCTIM 

$ERRYN 

SERPYV 

SFRRYX 

£ERRYV 

SERRYZ 

SHEADR 

$1  IN^.X 

SLSTAD 


=  »,,**,  GX 

-  »»»**»   GX 

000030  RG 
=  .».*♦«  GX 

0O0C02 
=  ,*....  GX 
=  000000 
=  »»»»»»  GX 

000000  RG 

000102  RG 

'     «*♦•»»   GX 

000000  R 

000010  R 

=  •♦*»>   GX 

-  ****** 

000766  R 
000006  R 

=  100000 

=  ******   GX 

-  ****** 

'   000010 

000366  RG 

000012 

OOOOH 

000000 

000002 

000312  RG 

OOOAAA  RG 
=  ******  GX 

r  I*****   GX 

r  ******   GX 


000740  RG 
00071A  RG 
******  GX 

000162  RG 
0001 5A  RG 
,*«*.«  GX 
.».*»*  GX 
000222  fi 
0001 6A  R 
000132  R 
000030  R 
000012  R 


5X 
GX 
GX 


reference; 

7-99 

7-103 

10-291 
*8-H2 
•  8-U4 

10-292 

7-99 
*7-99 

8-152 
*8-122 
#9-171 

10-259 

10-276 
*6-87 
#6-89 
*11-339 

10-274 

10-287 
#6-88 
#5-65 

7-99 

10-259 

10-259 
#5-65 
#10-256 
#5-55 
#5-65 
#5-65 
#5-65 
#10-238 
#10-267 

8-H2 

8-123 
♦8-125 

7-99 

7-103 
#11-337 
#11-330 
*9-174 
•9-226 
#9-200 
#9-199 

10-279 
♦11-333 
#7-103 
#7-102 
#7-101 
#7-100 
#7-99 

10-274 

10-311 
♦10-300 


7-100 


8-145 

7-100 

#7-100 

9-183 


♦10-312 
10-238 
♦9-199 


#12-362 
♦10-260 

7-100 


♦10-284 

'10-285 
10-270 

♦10-281 


9-172 

♦8-124 

8-143 

7-99 


9-175 


10-305 

11-355 
10-320 
10-253 

10-321 
10-2S4 


12-358 


7-101 


♦8-151 

7-101 

#7-101 

9-228 


10-244 
9-202 


♦10-269 
7-101 

10-307 


•10-282 


9-201 
♦8-152 

♦8-153 
7-100 


♦9-177 


•12-372 


7-102 


7-102 
#7-102 


10-28i 
9-213 


10-284 
7-102 


♦10-283 


♦9-183 
9-171 
7-100 


♦9-204 


7-105 


7-103 
#7-105 


10-282 
♦9-219 


10-300 
7-103 


10-285 


lC-507 


12-568  12-572 


♦9-223 

♦9-18" 

7-10' 


♦9-205 


9-200 
7-101 


9-207 


♦9-229 
7-102  7-102  7-105 


9-209  ^9-21 7  ^9-221 


iM_Qt;    AT   nn.riQ 
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SYMBOL  VALUE 


CERR 

CFLIN 

FLAG 

FMT8 

FM.E 

KSA- 

MXCF 

N$$VCT 

OBJHD 

ONAME 

0.'"PY 

O.cND 

C.FLAG 

O.FLG 

O.LEN 

O.MXC 

O.NAM 

O.NAME 

O.NUM 

O.TYP 

O.VFY 

RTSPC 

S$$BA5 

TYPE 

$CAT5 

SrtACX 

SERRXW 

SERRXX 

$ERRX* 

SERRXZ 

SERRYY 

lERRYZ 

SHEADR 

SLINrx 

$XA,OC 

.  PNUMB 

.PNUMH 

.PSTCN 

.PSTPT 


*»•♦«*   GX 
»»****   GX 

000001  R 
»»»♦»*  6X 
000000 
«♦*♦•*  GX 
000006  R 
****** 
»*««**   GX 

000002  R 
000202  RG 
00022^  RG 
C00U6  RG 
000003 
00O012 
000u04 
OOOOOt 
000046  RG 
000000  RG 
000002 
000120  RG 
*»»♦**  GX 


000000  R 
»♦***•  GX 
»«*»*♦  GX 
000010  R 
0OOOA6  R 
000110  R 
0001 54  R 
000224  R 
000306 

****** 


REFERENCES 

7-99 

7-99 
*6-86 

7-99 
#7-99 

8-190 
#6-88 

8-188 

8-200 
ft  6-87 
#8-176 
#8-183 
#8-162 
.8-198 

8-183 
»8-199 
*8-196 
#8-133 
#8-117 
»8-195 
#8-151 

7-99 

7-99 

7-103 
#6-85 

8-135 

8-193 
#7-99 
#7-100 
#7-101 
#7-102 
#7-103 
#7-104 

8-188 

8-213 

8-186 

8-117 

8-121 

8-141 

8-133 


7-100 

7-100 
*8-151 

7-100 
#7-100 

8-214 
«8-120 


•8-197 


8-209 

7-100 
7-99 
7-104 
•8-117 
8-139 
8-207 
8-129 
8-147 
8-158 
8-171 
8-223 
8-222 


8-123 
8-17? 


7-101 
7-101 

•8-162 
7-101 

#7-101 

•8-176 


•8-119 


7-101 
7-100 
7-104 
8-195 


-151 
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rF2A 
TPAR 


7-102 
7-102 
8-198 
7-102 
#7-10' 

8-199 


•8-136 


7-103 
7-104 

7-103 
#7-103 


-140 


7-104 


7-104 
#7-104 


3-196 


8-197 


7-102 
7-iCO 

8-209 


7-103 
7-101 


7-104 
7-101 


7-102 


7-102 


7-103 


8-152 


8-162 


-163 


-165 


8-176 


-180 
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3U 

515 

316 

317 

318 

319  000636 

3?0 

321  000656 

522  000636 

323  000656 

524  000636 

325  000636 

326  000636 

327  000636 

328  000656 

329  000636 
350  000636 

331  C00636 

332  000636 

353  000636 

354  000636 
335  000656 
536  000656 
357  000656 
538  000656 
359  000636 

340  300656 

341  000636 

342  000656 
5^.5  000656 
54<.  000636 

545  000656 

546  000636 
34/  000656 
548  000656 

349  000636 

350  000636 

551  000636 

552  000636 

353  000636 

354  000656 
555  00C636 
356  000636 
557 

558 

559  000636 

560 

36' 


OOC001 


.SBTTL   TPARS  STATE  TABLES  -  ROUSDF 
ROUTING  DEFINIT'ON  (ROUSDF) 

ISTATS  CFGROU.ROUKW 


STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STAGES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 


STATES 
.END 


ROUDF 
XR0USDF5',,,,1,SYNERR 

SNUMBR,,R.ADDR 

SNUMBR,,R.COST 

<'  ,> 

S.MUMBR,,R.H0P 

<'  ,> 

SNUM8R,,R.RT'<1 
<'  ,> 
SNUMBR,,R.MAXA 

SNUMBR,,R.3EA 
<•'  ,> 

$NUM8R,,R.AMXH 
<'  ,> 

SNU:i8R,,R.AMXC 
<'  ,> 
SNUMBR.SEX'IT.R.BTM 


MAXIMUM  NODE  ADDRESS 


MAXIMUM  COS- 


MAXIMUM  NUMBER  OF  HOPS 


ROUTING  TIMER  INTERVAL 


NUMBER  OF  AREAS 


NUMBER  OF  BROADCAS'  ENDNODES  ADJACENT 


AREA  MAXIMUM  HOPS 


AREA  MAXIMUM  COST 


CF2AC 
A'TIO 

2 

2 
? 
2 


BROADCAST  TIMER 


iTTMCC     MArnn     i/AC     n7k     c- 


D    6 

.«■;   nn-m 
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CF2AC4  -  CONFIG  FILE  ACTION  ROJ  MACRO  v05.03b  Saturday  29-Jun-85  00:11 
ACTION  ROUTINES  TO  SET  UP  EVENT  FILTER  CONTROL  BlOCK 


?18  000356 

219 

220 

221 

222  000360 

223 

224 

225 

226 


000001 


RETURN 
ERROR  CONDITIONS 
Ion:   EMSGSR  E3 
.DSA8L  LS8 
.END 


Page  9-1 


FILTER  CONTROL  BLOCK  ALLOCATION  FAILURE 


ufiC   A7U 


D  7 

.0";  nn. 11 


"1 
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CF2AC5   -  CONHG   FILE   ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:11 
MOVBUF      -   SET    UP   LOCAL    FILE    NAME   BLOCK 
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CF2AC 
Table 


217 

218 

+ 

pig 

SLTBLK  -  SET 

LOCAL  FILE  NAME  DESCRIPTOR  BLOCK 

220 

221 

INPUTS  - 

222 

DEVBUF  -  DEVICE  STRING 

223 

UIC8UF  -  UIC 

STRING 

224 

FILBUF  -  FILE 

NAME  STRING 

225 

226 

OUTPUTS  - 

227 

FN8UFF  -  SET 

UP  IN  A  FILE  NAME  BLOCK  FORMAT 

223 
229 
230  000216 

- 

010346 

SETBLK: 

MOV 

R3,-(SP) 

;  SAVE  R3 

231  000220 

012700 

OOOOOOG 

MOV 

#FNnUFF,RO 

;  GET  BUFFER  ADDRESS 

232  000224 

012701 

OOOOOOG 

MOV 

#FNf\R1 

;  GET  BYTE  SIZE 

233  000230 

CALL 

INIBI- 

;  INIT  LOCAL  FNB  BUFFER 

23A 

235  00023A 

005020 

CLR 

(RO)* 

;  ZERO  NEXT  BLOCK  POINTER 

236  000236 

105020 

CLRB 

(RO)t 

;  ZERO  USAGE  COUNT 

237  000240 

005001 

CLR 

R1 

;  INIT  BVIE  COUNT 

238  000242 

239 

240  000246 

116701 

OOOOOOG 

MOVB 

DEVBUF, R1 

;  GET  FIELD  SIZE 

012702 

OOOOOOG 

MOV 

*DEV8UF,R2 

;  GET  FIELD  ADDRESS 

241  000252 

005003 

CLR 

R3 

;  INIT  TOTAL  STRING  SIZE 

242  000254 

J60103 

ADD 

R1,R3 

;  DETERMINE  FNB  SIZE 

243  000256 

CALL 

MOVBUF 

;  MOVE  DEVBUF  FIELD 

244  000262 

116701 

OOOOOOG 

MOVB 

UiCBUF,R1 

;  GET  FIELD  SIZE 

245  000266 

012702 

OOOOOOG 

MOV 

#UICBUF,R2 

;  GET  FIELD  ADDRESS 

2'.6  000272 

060103 

ADD 

R1,R3 

;  UPDATE  END  SIZE 

247  000274 

248 

249  000300 

CALL 

MOVBUF 

;  MOVE  NEXT  FIELD 

116701 

OOOOOOG 

MOVB 

FILBUF, R1 

;  GET  FIELD  Si.'E 

250  000304 

012702 

OOOOOOG 

MOV 

*FILBUF,R2 

;  GET  FIELD  ADDRESS 

251  000310 

060103 

ADD 

R1,fi3 

;  UPDATE  FNB  SIZE 

252  000312 

CALL 

MOVBUF 

;  MOVE  NEXT  FIELD 

253  000316 

062703 

OOOOOOG 

ADD 

*FN8EXT,R3 

;  INCLUDE  FNB  LINK  WORD, USAGE 

AND  LEN  BYTES 

254  000322 

010367 

OOOOOOG 

MOV 

R3,FNBLN 

;  STORE  FNB  LENGTH 

255  000326 

256 

257  000330 

012603 

MOV 

(SP)+,R3 

;  RESTORE  R3 

RETURN 

r 


D 
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CF2AC6  -  CONFIG  FILE  MiUOH   ROU  MA[RO  V05.03b  Saturday  29-Jun-85  00:11 
Table  ot  contents 

5-  53    MACRO  DEFINITIONS 

6-  78    LOCAL  DATA 

7-  102  ERROR  MESSAGES 


CF2/1 

5YME 

SYME 

CERR 

CFLI 

GIL 

DECF 

D$HC 

D$LI 

DILN 

D$LN 

FMTf 

FM.! 

HST/ 

HST^ 

ISS/ 

<SAF 

LF  J 

LF.f 

LF.E 

LF.f 

LF.l 

LF.f 

LF.f 

LF.f 

LF.f 

LF.f 

LF.f 

LF.' 

LF. 

LF.l 

LF.; 

LGS 

Lf>).i 

LN.I 

LN.I 

LN.I 

LN.l 

LN.i 

LN. 

LN. 

LN. 

LN. 

LN. 

LN. 

LN. 

LN. 

L.C 

L.C 

L.C 

L.D 

L.D 

L.D 

L.D 

L.D 


D     9 


L_ 


CF2AC6     CREATED  BV  MACRO  ON  29-JUM-8'i  AT  00:12 
SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


CERR 

CFLIN 

CTL 

DECPT 

DSHOST 

DSLID 

dslnam 

DSLNUM 

FMT8 

FM.8 

HSTARE 

HSTNUM 

1$$AS 

KSAR5 

LF.AC^ 

LF.BRl 

LF.BWT 

LF.Er.-. 

LF.LPB 
LF.MDC 

lf.mf; 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.5ER 

LF.TIM 

LF.UNL 

LF.X2P 

LGSTT 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.QN 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DD5 

L.DLC 

L.DLM 

L.D'  i 


r  ****** 

00000^ 

000022 
000020 
000006 
OOOOH 


GX 
GX 
R 
GX 


000000 
0OOA5A  RG 
000526  RG 


GX 


100000 
000^00 
000007 
002000 
001000 
000100 
00^000 
000020 
000200 
OAOOOO 
010000 
000040 

020000 
000000 

****** 

000000 

000005 

OOOOOA 

000003 

000003 

:  00000^ 

000000 

■  OOOOOA 

:  000001 

000002 

:  000002 

:   000017 

:  000360 

:  0C0006 

000015 

000012 

177776 

00CC02 

OOOOOA 

000003 

00C006 

000010 


GX 


GX 


REFERENCES 
7-110 

7-no 

#6-89 

8-150 
•8-261 

8-150 

8-131 
»8-2A6 

7-110 
*7-110 
#8-256 
#8-2b5 

8-2A4 

8-147 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 

11-393 
#5-65 
#5-63 
#5-63 
#5-63 
#5-65 
#5-65 
#5-63 
#5-63 
#5-65 
#5-63 
#5-63 
#5-65 
#5-65 
#5-63 
#5-63 
#5-63 
#5-63 
#5-65 
#5-63 
#5-63 
#5-65 
#5-65 


7-111 

7-111 
•10-3U 

8-U9 
•8-268 

8-188 

♦8-252 

7-111 
#7-111 


8-259 

8-170 

10-343 
10-545 


10-356 


10-550 


10-526 
10-530 


C  10 

PAGE    1 

CREF        04.00 


CF2 
DAT 


7-112 
7-112 
10-326 
8-187 


7-112 
#7-112 


8-186 


10-358 


10-377 


7-115 
7-115 

8-245 


7-113 
#7-115 


8-222 


7-114 
8-251 


7-114 
#7-114 


8-251 


7-115 
8-260 


7-115 
#7-115 


8-267 


0   10 
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CF2AC7   -   CONf IG 
DATA   SECTION 

351 
332 
333 
33', 

335 
336 
337 
338 

339 

3A0 

3A1 

3^2 

3A3 

3AA  000736 

5A5  000740 

3A6  000'A4 

3A7  000 7A 6 

3A8  000750 

349  00075A 

350  000762 

351  000770 

352  00077A 

353  001002 
35A 
355 
356 
357 
358 
359 
360 
361 
362 

363  001010 
36A 
365 
366 

367  001016 

368  001020 

369  001022 

370  001024 

371  001030 

372  001034 

373  001036 

374  001042 

375  001044 

376  001050 

377  001052 

378  001054 

379  001060 

380  001064 

381  001072 

382  001074 

383  001100 
38-  001 102 

385  001106 

386  con  10 

387  00' 114 
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fILE  ACMON  ROU  MACRO  V05.05b  Saturday  29-Jun-85  00:12  Page  7 


CF 
SE 


010001 
016702 
006202 
005021 

016760 
016760 
010560 
0^6760 
066760 


CRSUB  -  CREATE  A  SUB-PARTITION 

INPUTS: 

RO  =  SUB-PCS  ADDRESS 
R5  =  MAIN  PCS  ADDRESS 

OUTPUTS: 

C-9IT  =  SUCCESS/FAILURE 
R0,R1,R2,R3,R4  =  DESTROYED 
R5  =  SUB-PC8  ADDRESS 


OOOOOOG 


CRSUB: 


5$: 


OOOOOOG  OOOOOOG 
000002G  000002G 
OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


012^60  OOOOCOC  OOOOOOG 


010501 

005002 

005046 

066102  000000 J 

016^03  OOOOOC^ 

001425 

016304  OOOOOOG 

1 60204 

166004     OOOOOOG 

103413 

010116 

010260     OOOOOOG 

010360     OOOOOOG 

032767     002000     OOOOOOG 

0014^1 

060460     OOOOOOG 

010301 

016102     OOOOOOG 

000746 

0'6504  OOOOOOG 

066504  OOOOOOG 


10$: 


20$: 


30$: 


.IF  OF   R$$11M  8  M$$MGE 


MOV 
MOV 
ASR 
CLR 
SOB 
MOV 
MOV 
MOV 
MOV 
ADD 


MOV 
MOV 


.IFF 
MOV 


.ENDC 


COPY  PCS  ADDRESS 
GET  PCB  LENGTH 
CONVERT  TO  A  WORD  COUNT 
ZERO  THE  ENTIRE  SUB-PCB 


RO.RI 

PLGTH,R2 

R2 

(R1)  + 

R2,5$ 

.PNAMl ,P.NAM(RO)  ; •  SET  PARTITION  NAME 

.PNAMlt2,P.NAM+2(R0)  ; ♦  FROM  FIRST  PARTITION  IN  PAR$DF 

R5,P.MAIN(R0)    ;*  MAIN  PCB  ADDRESS 

.NTPSZ,P.BLKS(RO)  ; «  SIZE  IN  32.  WORD  BLOCKS 

.FUDGE,P.BLKS(RO)  ; ♦ 


.IF  DF   R$$MPL 


*PS.COM!PS.NSFIPS,FXDIPS.CHK,P.STAT(RO)  ;  ♦  COMMON,  NO 

;»  SHUFFLING,  FIXED,  NO  CHECKPTING 
#P2.R0N,F'.ST2(R0)  ;•  MAKE  REGION  READ-ONLY 


#PS.COM!PS.NSFIPS.SYS,P.STAT(RO) 


COMrMN,  NO  SHUFFLING 


MOV 

R5,R1 

CLR 

R2 

CLR 

-(SP) 

ADD 

P.REL(R1),R2 

MOV 

P.SU8{R1),R3 

bEQ 

30$ 

MCV 

P.REL(R3),R4 

sue 

R2,R4 

SUB 

P.8LKS'R0),R4 

RIO 

20$ 

MOV 

R1,(SP) 

MOV 

R2,P.REL(R0) 

MOV 

R3,P.SUB(R0) 

BIT 

#LS.rOP,$FUNC 

BCQ 

50$ 

ADD 

R4,P.REL(R0) 

MOV 

R3,R1 

MOV 

P.eLKS(Rl),R2 

BR 

10$ 

TOV 

P.REL(R5),R4 

ADD 

P.8LKS(R5),R4 

COPY  MAIN  PCB  ADDRESS 

NO  PREVIOUS  SUB-PCB 

PREVIOUS  SUB-PCB  IF  SPACE  IS  FOUND 

GIVING  BIAS  OF  NEXT  HOLE  IN  PARTITION 

GET  NEXT  SUB-PCB 

IF  ZERO,  END  OF  LIST 

GET  BIAS  OF  SUB-PARTITION 

GIVING  SIZE  OF  HOLE 

IS  THE  HOLE  BIG  ENOUGH? 

IF  MI,  NO 

SAVE  PREVIOUS  SUB-PCB  ADDRESS 

SET  SUB  PARTITION  BIAS 

AMD  POINTER  TO  NEXT  SUB-PCB  IN  LIST 

TOP-DOWN  ALI  OCATION' 

IF    EQ,    NO  -  ALL    DONE 

ALLOCATE  FROM  TOP  OF  HOLE 

COPY  SUB-PCB  ADDRESS 

GET  SUB-PCB  SIZE 

GET  MAIN  PARTITION  BiAS 

GIVING  BIAS  OF  END  OF  PARTITION 


D  11 
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CF2AC8  - 
SERSLNi  - 

12A 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13^ 
135 
136 
137 
138 
139 
lAO 
K1 
1A2 
U3 
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CONflG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:12  Page  7 
DETERMINE  SLN/STA  VALUE 


SERl.JI  -  INIT  SERVICE  DATA  BASE  BUFFERS 
INPUTS 


NONE 

OUTPUTS  - 

SERSDF  BUFFERS  INITIALIZED 


000056  012^00  OOOOOOG 

000062  0CiO2O 

000064  or.  700  OOOOOOG 

000070  001374 

000072 


SERINI 

:MOV 

*SER8EG,R0 

;  GET  START  OF  BUFFERS 

5$: 

CLR 

(R0)  + 

;  CLEAR  ONE  WORD 

CMP 

*SERFIN,R0 

;  rHEC<  FOR  END 

BNE 

5$ 

;  .F  MORE  -  BRANCH 

RETURN 


cf; 

MAi 
MAi 


DHI 
EM' 
FNI 
NTI 
PD' 
RE 
RE 
RE 

5A 
SE 
SL 
SW 


0  12 


r 


tF2AC8  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:12 

■■lACRO   CROSS   REi^ERENCE 


MACRO  NAME 

REFERENCES 

CALL 

6-107 

6-108 

6-116 

8-24A 

9-285 

9-287 

OHBDF$ 

#5-50 

5-58, 

EMSGSR 

#5-50 

8-183 

FNBDFS 

#5-50 

5-59 

NTLERS 

#5-50 

5-85 

PDVDFi 

#5-51 

5-61 

RESMAP 

#5-69 

8-245 

RETC 

#5-50 

8-191 

RETURN 

6-122 
11-413 

7-140 

8-174 

SAVMAP 

#5-65 

8-1 '^'' 

SERDFS 

#5-50 

5-60 

SLTDFS 

#5-51 

5-62 

SW5T,  : 

8-186 

8-159 


C  13 

PAGE  5 

CREF   04.00 
8-167 


CF2 
SER 


-178 


8-186 


8-199 


8-238 


-192 


-247 


9-301 


9-314 


10-335 


10-366 


1 


0  13 


r 


rF^AC9  -  rONFIG  f  Hi   AfTIO^J  ROJ  MACRO  V05.05b   Saturday  29-Jun-85   00:15     Page  9-1 
SERtDf    ACTION   ROUTINES 


00:13 


379 

380  001026     016757     OOOOOOG  OOOOOOG  XMCIR: :   MOV  .PNUMB^XPTILN 

381  00103^  RETURN 

7  0  ~ 

383  001036  016767  OOOOOOG  OOOOOOG  ECLML::  MOV     .PNUMB.ECLLLN 

38A  OOIOa^  RETURN 

385 

386  0010A6  016767  OOOOOOG  OOOOOOG  ECLMC ::  MOV     .PNUMB,ECLNOD 

387  001054  RETURN 
388 

389  001056  066767  OOOOOOG  OOOOOOG  BRDJ :  :   ADD     .PNUMB,.BRAD 

390  001 06A  RETURN 
391 


STORE  XPT  CIRCUIT  COUNT 

STORE  MAX  LINKS  VALUE 

STORE  MAX  NODE  COUNTERS  VALUE 

CALCULATE  BROADCAST  ROUTER  ADJACENCIES 


D  H 


L 


•F1LE'MD»«CF2DEC 


C  15 


CCCCCCCC    F 

FFFFFFFFF 

222222 

DDDDDDDD 

EEEEEEEEEE 

CCCCCCCC 

CCCCCCCC    F 

FFFFFfFFF 

222222 

DDDDDDDD 

EEEEEEEEEE 

CCCCCCCC 

22     22 

DD 

DD 

EE 

22     22 

DD 

DD 

EE 

22 

OD 

DD 

EE 

22 

DD 

OD 

EE 

FFFFFFF 

22 

DD 

DD 

EEEEEEEE 

FFFFFFF 

22 

DD 

DD 

EEEEEEEE 

22 

DD 

DD 

EE 

22 

DD 

DD 

EE 

22 

DD 

DD 

EE 

22 

DD 

DD 

EE 

CCCCCCCC    F 

2222222222 

DDDDDDDD 

EEEEEEEEEE 

CCCCCCCC 

CCCCCCCC    F 

2222222222 

DDDDDDDD 

EEEEEEEEEE 

CCCCCCCC 

CC 
CC 
CC 
CC 
CC 
CC 
CC 
CC 
CC 
CC 


LL 

SSSSSSSS 

FTTTT 

TFTTT 

LL 

SSSSSSSS 

TTTTT 

TTTTT 

.L 

S5 

LL 

ss 

lL 

ss 

.L 

ss 

-L 

ssssss 

LL 

ssssss 

LL 

ss 

_L 

ss 

A 

ss 

LL 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLL^lLL 

SSSSSSSS 

LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LLI 
LLI 


n 


•f  !LE'«1D"«CF2UMR 


C  16 


CCCCCCCC   F 

FrFFFFFFF 

222222 

uu 

uu 

MM 

MM 

RRRRRRRR 

CCCCCCCC   F 

FFFFFi'FFF 

222222 

uu 

uu 

MM 

MM 

RRRRRRRR 

22     22 

uu 

uu 

MMM^ 

MMMM 

RR      RR 

22     22 

uu 

uu 

MMMI* 

MMMM 

RR      RR 

22 

uu 

uu 

MM 

W  MM 

RR      RR 

22 

uu 

uu 

MM 

m     MM 

RR      RR 

FFFFFFF 

c1 

uu 

uu 

MM 

MM 

RRRRRRRR 

FFFFFFF 

22 

uu 

uu 

MM 

MM 

RRRRRRRR 

22 

uu 

uu 

MM 

MM 

RR  RR 

22 

uu 

uu 

MM 

MM 

RR  RR 

22 

uu 

uu 

MM 

MM 

RR    RR 

22 

uu 

uu 

MM 

MM 

RR    RR 

CCCCCCCC   F 

2222222222 

uuuuuuuuuu 

MM 

MM 

RR      RR 

CCCCCCCC   F 

2222222222 

uuuuuuuuuu 

MM 

MM 

RR      RR 

LL 

SSSS5SSS 

TTTT 

TTTTT 

LL 

SSSSSSSS 

TTTT 

TTTTT 

LL 

5S 

1 

LL 

ss 

LL 

ss 

-L 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

n  u 
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CFGX2P  -  CONFIG   FILE   SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  00:08 
X2P$DF    ACnON  ROUTINES 


Pags  n 


195 

.SBTTL 

X2P$DF  ACTION  ROUTINES 

196 

197 

198 

;  DEVICE  NAME 

199 

200 

.ENA8L 

LS8 

201  000216 

022767 

000005 

OOOOOOG 

X2.DEV: 

CMP 

#3,.PSTCN 

202  000224 

105464 

BLO 

101$ 

203  000226 

016700 

OOOOOOG 

MOV 

.PSTPT,RO 

204  000232 

CALL 

$CAT5 

205  000236 

010167 

177536 

MOV 

R1,X2DEV 

206  000242 

207 

208 

209 

210  000244 

RETURN 

;•  DEVICE  CONTROLLER  NUMBER 

005767 

OOOOOOG 

X2.CTL: 

TST 

.PNUMH 

211  000250 

001052 

BNE 

101$ 

212  000252 

105767 

000001 G 

TSfB 

.PNUMB+1 

213  000256 

001047 

BNE 

101$ 

214  000260 

116767 

OOOOOOG 

177514 

MOVB 

.PNUMB,X2CTL 

215  000266 

105067 

177511 

CLRB 

X2UNT 

216  000272 

217 

218 

219 

220  000274 

RETURN 

;•  DEVICE  UNIT  NUMBER 

005767 

OOOOOOG 

X2.UNT: 

TST 

.PNUMH 

221  000300 

001036 

BNE 

101$ 

222  000302 

105767 

000001 G 

TSIB 

.PNUM8+1 

223  000306 

001033 

BNE 

101$ 

224  000310 

116767 

OOOOOOG 

177465 

MOVB 

.PNUMB,X2UNT 

225  000316 

016700 

OOOOOOG 

CHKDEV: 

MOV 

$SLTA,RO 

226  000322 

116001 

00O002 

Move 

L.DDMCR0),R1 

227  000326 

067701 

OOOOOOG 

ADD 

aPDVTA.RI 

228  000332 

011101 

MOV 

(RD.RI 

229  000334 

026167 

000004 

177456 

CMP 

Z.NAM(R1),X2DEV 

230  000342 

001010 

BNE 

10$ 

231  000344 

126067 

000012 

177430 

CMPB 

L.CTL(R0),X2CTL 

232  000352 

001004 

BNE 

10$ 

233  000354 

126767 

OOOOOOG 

177421 

CMPB 

UCNT,X2UNT 

234  000362 

001404 

BEQ 

20$ 

235  000364 

10$: 

REJ$ 

236  000374 

237 

238  000376 

20$: 

RETURN 

101$: 

EMSG$R 

21 

239 
240 
241 

.DSABL 

LS8 

;■  MAXIMUM  WINDOW  SIZE 

242 

243  000404 

005767 

OOOOOOG 

X2.MWS 

TST 

.PNUMH 

244  000410 

OG1OI6 

BNE 

101$ 

245  000412 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

246  000416 

022700 

000007 

CMP 

#X2WNMX,R0 

247  0OC422 

103411 

BLO 

101$ 

248  000424 

022700 

000001 

CMP 

#X2WNMN,R0 

249  000450 

101006 

BHI 

101$ 

250  000432 

016701 

OOOOOOG 

MOV 

UCNT.RI 

251  000436 

006301 

ASL 

R1 

VALID  DEVICE  NAME? 
BR  IF  NO 

POINT  TO  START  OF  NAME 
CONVERT  TO  RAD50 
STORE  DEVICE  NAME 


LEGAL  CONTROLLER  NUMBER? 

BR  IF  NO 

LEGAL? 

BR  IF  NO 

SAVE  CONTROLLER  NUMBER 

DEFAULT  UNIT  TO  ZERO 


LEGAL  UNIT  NUMBER? 

BR  IF  NO 

LEGAL? 

BR  IF  NO 

SAVE  UNIT  NUMBER 

GET  SLT  ADDRESS 

GET  DDM'S  PDV  INDEX 

INDEX  INTO  PDV  VECTOR  TABLE 

GET  PDV  INDEX 

IS  THIS  THE  CORRECT  DEVICE? 

BR  IF  NO 

IS  THIS  THE  CORRECT  CONTROLLER? 

BR  IF  NO 

IS  THIS  THE  CORRECT  UNIT  NUMBER? 

BR  IF  YES  -  FOUND  IT 


ILLEGAL  LiNE-ID 


LEGAL  MAXIMUM  WINDOW  SIZE  VALUE? 

BR  IF  NO 

GET  MAXIMUM  WINDOW  SIZE 

IS  IT  VALID? 

BR  IF  NO 

br'if  no 

get  unit  count 

make  it  a  word  index 


CFGX5F 
CONSTA 

6 
6 
t 
t 
i 
t 

t 
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CONSTANT  DEFINITIONS 


00:09 
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CF2AC 


6,^ 

64 

65 

66 

67 

000040 

68 

OOPOOO 

69 

000177 

70 

000007 

.SBTTL  CONSTANT  DEFINITIONS 
CONSTANT  DEFINITIONS 


3LKSMN  =  32. 
BLKSMX  =  1024. 
WNDSMX  =  127. 
X3TMCT  =  7 


MINIMUM  BLOCK  SIZE  VALUE 

MAXIMUM  BLOCK  SIZE  VALUE 

MAXIMUM  UINDOW  SIZE  VALUE 

NUMBER  OF  TIMER  PARAMETERS  IN  X3P$DF 


CFny^p  -  roNFir,  FMF  scan  actio  macro  V05.03b  Satu-day  29-Jan-85 


00:09 


Page  7 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
5i 
52 
53 
54 


.TITLL   CF2AC1  -  INITIAL  CONFIG  FKE 
.IDENT  /V05.00/ 


ACTION  ROUTINES 


COPYRIGHT  (C)  197'),  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDEFi  A  LICENSE  AND  HAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  "^nrrwARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWiot  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


CF2/ 

SYME 

SYME 

$LS1 
$XAL 
.PNL 
.PNl. 
.PSl 
.PSl 


DIGjIA.  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARt  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DlSlKiei'TED  SYSTEM?  SOFTWARE  ENGINEERING 

IDENl  HISTORY: 

1.00   14-C'"''-79 

DECNl  -11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 
DECNET-11M  V3.1 
DECNET-11M-PLU5  VI. 1 

3.01  11-JAN-83 

SUPPORT  CHANGED  CETAB  PARAMETERS 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnt  -IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF      ITS 


E     3 

rnMFtr;  riiF   ^r  MACRn   vn5.03h  Saturday  29-Jun-85   00:09 


Paae  5 


fF? 


CF2AC1 

SYMBOL 

SYMBOL 

$LST«M 
$XALOC 
.PNUMP 
.PNUM'-' 
.PSTLN 
.PSTPT 


CREATED  BV 
CROS"  REFERENCE 
VALUE 


MACRO  ON  29-JUN-85  AT  00:09 


-  ****** 

-  ****** 
=  ****** 
=  ****** 

-  ****** 


GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

•10-299 

10-272 

10-256 

11-331 
♦8-126 

a-  122 


12-362 

10-258 

10-242 
10-2';5 


♦12-371 

10-267 

♦10-247 


D  A 

PAGE  2 

CREF   04.00 


10-269 


11-333 


r-337 


11-339 


CF2A 

MACR 

MACR 

CALL 
EMSG 
NTLE 
OBJD 
RESM 
RETC 
RETU 
SAVM 
SWST 


rF?&rl 


CRFAIFD  R¥   MAfRO  ON  29-JUN-85  AT  00:09 


PAGE  3 


E  4 


CF<?AC2  CREATED  BY 

MACRO   CROSS   REl^ERENCE 


MACRO     ON  29-JUN-35  AT  00:10 


PAGE 
CREF 


04.00 


MACRO  MAME 

CALL 

EMSGtR 

NTLERS 

OBJDFt 

RESMAP 

RETC 

RETURN 

SAVMAP 

SWSTKS 


REFERENCES 

8-135 
#5-6C 
»5-60 
#5-60 
#5-71 
#5-60 

8-125 
#5-67 

8-'85 


8-159 

8-129 

7-99 

5-62 

8-2U 

8-188 

8-U3 

8-190 


8-185 
S-U7 
7-100 


8-154 


8-186 
S-158 
7-101 


8-167 


8-193 
8-171 
7-102 


8-215 


8-207 
8-222 
7-103 


8-218 


8-213 
8-223 
7-104 


.c  II  r»t  iniircJAr;! 
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A$$CHIC  = 

000000 

F$$LVL= 

000001 

N$$NCT= 

00000! 

XJ$DBT= 

000000 

$SUBXP= 

000010 

AttCPS= 

000000 

G$$TPP= 

000000 

N$$PEM= 

000001 

$ALPHA= 

000022 

$$$FLG= 

^77777 

A$tPR!= 

000000 

G$$TSS= 

000000 

P$$P45= 

000000 

$ANY  = 

000020 

$$$KEY= 

000000 

A$tTRP= 

000000 

G$STTK= 

000000 

P$$URD= 

000000 

$BLANK= 

000006 

$$$STA= 

000000 

BFENC  = 

000040R 

002 

G$$WRD= 

000000 

QROU 

000224RG 

$DIGIT= 

000024 

$$$TMP= 

OOOOOOR 

BFTAB 

OOOOOOR 

002 

I$$RAR= 

000000 

Q$$0PT= 

000010 

$DNUMB= 

000014 

.AMAXC= 

****** 

GX 

3. END 

000060RG 

I$$RDN= 

000000 

ROUDF 

OOOOOOR 

003  $EOS  = 

000012 

.AMAXH= 

****** 

GX 

3.NUM 

OOOOURG 

K$$CNT= 

177546 

ROUKW 

OOOOOORG 

004  SERRXR 

000040R 

002 

.BFPTR= 

****** 

GX 

3.STR 

OOOOOORG 

K$$CSR= 

177546 

RrSPC  = 

******  gx 

SERRXS 

000074R 

002 

.CCBNM= 

****** 

GX 

3. ZEND 

000054RG 

K$$LDC= 

000000 

R$$DER= 

000000  - 

SERRYI 

000632R 

09? 

.CCSSZ= 

****** 

GX 

B.ZERO 

00001  ORG 

K$$TPS= 

000074 

ft$$Kl1= 

000001 

SERRYJ 

000700R 

002 

.MAXC  = 

****** 

GX 

CERR  = 

«*♦».»  GX 

LD$LP  = 

000000 

R$$SND= 

000000 

SERRYK 

000126R 

002 

.MAXH  ^ 

****** 

GX 

CFGBF  = 

»*♦♦**  GX 

L$$ASG= 

000000 

R$$11M= 

000000 

SERRYL 

000162R 

002 

.MXPR0= 

****** 

GX 

CFGROU 

OOOOOORG 

003 

L$$DRV= 

000000 

R.ADDR 

000276RG 

SERRYM 

000214R 

002 

.NA   = 

****** 

GX 

CFGSZ  = 

»*»*•'  GX 

L$$P11= 

000001 

R.AMXC 

000544RG 

SERRYN 

000260R 

002 

.NBEA  = 

****** 

GX 

CFLIN  = 

***»•♦  GX 

L$$11R= 

000000 

R.AMXH 

000516RG 

SER,<Y0 

000342R 

002 

.m      = 

****** 

GX 

CRC$OV= 

»»»**»  GX 

M$$CRB= 

000124 

R.BEA 

000452RG 

$ERRYP 

000424R 

002 

.NTPSZ= 

******* 

GX 

Ct$CKP= 

000000 

H$$CRX= 

000000 

R.8TH 

000572RG 

SERRYO 

000464R 

002 

.PNIJMB= 

****** 

GX 

C$$ORE= 

000400 

M$$FCS= 

000000 

R.COST 

000306RG 

SERRYV 

000524R 

002 

.PNUMH= 

****** 

GX 

C$$RSH= 

17756A 

M$$MGE= 

000000 

R.HOP 

000334RG 

SERRYW 

000562R 

002 

.RDBNM= 

****** 

GX 

DI$BUG= 

177514 

M$$NET= 

000000 

R.MAXA 

000406RG 

$ERR1T= 

******  GX 

.RDBSZ= 

****** 

GX 

DS$ISK= 

000000 

M$$0VR= 

000000 

R.PTM 

000362RG 

$EXIT  = 

000000 

.RDBTH= 

****** 

GX 

D$$L11= 

000001 

N$$ACC= 

000001 

SYNERR= 

******  GX 

SFAIL  = 

V7777 

.R0UTB= 

****** 

GX 

D$$YNC= 

000000 

N$$BUF= 

000001 

S$$WRG= 

000000 

$LAMDA= 

OOCOOO 

.R0UTM= 

****** 

GX 

D$$yNM= 

000000 

N$$LDV= 

000001 

S$$YSZ= 

007600 

SMb,.  = 

******  GX 

.SDBNM- 

****** 

GX 

E$$XPR= 

000000 

N$$MCP= 

000001 

T$$KMG= 

000000 

$NUMBR= 

000002 

.SDBSZ= 

****** 

GX 

FMT8  = 

*♦»*'*  GX 

N$$MLL= 

000001 

T$$MIN= 

000000 

$RAD50= 

000016 

.TPARS= 

****** 

GX 

FM.8   = 

000000 

N$$MOV= 

000010 

V$$CTR= 

001000 

$STRNG= 

000004 

.  ABS. 

ocoooo 

000636 

000 
001 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 

DATA 

000746 

002 

'RW,D,LCL,REL,C0N) 

SSTATE 

000074 

003 

ihU.D.LCL.REL.CON) 

SKTAB 

000002 

004 

{RW,D,LCL,REL,C0N) 

$KSTR 

C00007 

005 

(RW,D,LCL,REL,C0N) 

Errors 

detected: 

0 

»♦»  Assembler  statistics 

Work   t 

iLe  '•eads 

0 

work   f 

ile  writes 

0 

Size  of 

work  file 

12556  Words 

(  50  Pages) 

Si.'e  of 

core  Dooi 

1444 

0  Words 

(  55  Pages) 

Operating  system 

RSX- 

IIM'PLUS 

Elapsed   time:   00:00:36.18 
SY:ff2AC3.V2,C132,134]CF2AC3/TR/-SP=Sv 


:Ll,1jRSXMCM.SML/ML,t13C,      U]NE IL IB/Ml , [1 5C , 1 OJRSXMFM/PA : 1 , [1 32, 1 0]CF2AC3 


005 


rDc:ATcr\    Dv      MATDn      nM    OQ-niht-Q';    AT    nn-lO 
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A$tCHK= 

OCOOOO 

FF.ADD= 

000020 

F.EVT 

000004 

L$$DRV= 

000000 

R$$DER= 

000000 

A$$CPS= 

000000 

FF.CIR= 

000040 

F.FLG 

000014 

L$$P11= 

000001 

R$$K11= 

000001 

A$$PR'- 

000000 

FF.CON= 

000001 

F.LEN 

000016 

Li$11R= 

000000 

R$$SND= 

000000 

A$$TRP= 

000000 

FF.FIL= 

000002 

F.LiN 

000020 

M$$CRe= 

9251?i 

R$$11M= 

000000 

CERR  = 

»»»♦♦«  GX 

FF.HST= 

04 000 D 

F.LNK 

000000 

M$$CRX= 

000000 

STRADD 

00001 4R 

002 

CL^SS 

OOCuOOR 

002 

FF.LIN= 

000010 

F.WOD 

000022 

M$$FCS= 

000000 

S$$WRG= 

000000 

C$$rK:P= 

000000 

FF.HOD= 

000100 

F.REM 

000026 

M$$M6E= 

000000 

S$$YSZ= 

007600 

C$$ORE= 

000400 

FF.MON= 

000004 

F.SEV 

000004 

M$$NET-- 

000000 

T$$KHG= 

000000 

C$$RSH= 

177564 

FF.MSK= 

000077 

G$$TPP= 

000000 

H$$0VR^ 

000000 

T$$MIN= 

000000 

D$$BUG= 

1775U 

FF.PRT= 

000200 

G$$TSS= 

000000 

N$$ACC= 

oonooi 

V$$CTR= 

001000 

D$S1S<= 

000000 

FF.QUL= 

000370 

G$$TTK= 

000000 

N$$BU'^  = 

000001 

X$$DBT= 

000000 

D$$L11= 

000001 

FF.REH= 

100000 

G$$WRD= 

000000 

N$$LDV= 

000001 

$CEACX= 

******  GX 

D$$YNC= 

000000 

FILHD  = 

»♦**♦*  GX 

I$tRAR= 

000000 

N$$HCP= 

000001 

SERREl 

000016R 

002 

DtlYNM= 

000000 

FLAG 

000002R 

002  1$$RDN= 

000000 

N$$MLL= 

000001 

$ERRE2 

000052R 

002 

EVENT 

000004 R 

002 

FI1T8  = 

******  GX 

KSAR5  = 

******  GX 

N$$MOV= 

000010 

$ERRE3 

000120R 

002 

E$$XPR= 

000000 

FM.8  = 

000000 

K$$CNT= 

177546 

N$$NCT= 

000001 

$ERRE4 

000206R 

002 

E.CON 

0001 30RG 

F$$LVL= 

000001 

IC$$CSR= 

177546 

N$$PEH= 

000001 

$HEADR= 

******  GX 

E.FIL 

000140RG 

F.ADD 

000016 

IC$$LDC  = 

000000 

P$$P45= 

000000 

$L]NKX= 

******  GX 

E.MON 

0001 50RG 

F.CEV 

000030 

K$$TPS-- 

000074 

P$$WRD= 

000000 

$XAL0C= 

******  GX 

E.MSK 

000060RG 

F.CIR 

000024 

LDSLP  = 

OOCOOO 

Q$$0PT= 

000010 

.PNUMB= 

******  GX 

E.NUM 

OOOOOORG 

F.CLS 

000002 

L$IASG= 

000000 

RTSPC  = 

******  GX 

.PNUMH= 

******  GX 

.  ABS. 

000040 
000366 

000 
001 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 

DATA 

000256 

002 

(RW,D,L 

CL.REL.CON) 

Errors 

cJetected; 

0 

♦*♦  Assembler  statistics 

Work   f 

lie  reads 

0 

Work   f 

ile  writes 

0 

Size  of 

work  file 

11101  Words 

{  44  Pages) 

Size  of 

core  pool 

14440  Words 

(  55  Pages) 

Operating  system 

RSX- 

IIPr/PLUS 

CF2AC 
MOVBL 

2 

2 


SY?CF2ACr.V2;C?3in4icF2AC4/CR/-SP=SV':C1,1]RSXMCM.SML/l«1L,[130,110]NETLIB/ML,C130,10]RSXMCM/PA:1,[132,10]CF2AC4 


rnir  A  Tcr\    nu 


I iM-Bt;    ftT   nn.  1  1 
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CF2AC 


259 

260 

26'. 

262 

263 

264 

'65 

266 

267 

268 

269 

270 

271 

272 

273  000332 

27A  000336 

275  000342 

276  000346 
277 

278  OC0350 

279  000362 
280 

281  000364 

282  000370 

283  000372 
284 

285  000374 

286  000400 
287 

288  000402 

289  000406 

290  000410 

291  00041'- 
292 


.SBTTL  CRFNBK  -  CREATE  FILENAME  DESCRIPTOR  BLOCK 

^ 
CRFNBK  -  CREATE  FILE  NAME  BLOCK 

INPUTS  - 

FNBUfF  -  LOCAL  COPy  OF  FN6  DATA 
FN8LN  -  SIZE  OF  THIS  FN8 


FILNAHE  DESCRIPTOR  BLOCK  CREATED 


016701  OOOOOOG 
103006 

000446 

017746  OOOOOOG 

010002 

010046 


012600 

016701  OOOOOOG 

010246 

012702  OOOOOOG 

112220 


;  OUTPUTS  - 

CRFNBK. 

SUSTKS 
MOV 
CALL 
BCC 

RETC 
BR 

10$: 

MOV 
MOV 
MOV 

CALL 
MOV 

15$: 

MOV 
MOV 
MOV 
M0V8 

293  000416 

005301 

DEC 

294  000420 

001375 

BNE 

295 

296  000422 

012602 

MOV 

297  000424 

017700 

OOOOOOG 

MOV 

298  000430 

0627C0 

000034 

ADD 

299  000434 

300 

301  000436 

010003 

MOV 

010301 

20$: 

MOV 

302  000440 

O'lOOO 

MOV 

3C3  000442 

001406 

BEQ 

304  000444 

010003 

MOV 

305  000446 

010046 

MOV 

306  000450 

CALL 

307  000454 

012600 

MOV 

308  000456 

309 

310  00046U 

001)767 

BR 

0:0266 

000004 

25$: 

MOV 

311  000464 

010246 

MOV 

312  000466 

010146 

MOV 

313  000470 

CALL 

314  0004  74 

012677 

OOOOOOG 

MOV 

315 

30$ 

FNBLN.RI 
$)(ALOC 
10$ 

RO 
30$ 

aKSAR5,-(SP) 

R0,R2 

RO,-(SP) 

$CEACX 
tSP)+,RO 

FNBLN.RI 
R2,-(SP) 
#FN8UfF,R2 
(R2)+,(R0)t 

R1 
15$ 

CSP)+,R2 
aCECPT.RO 
#D?FNB,R0 
R0,R3 

R3,R1 

(R0),RO 

25$ 

R0,R3 

R0,-(SP) 

$CEACX 

(SP)*-,R0 

20$ 

R2,4(SP) 

R2,-(SP) 

R1,-(SP) 

$LINKX 

(SP)t,aKSAR5 


ENTER  SYSTEM  STATE 
GET  FNB  SIZE 
ALLOCATE  FNB 
IF  SUCCESS  -  BRANCH 

IF  NOT  -  SET  USER  C-BIT 
RETURN 

SAVE  MAPPING 

SAVE  UNMAPPED  BUFFER  ADDRESS 

SET  BUFFER  ADDRESS 

GET  BUFFER  ADDRESS 
GET  MAPPED  ADDRESS 

GET  FNB  LENGTH 

SAVE  UNMAPPED  ADDRESS 

GET  LOCAL  COPY  OF  NEW  FNB  DATA 

TRANSFER  DATA  FROM  LOCAL  FNB  BUFFER 

TO  ACTUAL  FNB  IN  POOL.. 

COUNT  ONE  LESS  BYTE 

IF  MORE  -  BRANCH 

RESTORE  UNMAPPED  ADDRESS 
GET  DECNET  HOME  BLOCK  ADDRESS 
GET  FNB  LISTHEAD 
SAVE  LISTHEAD 

STORE  CURRENT  Ui\MAPPED  FNB  ADDRESS 

GET  NEXT  FNB 

IF  END  OF  LIST  -  INSERT  NEW  FNB 

SAVE  UNMAPPED  ADDRESS  OF  NEW  CURRENT  FNB 

PUT  UNMAPPED  ADDRESS  ON  STACK  FOR  $CEACX 

MAP  TO  BUFFER 

GET  MAPPED  ADDRESS 

CONTINUE 

STORE  UNMAPPED  ADDRESS  CF  NEW  ^1)3  IN  USER  RO 
PUT  UNMAPPED  ADDRESS  ON  STACK  "^OR  $LINKX 

LINK  NEW  FNB  INTO  LIST 
RESTORE  MAPPING 


L?, 
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10 
11 
'2 
15 

14 
15 


19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
1,9 
50 
51 


.riTLE 

.IDENT 
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COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BV  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   12-JAN-81 

DECNET-11M/S  V3.0 
DECNET-llM-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  VI. 1 

4.00  07-NO<'-83 

0ECNE,-11M  V4.0 
DECNET-llM-PLUS  V2.C 

5.00  22-..UL-65 

DECnet-llM/S  V4.2 
DECne;-i1M-Plus  V3.0 
DECnet-Mic-o/RSX  Vl.O 


OF   ITS 


E  9 


L 


CF2AC6     CREATED  BY  MACRO 
SYMBOL  CROSS  REFERENCE 


'M   ?9-JUN-85  AT  00:12 


SYMBOL  VALUE 


L.FLG 

L.KR8A 

L.LEN 

L.LGST 

L.MPf 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MRKFL 

NAME 

NODARE 

NOD  ID 

NGDNM 

NODNUM 

PDVNM 

PDVTA 

PRMFL 

PRONM 

RTSPC 

R$$EIS 

RSSIID 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SLTMA 

SLTNM 

STAN 

STRAD 

STRCH 

STRCT 

STRMX 

STRPT 

STRXX 

S$$BAS 

S.COST 

S.CTL 

S.FLG 

S.LEN 

S.NAME 

S.NMS 

S.OWNR 

S.UNT 

UNT 

X.FIG 


GX 


000000 
000016 
=  000022 
001232  RG 
000022 
000020 
OOOOK 
000021 
00U013 

000000 
000356  RG 
000024  RG 
000000  RG 
000^30  RG 

=  »««»».  GX 

=  **»♦»»  GX 
000644  RG 
000560  RG 

=  »*♦♦**  GX 

-   ^♦t*** 

=  ****** 

=  000200 

=  000100 

=  000004 

=  000040 

=  000020 

=  000010 

=  000001 

=  000002 

=  000040 

GX 
GX 
GX 

000006  R 
000154  RG 
000012  fi 
030010  R 
000014  R 
000016  R 


000001 
000700  RG 
000000 
000004 
100660  RG 

00002 
;00005 
100710  RG 
000004  R 

101124  RG 


****** 


REFERENCES 

*5-63 

#5-63 

#5-63 

#11-389 

#5-63 

#5-63 

#5-63 

#5-63 

#5-63 

10-342 
#6-88 
#8-24  1 
#8-140 
#8-130 
#8-249 

9-283 

9-281 
#9-298 
#9-277 

7-110 

8-244 

8-244 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
;'5-63 
#5-63 
#5-63 
#j-63 

10-320 

10-321 
♦10-341 
#6-96 
#8-182 
#0-98 
#6-07 
#6-99 
#6-100 

7-no 

7--' 14 
#5  : 
#'   314 
#^-63 
#5-63 
#10-305 
#5-63 
#5-63 
#10-320 
#6-90 
#10-364 


♦10-342 


10-347 

10-366 

10-328 
10-376 
♦9-280 


10-331 


7-111 
8-259 
8-259 

10-348 

10-375 


10-353 


10-368 
♦8-162 


♦8-164 

♦8-172 

8-134 

7-110 

7-' 15 


♦10-374 


D  10 

PAGE  2 

CREF   04.00 


CF2 
DAT 


10-345 


10-352 


9-288 


10-34: 


10-373 


♦10-308 


10-350 


10-356    ♦10-358 


10-377 


10-334 


7-112 


10-374 


7-113 


10-379 


7-114 


7-115 


♦10-369 
♦8-193 

8-199 

8-168 
♦8-173 

8-183 
8-201 

7-111 
7-115 

7-111 

♦10-375         ^10-376 


8-205 


7-112 


♦10-379 


8-210  8-213 

7-112  7-113 


8-220 
7-113 


8-229 

7-114 


nunc     7 


E  10 


r 
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CF2AC7  -  CONFIG  FILE  ACTION  ROU  MACRO  V0:).03b  Saturday  29-Jun-85  00:12 
DATA  SECTION 


388  001120 

160204 

rue 

R2,fi4 

389  001122 

166004 

COOOOOG 

SU8 

P.BLKS(R0),R4 

390  001126 

103412 

BLO 

50$ 

391   001130 

032767 

002000     OOOOOOG 

BIT 

#LS.TOP,$fUNC 

392  001136 

001401 

BEQ 

40$ 

393  001  HO 

060402 

ADO 

R4,R2 

394  001 142 

010116 

40$: 

MOV 

R1,(SP) 

395  001144 

010260 

OOOOOOG 

MOV 

R2,P.REL(R0) 

396  001150 

010360 

OOOOOOG 

MOV 

R3,P.SUB'R0) 

39?  301154 

012601 

50$: 

MOV 

(SP)+,R1 

398  001156 

001405 

BEO 

101$ 

399  001160 

010C61 

OOOOOOG 

MOV 

R0,P.SUB(R1) 

400  001164 

010005 

MOV 

R0,R5 

401   001166 

000241 

CLC 

402  001170 

RETURN 

403 
404 
405 
406 
407  001172 

';    ERROR 

CONDITIONS 

016701 

OOOOOOG 

101$: 

MOV 

PLGTH,R1 

408  001176 

CALL 

aDEACB 

409  001202 

000261 

SEC 

410  001204 

RETURN 

411 

.ENDC 

412 

413 

414 

000001 

.END 

Page  7-1 


GIVING   SIZE  Of   LAST  HOLE 

IS  LAST  HOLE  BIG  ENOUGH? 

IF  MI,  NO 

TOP-DOWN  ALLOCATION? 

IF  EQ,  NO 

ALLOCATE  FROM  TOP  OF  HOLE 

SAVE  PREVIOUS  SUB-PCB  ADDRESS 

SET  SUB  PARTITION  BIAS 

AND  POINTER  TO  NEXT  SUB-PCB  IN  LIST 

GET  PREVIOUS  SUB-PCB  ADDRESS 

IF  EQ,  NO  SPACE  IN  PARTITION 

LINK  OUR  SUB-PCB  TO  PREVIOUS 

THIS  IS  NOW  THE  OFFICIAL  PCB 

INDICATE  SUCCESS 


GET  PCB  LENGTH 
DE-ALLOCATE  SUB-PCB 
INDICATE  FAILURE 


CF 
SF 


U\- 


r 
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CF2AC8  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:12 
SFRSLN  -  DETERMINE  SLN/STA  VALUE 


Page  8 


K5 
1^6 
H7 
U8 
149 
150 
151 
152 
153 
154 
155 

156  000074 

157  000076 

158  000102 

159  000106 
160 

161  000112 

162  000114 

163  000116 

164  000120 
165 

166  000122 

167  000124 

168  000130 
169 

170  000132 

171  000136 

172  000140 
173 

174  000142 

175 

176 

177 

178  C00144 

179  000150 
180 

181  000152 

182 

183  000154 

184 

185 

186  000162 

187  000166 

188  000172 

189  000176 
190 

191  000200 

192  000212 
193 

194  000214 

195  000220 

196  000222 
197 

198  000226 

199  000230 

200  000234 
201 


HRDADD  -  STORE  HARDWARE  ADDRESS 

INPUTS  - 

.PSTPT  -  PARSED  STRING  ADDRESS 
.PSTCN  -  STRING  SIZE 

OUTPUTS  - 

HARDWARE  ADDRESS  CONVERTED 


010346 

016700  OOOOOOG 

012702  OOOOOOG 


006303 
006303 
006303 
006303 

110312 

150322 

022702  OOOOOOG 
001363 


HRDADD: :MOV  R3,-(SP) 

MOV  . PSTPT, RO 

MOV  *SERADD,R2 

5$:     CALL  HEXIND 


012603 


103401 


RETURN 


012701  0CO052 
103006 


010002 
010067 

010046 

012600 


OOOOOOG 


SEREND: 

:CALL 
BCS 

RETURN 

SERALL 
101$ 

101$: 

EMSG$R 

SS 

SE''ALL: 

SWSTK$ 
MOV 
CALL 
BCC 

30$ 

#S.LENG,R1 
$XAL0C 
10$ 

RETC 
RETURN 

RO 

10$: 

SAVMAP 

MOV 

MOV 

R0,R2 
RO.SERCUR 

MOV 

CALL 

MOV 

RO,-(SP; 

$CEACX 

(SP)t,RO 

SAVE  REG 

GET  PARSED  :.RING  ADDRESS 
GET  HARDWARE  ADDRESS  BUFFER 
CONVERT  HEX 


ASL 
ASL 
ASL 
ASL 

R3 

R3 

R3 

;  POSITION  DIGIT 

Move 

CALL 
BIS8 

R3,(R2) 

HEXIND 

R3,(R2)+ 

;  STORE  DIGIT 
;  CONVERT  HEX 
;  STORE  DIGIT 

CMP 
BNE 

MOV 

#SERTMP,R2 

5$ 

(SP)+,R3 

;  END  OF  BUFFER  ? 
;  RESTORE  REG 

ALLOCATE  SERVICE  BLOCK 

IF  ALLOCATION  FAILURE  BRANCH 


SERVICE  BLOCK  ALLOCATION  FAILURE 


ENTER  SVSTEM  STATE 
GET  SIZE  OF  BLOCK  NEEDED 
ALLOCATE  BLOCK  FROM  POOL.. 
IF  SUCCESS  -  BRANCH 

IF  FAILURE  -  SET  USER  C-BIT 


SAVE  MAPPING 

SAVE  UNMAPPED  ADDRESS 

SAVE  CURRENT  SERVICE  BLOCK  ADDRESS 

SET  UP  UNMAPPED  ADDRESS 

MAP  TO  BLOCK 

GET  MAPPED  ADDRESS 


E  12 


L 


•»FILE"ID««CF2AC9 


D  13 


SEP 


CCCCCCCC   F 

FFFFFFFFF 

222222 

AAAAAA 

CCCCCCCC 

999999 

CCCCCCCC   F 

FFFFFfpFF 

222222 

AAAAAA 

CCCCCCCC 

999999 

22     22 

AA 

AA 

99     99 

22     22 

AA 

AA 

99     99 

22 

AA 

AA 

99     99 

22 

AA 

AA 

99     99 

FFFFFFF 

22 

AA 

AA 

99999999 

FFFFFFF 

22 

AA 

AA 

99999999 

22 

AAAAAA AAAA 

99 

22 

AAAAAAAAAA 

99 

AA 

AA 

99 

22 

AA 

AA 

99 

CCCCCCCC   F 

2222222222 

AA 

AA 

CCCCCCCC 

999999 

CCCCCCCC   F 

2222222222 

AA 

AA 

CCCCCCCC 

999999 

ssssssss 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

r  n  i  1 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLlLL 

ssssssss 

f  13 


r 


L 


CF2AC9  -  CONFIG  FILE   ACTION  ROU  MACRO  V05.0?b   Saturday  29-Jun-85  00:13 
SERtDF    ACTION   ROUTINES 
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CF2 
Tab 


395 

39^ 

395 

396 

397 

398  001066 

399 

'.GO 

401  001066 

402  001066 

403  001066 

404  00''066 

405  001066 

406  001066 

407  001066 

408  001066 

409  001066 

410  001066 

411  001066 

412  001066 
;i3  001066 
41'.  001066 

415  001066 

416  001066 

417  001066 

418  001066 

419  001066 

420  001066 

421  001066 

422  001066 

423  001066 

424  001066 

425  001066 

426  001066 

427  001066 

428  001066 

429  001066 

430  001066 

431  001066 

432  001066 

433  001066 

434  001066 

435  001066 

436  001066 

437  001066 

438  001066 

439  001066 

440  001066 

441  001066 

442  001066 

443  001066 

444  001066 

445  001066 

446  001066 

447  001066 

448  001066 

449  001066 


XPT'S   LLCSDF    STATE    TABLE    FOR   POOL..    ALLOCATiON 


IST">T$     LLCST.LLCKU 


STATES 

BRADF 

TRANS 

XSLTSDFSX 

STATES 

TRANS 

SRAD50 

STATES 

TRANS 

<',> 

STATES 

TRANS 

SRAD50 

STATES 

TRANS 

<',> 

STATES 

TRANS 

SRAD50 

STATES 

TRANS 

<',> 

STATES 

TRAMS 

<',>,SLTDF2 

TRANS 

SLAMDA 

STATES 

SLTDF3 

TRANS 

XLF.MFLX.SLTDFI 

TRANS 

XLF.ENAX.SLTDFl 

TRANS 

XLF.SERX.SLTDFl 

TRANS 

SRADSO 

STATES 

SLTDF1 

TRANS 

•|,SLTDF3 

TRANS 

<',> 

STATES 

SLTDF2 

TRANS 

SNUMBR 

STATES 

TRANS 

<■  .> 

STATES 

TRANS 

SNUMBR 

STATES 

TRANS 

$EOS,SEX!T 

TRANS 

<'  ,> 

STATES 

TRANS 

<',>,SCT1M 

TRANS 

SSTRNG 

STATES 

TRANS 

SEOS,SEXIT 

TRANS 

<',> 

STATES 

SCTIM 

TRANS 

SNUMBR, SC HELD 

TRANS 

<',>,SCHEL 

STATES 

SCHELO 

TRANS 

SEOS.SEXIT 

TRANS 

<'  ,> 

STATES 

SCHEL 

TRANS 

SNUMBR, BRAfiJ 

TRANS 

<'  ,> 

F   U 


L 
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Table  of  contents 


CF^ 


45 
78 


MACRO  DEFINITIONS 
DECSDF  ACTION  ROUTINES 


1     r 


E  15 


r 


L 
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26 
27 
28 
29 
30 
31 
32 
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.TITLE 
.IDENT 


CF2UMR  -  NTL 
/V05.00/ 


INITIALIZATION  UMR  SETUP 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNAPD,  MASS. 

THIS  Sr'TWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  HAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  INITIALIZATION  UMR  SETUP 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00      14-DEC-79 

DECNET-11M/S   V3.0 
DECNET-HM-PLUS   VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


E  16 
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X2P$DF  ACTION  ROUTINES 


Page  11-1 


CFGX3F 
LOCAL 


252  000440 

0:0061 

OOOOOOG 

MOV 

R0,$X2MWS(R1) 

253  000444 

RETURN 

254  000446 

255 

256 

101$: 

EMSG$R 

2F 

;•  MAXIMUM  BLOCK 

SIZE 

257 

• 

258  000454 

005767 

OOOOOOG 

X2.MBS: 

TST 

.PNUMH 

259  000460 

001010 

BNE 

101$ 

260  000462 

016700 

OOOOOOG 

MOV 

.PNUMS,R0 

261  000466 

016701 

OOOOOOG 

MOV 

UCNT.Rl 

262  000472 

006301 

ASL 

R1 

263  000474 

010061 

OOOOOOG 

MOV 

R0,$X2MBS(R1) 

264  000500 

RETURN 

265  000502 

266 

267 

268 

269  00C510 

101$: 

EMSG$R 

2<- 

;  MAXIMUM  RETRANSMIT  COUNT 

005767 

OOOOOOG 

X2.MRT: 

TST 

.PNUMH 

270  000514 

001012 

BNE 

101$ 

271  000516 

105767 

000001 G 

TSTB 

.PNUMB+1 

272  000522 

001007 

BNE 

101$ 

273  000524 

016701 

OOOOOOG 

MOV 

UCNT.Rl 

274  000530 

006301 

ASL 

Rl 

275  000532 

016761 

OOOOOOG  OOOOOOG 

MOV 

.PNUMB,$X2MRT(R1) 

276  000540 

RETURN 

277  000542 

101$: 

EMSG$R 

2J 

278 

279 
:30 
281  000550 

;  RETRANSMIT  TIMER 

005767 

0000006 

X2.RTR. 

TST 

.PNUMH 

282  000554 

001014 

BNE 

101$ 

283  000556 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

284  000562 

002411 

BLT 

101$ 

285  000564 

022700 

001130 

CMP 

#X2RTMX,R0 

286  000570 

103406 

BLO 

101$ 

287  000572 

016701 

OOOOOOG 

MOV 

UCNT.Rl 

288  000576 

006301 

ASL 

Rl 

289  000600 

010061 

OOOOOOG 

MOV 

R0,$X2RET(R1) 

290  000604 

RETURN 

291  000606 

292 

293 

294 

295  000614 

101$: 

EMSG$R 

2K 

;  HOLDBACK  TIMER 

005767 

OOOOOOG 

X2.HLD 

TST 

.PNUMH 

296  000620 

001016 

BNE 

101$ 

297  000622 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

298  000626 

002413 

BLT 

101$ 

299  000630 

022700 

001130 

CMP 

*X2HLMX.R0 

300  000634 

103410 

BLO 

101$ 

301  000636 

016701 

OOOOOOG 

MOV 

UCNT.Rl 

302  000642 

006301 

ASl 

Rl 

303  000644 

010061 

OOOOOOG 

MOV 

R0.IX2HLD(R1) 

304  000650 

005267 

OOOOOOG 

INC 

UCNi 

305  000654 

RETURN 

306  000656 

101$: 

EMSG$R 

2L 

307 

308 

000001 

.END 

STORE  MAXIMUM  WINDOW  SIZE 
ILLEGAL  MAXIMUM  WINDOW  SIZE  VALUE 


LEGAL  MAXIMUM  BLOCK  SIZE  VALUE? 

BR  IF  NO 

GET  MAXIMUM  BLOCK  SIZE 

GET  UNIT  COUNT 

MAKE  IT  A  WORD  INDEX 

STORE  MAXIMUM  BLOCn  SIZE 

ILLEGAL  MAXIMUM  BLOCK  SIZE 


LEGAL  RETRANSMIT  COUNT? 
BR  IF  NO 

BR'iF  NO 

GET  UNIT  COUNT 

MAKE  tT  A  WORD  INDEX 

STORE  MAXIMUM  RETRANSMIT  COUNT 

ILLEGAL  MAXIMUM  RETRANSMIT  COUNT 


LEGAL  RETRANSIIT  TIMER? 

BR  IF  NO 

GET  RETRANSMIT  TIMER 

BR  IF  ILLEGAL  VALUE 

LEGAL  RETRANSMIT  TIMER  VALUE? 

BR  IF  ILLEGA.  VALUE 

GET  UNIT  COUNT 

MAKE  IT  A  WORD  INDEX 

STORE  RETRANSMIT  TIMER 

ILLEGAL  RETRANSMIT  TIMER 


LEGAL  HOLDBACK  TIMER? 

BR  IF  NO 

GET  HOLDBACK  TIMER  VALUE 

BR  IF  ILLEGAL  VALUE 

LEGAL  HOLDBACK  TIMER  VALUE? 

BR  IF  NO 

GET  UNIT  COUNT 

MAKE  IT  A  WORD  INDEX 

STORE  HOLDBACK  TIMER  VALUE 

UPDATE  UNIT  COUNT 

ILLEGAL  HOLDBACK  TIMER  VALUE 
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CFGX3P  -  CONFIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Satu'day  29-Jijn-85 
LOCAL  DATA 


^o.i 


i9  Page  7 


CF2AC 
MACRC 


000000 


72 
73 
7A 
75 
76 
77 

78  000000 

79  000002 

80  OOOOOA 

81  000006 

82  000010 
83 


.SSTTL  LOCAL  DATA 
.PSECr  OATA,D 


;  LOCAL 

Dm  FA 

NEXT: 

.8LKW   1 

X3DEV: 

.SLKW   1 

X3CTL: 

.BLKW   1 

X3UNT: 

.8LKW   1 

TIMRCT: 

.BLKB   1 

.EVEN 

ADDRESS  OF  NEXT  TIMER 

RAD50  DEVICE  NAME 

CONTROLLER  NUMBER 

UNIT  NUMBER 

COUNT  OF  NUMBER  OF  TIMER  PARAMETERS  SEEN 


F 
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MACRO  DEFINITIONS 


■)6 

57 

58 

59 

60 

61 

62 

63 

6A  000000 

65  000000 

66 

67 

68 

69 

70 

71 

72 

73 

lU 

75 

76 


.SBTTL  MACRO  DEFINITIONS 


•  **** 

•  LIBRARY  MACRO  CALLS 

•  **** 


.MCALL  RN8DF$,EMSG$R,RETC,NTLER$,ASL$,DHBDF$,SAVRG,RESRG 


DHBDFS 
RN8DF$ 


;  LOCAL  MACRO  DEFINITIONS 

•  *** 

.MACRO  SAVMAP 

MOV     KSAR5,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV     (SP)  +  ,>-"AR5 

.ENDM 


DEFINE  DECNET  HOME  BLOCK  OFFSETS 
DEFINE  REMOTE  BLOCK  OFFSETS 


SAVE  APR  5 


RESTORE  APRS 


CF2; 

MACF 

MACF 

ASL? 
CALL 
DHBt 
EMSC 
NTLE 
RES^ 
RESF 
RET( 
RETl 

RNBi 
SAVf 
SAVF 
bWS' 
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CF2AC1     CREAIED  BY 
MACRO  CROSS  REFERENCE 


MACRO  ON  29-JUN-85  AT  00:09 


E  4 

PAGE  5 

CREF   04.00 


MACRO  NAME 

REFERENCES 

ASL^ 

#5-62 

10-259 

CALL 

10-271 

10-272 

10-279 

10-287 

10-305 

10-311 

DHBDFS 

#5-62 

5-64 

EMSGSR 

#5-62 

10-253 

10-264 

10-320 

10-^21 

11-335 

NTLERS 

#5-62 

7-99 

7-100 

7-101 

7-102 

7-103 

RESMAP 

#5-74 

10-312 

RESRG 

#5-62 

RETC 

#5-62 

10-274 

RETURN 

8-129 
11-343 

8-155 
12-365 

9-186 
12-374 

9-231 

10-249 

10-262 

RNBDF$ 

#5-62 

5-65 

SAVMAP 

#5-70 

10-276 

SAVRG 

#5-62 

bWSTKS 

10-271 

10-313 


10-316 


11-334 


11-340 


♦♦F1LE»»ID«*CF2AC2 
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•F1LE*«ID'«CF2AC5 


E     5 


CCCCCCCC   F 

FFFFFFFFF 

222222 

AAAAAA 

CCCCCCCC 

533335 

CCCCCCCC   F 

FFFFFFFFF 

222222 

AAAAAA 

CCCCCCCC 

355553 

22     22 

AA 

AA 

55     55 

22     22 

AA 

AA 

5^     }} 

22 

AA 

AA 

35 

22 

AA 

AA 

33 

FFFFFFF 

22 

AA 

AA 

53 

FFFFFFF 

22 

AA 

AA 

33„ 

22 

AAAAAAAAAA 

33 

22 

AAAAAAAAAA 

35 

2" 

AA 

AA 

55     35 

CC          F 

^ 

AA 

AA 

53     53 

CCCCCCCC    F 

2222222222 

AA 

AA 

CCCCCCCC 

553355 

CCCCCCCC    F 

2222222222 

AA 

AA 

CCCCCCCC 

355555 

Ll 

SSSSSS5S 

TTTTT 

TTTTT 

LL 

ssssssss 

TTTTT 

TTTTT 

_L 

ss 

a 

ss 

-L 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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SYMBOL  CROSS  REFERENCE 
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CREf   OA.OO 


SYMBOu 

VALUE 

REFERENCES 

BFEND 

=  OOOO'.O  R 

#5-94 

7-138 

7-153 

BFTAB 

000000  R 

#5-86 

7-130 

B.END 

000060  RG 

#7-153 

B.NUM 

OOOOU  RG 

#7-137 

B.5TR 

000000  RG 

#7-130 

B.ZEND 

000054  RG 

#7-152 

B.ZERO 

000010  RG 

#7-136 

7-152 

CERR 

=  ♦».,«»  GX 

6-104 
6-113 

6-105 
6-114 

6-106 
6-115 

6-107 
6-116 

6-108 

6-109 

6-110 

6-111 

6-112 

CFGBF 

=  «♦♦*♦♦  GX 

8-200 

C^GROU 

000000  RG 

#12-319 

CFGSZ 

=  ♦..»*»  GX 

8-199 

CFLIN 

=  »»*♦»*  GX 

6-104 

6-105 

CRCSOV 

=  **♦»»*  GX 

7-162 

7-169 

FMT8 

=  «»»♦•*  GX 

6-104 
6-113 

6-105 
6-114 

6-106 
6-115 

6-107 
6-116 

6-108 

6-109 

6-110 

6-111 

6-112 

FM.8 

=  000000 

#6-104 
#6-113 

#6-105 
#6-114 

#6-106 
#6-115 

#6-107 
#6-116 

#6-108 

#6-109 

#6-110 

#6-111 

#6-112 

M$$MGE 

=  000000 

7-177 

QROU 

000224  RG 

#8-196 

ROUOF 

000000  R 

8-196 

ROUKW 

000000  RG 

8-198 

#12-319 

RTSPC 

r  *»♦*««   GX 

6-104 

6-113 

6-105 
6-114 

6-106 
6-115 

6-107 
6-116 

6-108 

6-109 

6-110 

6-111 

6-112 

R.ADDR 

000276  RG 

#9-218 

R.AMXC 

000544  RG 

#10-288 

R.AMXH 

000516  RG 

#10-279 

";.BEA 

000452  RG 

#10-265 

R.BTM 

000572  RG 

#11-298 

R.COST 

000306  RG 

#9-222 

R.HOP 

000334  RG 

#9-229 

R.MAXA 

000406  RG 

#9-245 

R.RTM 

000362  RG 

«q-237 

SYNERR 

=  »»«*»»  GX 

»o-201 

*8-204 

S$$BAS 

rr  ****** 

6-104 

6-104 

6-105 

6-105 

6-106 

6-106 

6-107 

6-107 

6-108 

6-108 

O-109 

6-109 

6-no 

6-110 

6-111 

6-111 

6-112 

6-112 

6-113 

6-113 

6-114 

6-114 

6-115 

6-115 

6-116 

6-116 

SALPHA 

=  000022 

#12-319 

$ANY 

=  000020 

#12-319 

$Bl  ANK 

=  000006 

#12-319 

SDIGIT 

=  000024 

#12-319 

SDNUMB 

=  000014 

#12-319 

$EOS 

=  000012 

#12-319 

SERRXR 

000040  R 

#6-104 

7-147 

SERRXS 

000074  R 

#6--'05 

7-191 

SERRYi 

000632  R 

#6-115 

11-309 

SER^vj 

000700  R 

#6-116 

SERRYK 

000126  R 

#6-106 

9-227 

$ERRYL 

000162  R 

#6-107 

9-234 

$ERRY^: 

000214  R 

#6-108 

9-257 

SERRYN 

000260  R 

#6-109 

SERRYO 

000342  R 

#6-110 

10-277 
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CF2AC4 

fREA-TED  BY 

MACRO     ON  29 

-JUN-85 

AT  00:11 

PAGE   1 

SYMBOL 

:R0SS  REFERENCE 

CREF        04 

00 

SYMBOL 

VALUE 

REFERENCES 

CERR 

=  **»*t* 

GX 

7-104 

7-105 

7-106 

7-107 

CLASS 

000000 

R 

#6-90 

*8-128 

9-193 

9-r09 

EVENT 

OOOOOA 

R 

#6-92 

8-130 

8-149 

9-195 

9-196 

E.CON 

000130 

RG 

#9-173 

E.FIL 

OOOHO 

RG 

#9-176 

E.MON 

000150 

RG 

#9-179 

E.MSK 

000060 

RG 

#8-147 

E.NUM 

000000 

RG 

#8-123 

FF.ADD 

=  000020 

#5-63 

5-63 

FF.CIR 

=  000040 

#5-63 

5-63 

FF.CON 

=  000001 

#5-63 

9-173 

FF.FIL 

=  000002 

#5-63 

9-176 

FF.HST 

^  040000 

#5-63 

FF.LIN 

=  000010 

#5-63 

5-63 

FF.MOD 

=  000100 

#5-63 

5-63 

FF.MON 

=  000004 

#5-63 

9-179 

FF.MSK 

=  000077 

#5-63 

FF.PRT 

=  000200 

#5-63 

5-63 

FF.QUL 

=  000370 

#5-63 

FF.REM 

=  100000 

#5-63 

FILHD 

-   ****** 

GX 

9-200 

FLAG 

000002 

R 

#6-91 

•8-129 

•9-173 

•9-176 

•9-179 

FMT8 

=   ****** 

GX 

7-104 

7-105 

7-106 

7-107 

FM.8 

=  000000 

#7-104 

#7-105 

#7-106 

#7-107 

F.ADD 

000016 

#5-63 

F.CEV 

000030 

#5-63 

F.CIR 

000024 

#5-63 

F.CLS 

000002 

#5-63 

♦9-193 

•9-194 

9-209 

F.EVT 

000004 

#5-63 

•9-195 

•9-196 

•9-197 

•9-198 

F.FLG 

0000 1  ■■< 

#5-63 

•9-199 

F.LEN 

000016 

#5-63 

9-181 

9-194 

F.LIN 

000020 

#5-63 

F.LNK 

000000 

#5-63 

F.MOD 

000022 

#5-63 

F.REM 

000026 

#5-63 

F.SEV 

000004 

#5-63 

KSAR5 

-  ****** 

GX 

9-188 

•9-214 

NSIVCT 

r  ****** 

9-186 

RTSPC 

=     ****** 

GX 

7-104 

7-105 

7-106 

7-107 

STRADD 

000014 

R 

#6-94 

•8-131 

8-149 

8-151 

*§-]5? 

S$$BAS 

-   ****** 

7-104 

7-104 

7-105 

7-105 

7-106 

SCEACX 

r   ****** 

GX 

9-191 

9-207 

SERREI 

000016 

R 

#7-104 

8-139 

$ERRE2 

000052 

R 

#7-105 

8-158 

$ERRE3 

000120 

R 

#7-106 

9-222 

SERREA 

000206 

R 

#7-107 

8-159 

SHEADR 

=   ****** 

GX 

9-186 

SLINKX 

r  ****** 

GX 

9-213 

SXALOC 

r  •♦**«* 

GX 

9-184 

.PNUMB 

-  ♦*♦**• 

GX 

8-125 

8-151 

.PNUMH 

-  ****** 

GX 

8-123 

8-147 

CF2AC 
CRFNE 


9-197 


9-198 


9-199 


7-106 


7-107 


7-107 
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CF2AC5  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:11 
CRFNBK  -  CREATE  FILENAME  DESCRIPTOR  BLOCK 


Page  n-l 


CF2A( 
MACRC 


316  000500 
318 


30$: 


RETURN 
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CF2AC6  -  CONFIG  FILE  ACTION  RCU  MACRO  VO5.03b  Saturday  29-Jun-£5  00:11  Page  5 
MACRO  DEHNITI0N5 


53 

5^ 

55 

56 

57 

58 

59 

60 

61 

62 

63  000000 

6^  000000 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 


.SBTTL  MACRO  DEFINITIONS 
•  *** 

■  LlBRARy  MACROS 

■  **    .MCALL  RESMAP,SAVMAP,EMSG$R,SLTDF$,NTLER$,ASL$,DHB[)f$,SAVRG,RESRG 


•  *** 

■  LIBRARY  SYMBOLS 

■  *** 

SLTDFS 
DH8DF$ 


.MACRO  SAVMAP 

MOV  aKSAR5,-(SP) 

.ENDM 

.MACRO  RtSMAP 

MOV  (SP)+,aKSAR5 

.ENDM 


DEFINE  SLT  OFFSETS 

DEFINE  DECNET  FIOME  BLOCK  OFFSETS 


SAVE  APRS  MAPPING 
RESTORE  APRS  MAPPING 


/AC   A7U  C-t-. 
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CF2AC6     CREATED  Br  MACRO  ON  29-JUN-85  AT  00:12 
SYMBOL  CROSS  REFERENCE 
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PAGE  3 

CREF   OA.OO 


SYMBOL  VALUE 


ZF.MFL 

Z.FLG 

Z.NAM 

SCATS 

SCEACX 

SERRLI 

SERRXN 

SERRXP 

SERRXT 

SERRXU 

SERRYM 

$PD\/A 

SSLTA 

SXALOC 

.CBIAS 

.PNUMB 

.PSTPT 


i  »««,,«   6X 

=  «»♦♦.«  GX 

=  ,♦♦»..  gx 

=  «».***  GX 

=  *»♦»*»  GX 

00023^  R 

000020  R 

000056  R 

000112  R 

000U2  R 

000176  R 

=  ******  GX 

=  ******  GX 

=  ******  GX 

=  ******  GX 

=  ******  GX 

=  ******  GX 


REFERENCES 

9-299 
•9-299 

9-288 

9-<r79 

8-155 
#7-115 
#7-110 
#7-111 
#7-112 
#7-113 
#7-1U 
•v-292 
•10-340 

8-U2 

10-332 

8-2A1 

10-328 

8-172 


10-334 

10-307 

8-191 

11-396 

9-291 

10-337 

8-235 

8-271 

10-384 

9-298 

10-349 


8-243 

11-389 

8-182 


10-355 


8-249 

11-391 

9-277 


10-364 


8-252 

11-393 

10-305 


8-256 


8-258 


8-265 


8-268 


10-314 
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CF2AC7  -  CONFIG  FILE  ACTION  ROU  MACRO  V0-j.03b  Saturday  29-Jun-85 
Symbol  table 


5  11 

00:1 


ALGCB  = 

AT$ACL= 

AT$ADN= 

AT$AUP= 

ATtCVC= 

AT$LVl= 

ATtLV2= 

AT$NEX= 

AT$UP  = 

ASCIR 

A$LEN 

ASNID 

A$TM 

A$TMI 

AtTSZ 

A$TYP 

A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

CL$MFL= 

CL$SFL= 

CL$TYP= 

CL.MU1= 

CL.MU2= 

CL.RES= 

CRSUB 

CV$MSK= 

CV$31  = 

CV$32  = 

CVS-IO  = 

c$$ck;p= 

C$$ORE= 
C$IRSH= 
DEACB  = 
D$$BUG= 
D$$ISK= 
D$$L11= 
D$$/NC= 
D$$YNM= 
ECLLLN= 
ECLNOD= 
ER$ABM= 
ER$ABO= 
ER$ABT= 
ER$ACC= 
ER$CDI= 
ER$COM= 
ER$FMT= 
ER$MLB= 
ERtNNF= 
ER$NOD= 
ER$NSL= 
ER$NSR= 
ER$RES= 
ERSSTA= 
ER$UOB= 


«.»»♦♦  Gx 

000100 

000040 

000020 

000004 

000002 

000001 

C00200 

000010 

000003 

000004 

000000 

000003 

000002 

000000 

000002 

000000 

000000 

000000 

000000 

000010 

000004 

000001 

000001 

000002 

177774 

000736R 

000003 

000001 

000000 

000002 

000000 

000400 

177564 

«««*»«  GX 

177514 

000000 

000001 

000000 

000000 

*«♦**»  GX 

*»»***  GX 

000010 

000046 

000011 

000042 

000052 

000047 

000005 

000006 

000012 

000002 

000013 

00000? 

OOOC01 

C00051 

000004 


E$NBR 

E$N8S 

E$NCR 

ESNCS 

ESNIC 

ESNLEN 

EtNLLA 

ESNLNK 

E$NML 

E$NMR 

ESNMS 

EtNNOD 

E$NRT 

EtNRTP 

ESNSEG 

ESNTIM 

ESNUSE 

ESSTRT 

E$$XPR= 

FE.EXT= 

FE.PLA= 

FMASK  = 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

IN.DAT= 

IN.ILS= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LnC= 

K$$TPS= 

K6TMP 

LA.ACK^ 

LA.CRS= 

lA.MSK;= 

LA.NAK= 

LA.NMS= 

LA.RES= 

LA.UND= 

LDSLP  ^ 

LF.DRD= 

LF.FRC= 

LF.HF0= 

LF.HMF= 

LF.HSF= 

LF.IRD= 

LF.MMF= 

LF.MSF= 

LO.CON 

LO.CSR 

LO.CTL 

LO.MN 

LO.PAR 


000014 

000020 

000034 

000036 

000044 

000050 

000012 

000000 

000040 

000024 

000030 

000002 

000042 

000005 

000010 

000046 

000004 

000006 

000000 

****** 

****** 

****** 

000001 

000000 

000000 

000000 

000000 

000400 

000001 

000000 

000000 

177546 

177546 

000000 

000074 

OOOOOOR 

100000 

020000 

170000 

110000 

010000 

040000 

004000 

000000 

000004 

000001 

000010 

000040 

000020 

000002 

000200 

000100 

000006 

000006 

000014 

000004 

000010 


GX 
GX 
GX 


LO.PR] 

L0.3CR 

LO.STA 

LO.VCT 

LR.AST 

LR.CIR 

LR.CTL 

LR.EFN 

LR.LIN 

LR.PRM 

LR.PRO 

LR.STS 

LR.TCB 

LR.UNT 

LS.AST= 

LS.CEX= 

LS.C1R= 

LS.CXO= 

LS.CX5= 

LS.DLM= 

LS.DLS= 

LS.ECH= 

LS.FCC= 

LS.FCO= 

LS.FC1= 

LS.FDX= 

LS.HDX-- 

LS.ILS= 

LS.L]N= 

LS.LMC= 

LS.mK= 

LS.MNK= 

LS.NTI= 

LS.ON  = 

LS.OPT= 

LS.PRO= 

LS.PUF= 

LS.RES= 

LS.RSV= 

LS.TOP= 

LS.UNF= 

LS.X25= 

LS.nD= 

LT.CCA= 

LT.DJR= 

LT.LCL= 

LT.LPL= 

LT.NOT= 

LT.RSU= 

LT.SLI= 

LT.TDA= 

LX.CEX=: 

LX.LIN= 

LX.PRO= 

L$$ASG= 

L$$DRV= 

L$$P11= 


000010 
000014 
000015 
000012 
000026 
000002 
000004 
000004 
000002 
000030 
000002 
000000 
000002 
000005 
100000 
000001 
000010 
010000 
000400 
004000 
100000 
001000 
000004 
000001 
000002 
004000 
010000 
100000 
000003 
000007 
000020 
000040 
004000 
000011 
000400 
000002 
040000 
000360 
000300 
002000 
020000 
000012 
004000 
000020 
000010 
000001 
000002 
000040 
000200 
000004 
000100 
000004 
000006 
0000C5 
000000 
000000 
000001 


2  Page  7-2 
L$$11R= 


-.CSTA 

L.CTR 

L.DCR 

L.FLAG 

L.ILSQ 

L.ILTT 

L.LDA 

L.LIA 

L.LLA 

L.LNG 

L.LNO 

L.LPT 


,LSA 
.LSFD 
.LSFI 
,LTT 


L.MASQ 


MAST 
L.MASZ 
L.NIN 
L.NXN 
L.NXTH 
L.OPD 
L.OPDL 
L.REM 
L.RFC 
L.RLA 
L.RNO 
L.RTQ 
L.RTYD 
L.RTYI 
SEC 
SEGZ 
STA 
TC 
TIC 
TIPD 
TIPI 
TMRD 
TMRI 
TYP 
USA 
_.USTA 
L.VER 
L.UIND 
MA. CI  = 
MA. DA  = 
MA.IL  = 
MC.CC  = 
MC.CI  = 
MC.DC  = 
MC.DI  : 
MC.NO  = 
MC.RC  ^ 
MD.BM  = 
MD.EM  : 


000000 
000037 
000074 
000100 
000014 
000052 
000066 
000032 
000034 
000002 
000124 
000026 
000065 
000030 
000046 
000044 
000062 
000070 
000073 
000072 
000020 
000016 
000010 
000103 
000102 
000006 
000050 
000004 
000022 
000060 
000055 
000057 
000064 
000076 
000000 
000042 
000043 
000013 
000012 
000054 
000056 
000001 
000024 
000036 
000015 
000040 
000040 
000000 
000020 
000040 
000020 
000100 
000060 
000000 
000140 
000040 
000100 


MD.1LS= 

MD.IM  = 

MF.ACK= 

MF.CTL= 

MF.DAT= 

M$$CR8= 

M$$CRX= 

M$$FCS= 

M$$HGE= 

M$$NET^ 

M$$OVR= 

NC.FMO= 

NC.FM1= 

NC.FM2= 

NS$DaN= 

NS$SD]= 

NS$UDC= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PARHD  = 

PLGTH  = 

PS.COM= 

PS.NSF= 

PS.SYS= 

P$$P45= 

P$$URD= 

P. ALL 

P. ATT  = 

P.BLKS= 

P.  END 

P.MAIN= 

P.NAM  = 

P. PRO  = 

P.REL  = 

P.STAT= 

P. SUB  = 

Q$$OPT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

STSCC  = 

ST$CIR= 

ST$CIS= 

ST$DAT= 

ST$DIP= 

ST$PND= 

S$$URG= 

S$$YSZ= 

TSFLAG 

TSLIF 


000040 
000020 
000004 
000010 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000000 
000001 
000002 
000000 
000002 
000004 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 

****** 
****** 
****** 
****** 
****** 

000000 

000000 

000002RG 

******  GX 

******  GX 

00001 6RG 

******  GX 

******  GX 

******  GX 

****  V* 

****** 

****** 

000010 

000000 

000001 

000000 

000000 

000004 

000006 

000002 

000010 

000012 

000014 

000000 

007600 

000044 

000013 


GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 
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CF2Ar8  -  CONFIG  FILE   ACTION  ROU  MACFfO  V05.03b   Saturday  ?9-Jun-85   00.-12 
SERSLN  -  DETERMINE    SLN/STA  VALUE 


202  000256 

203  0002A0 
20^.  000244 

205  000246 

206  000250 

207  000252 
?08 

209  000254 

210  000262 

211  000270 
212 

21 3  000276 
2' 4  000304 

215  000312 

216  000320 
217 

218  000326 

219  000334 

220  000342 
221 

222  000350 

223  000356 

224  000364 

225  000372 

226  000400 
227 

228  000406 

229  000412 

230  000416 
231 

232  000420 

233  000422 

234  000424 
235 

236  000426 

237  000430 

238  000432 

239  000436 

240  000440 
241 

242  000442 

243  000444 

244  000446 

245  C00452 
246 

247  000456 

248 

249 

250 


010003 
012701 
105020 
005301 
001375 
010300 

056760 
016760 
016760 

016760 
CI  6760 
016760 
016760 

016760 
016760 
016760 

016760 
016760 
016760 
016760 
016760 

017700 
062700 
010003 

010301 
011000 
001406 

010003 
010046 

012600 
000767 

010246 
010146 


000052 


OOOOOOG  000002 
OOOOOOG  000004 
OOOOOOG  000006 

OOOOOOG  000010 

000002G  000012 

000004G  000014 

OOOOOOG  000016 

OOOOOOG  000020 
OOOOOOG  000022 
000002G  000024 

000004G  000026 
000006G  000030 
OOOOOOG  000032 
000002G  000034 
OOOOOOG  000036 

OOOOOOG 
000032 


15$: 


20$: 


25$: 


30$: 


MOV 
MOV 
CLRB 

lev 


BIS 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 

MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 
MOV 

MOV 
ADD 
MOV 

MOV 
MOV 
BEQ 

MOV 

MOV 

CALL 

MOV 

BR 

MOV 
MOV 
CALL 
RESMAP 

RETURN 


R0,R3 

#S.LENG,R1 

(RO)t 

R1 

15$ 

R3,R0 
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SAVE  MAPPED  ADDRESS 
SET  BLOCK  SIZE 
ZERO  OUT  BLOCK 
COUNT  ONE  LESS  BYTE 
IF  MORE  -  BRANCH 
RESTORE  MAPPED  ADDRESS 


CF 

Tai 


SERfLG,S.FLAG(RO);  CLEAR  FLAG  WORD 
SERNOD,S.ADD(RO)  ;  GET  NODE  ADDRESS 
SERHST,S.HST(RO)  ;  GET  HOST  ADDRESS 

SERADD,S.HAD(RO)  ;  GET  HARDWARE  ADDRESS 

SERADDt2,S.HAD+2(R0)  ;  ... 

SERADDt4,S.HAD+4(R0)  ;  ... 

SERSLT,S.CIR(RO)  ;  GET  SLN/STA  PAIR 

SERDEV,S.OEV(RO)  ;  GET  DEVICE  NAME  RAD50 
SERPAS,S.PSS(RO)  ;  GET  SERVICE  PASSWORD 
SERPAS+2,S.PSS+2(R0)  ;  ... 

SEfiPAS+4,S.PSS+4(R0;  ;  ... 
SERPAS+6,S.PSS+6{R0)  ;  . . . 
SERDMP,S.DPA(RO)  ;  GET  DUMP  ADDRESS 
SERDMP+2,S.DPA+2(R0)  ;  . . . 
SEROCT,S.DPC(RO)  ;  GET  DUMP  COUNT 


aDECPT,RO 
#D$SER,RO 
R0,R3 

R3,R1 

(R0),R0 

25$ 

R0,R3 

RO,-(SP) 

$CEACX 

(SP)+,RO 

20$ 

R2,-(S0) 
R1,-(SP) 
$LINKX 


STORE  DECNET  HOME  BLOCK  ADDRESS 
POINT  TO  SERVICE  BLOCK  LISTHEAD 
SAVE  LISTHEAD 

STORE  CURRENT  UNMAPPED  ADDRESS 
GET  NEXT  SERVICE  BLOCK 
IF  END  OF  LIST  -  BRANCH 

SAVE  UNMAPPED  ADDRESS  OF  NEW  SERVICE  BLOCK 
SET  UP  UNMAPPED  ADDRESS  FOR  ACCESS 
MAP  TO  BLOCK 
GET  MAPPED  ADDRESS 
CONTINUE 

SET  UP  UNMAPPED  ADDRESS  FOR  $LINKX 

L:NK  new  SERVICE  BLOCK  INTO  LIST 
RESTORE  MAPPING 


F  12 

oc  f\ri  .  1  1 


r 


-J 


L 


CF2AC9  - 
Table  ot 


CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:15 


contents 


cf; 

SEF 


5-   A9    MACRO  DEFINITIONS 

7-  108    ACTION  ROUTINES  FOR  PARtDF 

<5-  3?2    SERSDF  ACTION  ROUTINES 


1 


F  13 


r 


J 


L 


E  H 

rF2AC9  -  CONflG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:13 
SERSDF  ACTION  ROUTINES 

'.50  001066 
A51  001066 
452  001066 
A53  001066 
A54  001066 


Page  10-1 


CF2 


STATES 

BRADJ 

TRANS 

<',>,BRADJ1 

TRANS 

SEOS.SEXIT 

STATES 

BRADJ 1 

TRANS 

SNUM8R,SE)(1T,BRDJ 

F  U 


L 


CF2DEC  -  CONJFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  ?9-Jun-85 


I   15 

00:U 
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CFc 


1 

2 

5 

i, 

5 

6 

7 

8 

9 
10 
11 
12 
13 
u 

15 
16 
17 
18 
19 
20 
21 
22 
23 

2'!i 

25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 


.TITLE  CF2DEC  -  CONFIG  FILE  ACTION  ROUTINES 
.IDENT  /V05.00/ 


COPYRIGHT  (C)  1984,  1985 
DIGITAL  EQUIPMENT  CORPORATION, 


MAYNARD,  MASS. 


THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  Of  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 


SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
A  COMMITMENT  BY  DIGITAL  EQUIPMENT 


THE  INFORMATION  IN  THIS  SOFTWARE  IS 
AND  SHOULD  NOT  BE  CONSTRUED  AS 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

4.00  22-JUN-84 

SUPPORT  DECSDF  MACRO 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-HM-Plus   V3.0 
DECnet-Micro/RSX   VI. 0 


OF      ITS 


F   15 


r 


CF2UMR  -  NTL  INITIALIZATION  UMR  MACRO  V05.0?b  Saturday  29-Jun-85 


00  :U 


Page  5 


5A 
55 
56 
57 
58 
59 
60 
61 
62 
63 

6-;  000000 

65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 

85  000000 

86  000002 

87  000010 

88  000012 

89  000016 

90  000020 

91  00002A 

92  000030 

93  000034 

94  000036 

95  000042 

96  000044 

97  00004^ 

98  000050 

99  000054 

100  000060 

101  000064 

102  000070 

103  000074 

104  000100 

105  000104 

106  000110 

107  000114 

108  000120 

109  000122 

110  000126 


005002 
032777 
001414 
005767 
001011 

012701 

103402 
010066 

005702 
001461 
004567 
016103 
166703 
166703 
062703 
042703 
072327 
010362 
016105 
066705 
005004 
073427 
010562 


LIBRARY  MACRO  CALLS 


.MCALL  EMSGSR 

.If  NDF  I$$AS 

.MCALL  NHWDFS 

NHWDFS 

.ENDC  ;  NDf  I$$AS 


DEFINE  HARDWARE  OFFSETS 


SUMRAL  -  ALLOCATE  AND  LOAD  UMR'S  FROM  NETWORK  POOL 

INPUTS: 

RO  =  BIAS  OF  CPU  PARTITION  (ONLY  ON  MULTI-PHOCESSOR  11M+  SYSTEMS 

R1  =  POOL  PCS  ADDRESS 

.ALLOC  -  NUMBER  OF  BLOCKS  OF  EXTENDED  NETWORK  POOL 

.NOMAP  -  NUMBER  OF  BLOCKS  OF  NON-UMR  MAPPED  NETWORK  POOL 

.UMRFL  -  UMR  ENABLED/DISABLED  FLAG 

OUTPUTS: 

R1  =  UNCHANGED 

R2  =  UMR  BLOCK  ADDRESS  OR  0 

.UMRBA  -  UMR  BLOCK  ADDRESS 


OOOOOOG  OOOOOOG 
OOOOOOG 

OOOOOOG 

000006 


SUMRAL 


10$: 
20$: 


OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000177 

000177 

177773 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000006 
OOOOOOG 


.IF  DF 
:CLR 
BIT 
BED 
TST 
BNE 

SWSTK$ 
MOV 
CALL 
BCS 
MOV 

RETURN 
TST 
BEQ 
JSR 
MOV 
SUB 
SUB 
ADD 
BK 
ASH 
HOV 
MOV 
ADD 
CLR 
ASHC 
MOV 


R$$11M  8  M$$MGE 

R2 

#FE.EXT,aFMASK 

10$ 

.UMRFL 

10$ 

20$ 

#m.lg:h,ri 

aALOCB 

10$ 

R0,6(SP) 

R2 

101$ 

R5,$SAVRG 

P.BLKS(RI) 

. ALLOC, R3 

. NOMAP, R 3 

#177, R^ 

#177, R3 

#-5,R3 

R3,M.UMRN(R2) 

P.fiEL(R1),R5 

. NOMAP, R 5 

R4 

#6,R4 

R5,M.BFVL(R2) 


R3 


ASSUME  FAILURE 
IS  THIS  REALLY  AN  11/70? 
IF  EQ,  NO 

HAVE  UMR'S  BEEN  DISABLED? 
IF  NE,  YES 
>   ENTER  KERNEL  MODE 

*  GET  UMR  BLOCK  SIZE 

*  TRY  TO  ALLOCATE 

*  IF  CS,  FAILURE 

t  RETURN  ADDRESS  IN  USER  MODE  R2 
'  BACK  TO  USER  MODE 

UMR  BLOCK  ADDRESS  ? 

IF  ZERO,  ALLOCATION  FAILURE 

SAVE  R3,  R4,  AND  R5  (CO-ROUTINE) 

GET  POOL  SIZE  IN  BLOCKS 

LESS  EXTENDED  POOL  ALLOCATIONS 

LESS  NTL  BLOCKS,  ETC. 

ROUND  UP  TO  NEXT  MULTIPLE  OF  4K  WORDS 

GIVING"nUMBER  OF  UMR'S  NEEDED  *  4 

STASH  COUNT  IN  UMR  BLOCK 

GET  POOL  STARTING  BLOCK  NUMBER 

LESS  NTL  SLOCKS,  ETC. 

CONVERT  TO  A  REAL  MEMORY  ADDRESS 

STASH  if  IN  UMR  BLOCK 


F  16 
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Symbol  table 
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CFGX3F 
ERROR 


A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

CERR  = 

CFGBF  = 

CFGSZ  = 

CFLIN  = 

CHKDEV 

C$$CKP= 

C$$ORE= 

C$$RSH= 

D$$8UG= 

D$$ISK= 

[)$$L11  = 

D$$YNC= 

DSSYNMi 

E$$XPR= 

FMT8B  = 

FM.8B  = 

F$$LVL= 

G$STPP= 

G$$TSS= 

G$$TTK= 

GS$WRD= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

LF.ACT= 

LF.BRO= 

LF.BWT= 

LF.ENAr 

LF.LPB= 

lF.MDC= 

LF.MFL= 

LF.MTP= 

LF.PAC= 

LF.RDY= 

LF.REA= 

.  ABS. 

SSTATE 

SKTAB 

SKSTR 


000000 
000000 
000000 
000000 

*t**** 
****** 
****** 
**♦♦*+ 

00031 6R 

000000 

000400 

177564 

1775U 

000000 

000001 

000000 

000000 

000000 

****** 

000000 
000001 

oooooc 

000000 
000000 
000000 
000000 
000000 
177546 
177546 
000000 
000074 
000000 
100000 
000400 
000007 
002000 
001000 
000100 
004000 
000020 
000200 
040000 
010000 

177776 
000664 
000102 
000002 
000007 


GX 
GX 
GX 
GX 


GX 


Errors  detected: 


000 
001 
002 
003 
004 
0 


LF.SER= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LN.CLO= 

LN.DUH= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.COST 

L.CTL 


,CVA 
.DDM 


L.DDS 


.DLC 
L.DLM 
L.DLS 
L.FLG 
L.KRSA 
L.LEN  = 
L.MPF 
L.NHST 
L.NSTA 
L.OWNR 
L.UNT 
M$$CRB= 
M$$CRX= 
M$$FCS= 
l»l$$MGE  = 


000040 
000010 
020000 
000000 
000000 
000005 
000004 
000003 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000000 
000000 
000001 
000000 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
000014 
000021 
000013 
000124 
000000 
000000 
000000 


(RW,I,GBL,ABS,OVR) 
{RW,I,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 
(RU,D,lCL,REL,CON) 
(RW,D,LCL,REL,CON) 


♦*♦  Assembler  statistics 


iJork  file  reads:  0 
Work  file  writes:  0 
Size  of  work  file:  15400  Words 


(  61  Pages) 


l«l$$NET  = 

M$$OVR= 

N$$ACC= 

N$$BIJF  = 

N$$LDV= 

N$$MCP= 

N$$HLL= 

N$$M0V= 

N$$NCT= 

N$$PEM= 

PDVTA  ^ 

P$$P45= 

P$$URD= 

Q$$0PT= 

RTSPC  = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SYNERR= 

S$$WR6= 

S$$YSZ= 

S.C0S7 

S.FLG 

S.LEN 

S.NMST 

S . OWNR 

T$$KMG= 

T$$M1N= 

UCNT  = 

V$$CTR= 

X$$DBT= 

X2CTL 


000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

»»**«*  GX 

000000 

000000 

000010 

******  GX 

000000 

000001 

000000 

000000 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

******  GX 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000000 

000000 

******  GX 

001000 

000000 

000002R 


X2DEV 

X2HLMX= 

X2PDF 

X2PKW 

X2PRH 

X2PST 

X2RTHX= 

X2UNT 

X2WNMN= 

X2WNMX= 

X2.CTL 

X2.DEV 

X2.HLD 

X2.MBS 

X2.MRT 

X2.MWS 

X2.RTR 

X2.UNT 

ZF.C0U= 

ZF.DDM= 

ZF.i)IA= 

ZF.DLC= 

ZF.DV?= 

ZF.IN1= 

ZF.KMX= 

ZF.LLC= 

ZF.LHC= 

ZF.MAN= 

ZF.MFL= 

ZF.MrM= 

ZF.MUX= 

ZF.PSE= 

ZF.SLI= 

ZF.T1H= 

ZF.X3P= 

ZS.ASN= 

ZS.BSY= 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN  = 


OOOOOOR 

00M30 

OOOOOOR 

OOOOOORG 

000036R 

OOOOOORG 

001130 

000003R 

000001 

000007 

000244R 

00021 6R 

000614R 

000454R 

000510R 

000404R 

000550R 

000274R 

001000 

000001 

004000 

000002 

100000 

040000 

000020 

000004 

000100 

020000 

000010 

000400 

000040 

002000 

010000 

000200 

000000 

100000 

140000 

000014 

000016 

000000 

000010 

000016 


002 
003 
002 


Z.LLN 
Z.MAP 
Z.NAM 
Z.PCB 
Z.SCH 
002  $ALPHA= 
$ANY  = 
$BLANK= 
$CAT5  = 
$PJGIT= 
$DNUMB= 
$E0S  = 
$ERR1T= 
$ERR2C= 
$ERR2F= 
$ERR2I= 
$ERR2J 
$ERR2K 
$ERR2L 
$EXIT  = 
$FAIL  = 
$LAMDA= 
$NUMBR= 
$QX2P 
$RAD50= 
SSLTA  = 
$STRNG= 
$SUBXP= 
$X2HLD= 
$X2MBS= 
$X2MRT= 
$X2MWS= 
$X2RET= 
$$$FLG= 
$$$KEY= 
$$$STA= 
$$$TMP= 
.PNUMB= 
.PNUMH= 
.PSTCN= 
.PSTPT= 
.TPARS= 


GX 


000006 

000020 

000004 

000012 

000007 

000022 

000020 

000006 

****** 

000024 

000014 

000012 

******  G, 

******  G. 

******  G: 

******  G 

000004R 

000046R 

000106R 

000000 

177777 

000000 

000002 

000144RG 

000016 

****** 

000004 
000010 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
177777 
000000 
OOOOOC 
OOOOOOR 
******  jX 
******  GX 
******  GX 
******  GX 
******  GX 


GX 


004 
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CFGX3P  -  CONriG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  00 
ERROR  MESSAGES 


-.1 


9  Page  8 


CF2Af 

LOCAL 


85 
86 
87 
88 
89 
90 

91  000012 

92  000046 

93  000122 
9A  000156 
95  000232 
96 

97 

98  000000 


.SBTT!   ERROR  MESSAGES 


ERROR  MESSAGES 

.ENABL 
NTLERS 
NTLERf 
NTLERi 
NTLERS 
NTLER$ 
.DSA8L 

.PSECT 


LC 

,2e,8B,CERR,RTSPC,CFLIN,<default  block  si2e> 

,2D,8,CERR,RTSPC,CFLIN,<Default  block  size  exceeds  maximum> 

,2E,8B,CERR,RTSPC,CFLIN,<default  window  size> 

,2G,8,CERR,RTSPC,CFLIN,<Default  window  size  exceeds  maxinum> 

,2H,8B,CERR,RTSPC,CFLIN,<timer  value> 

LC 


G  2 
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CF2AI 
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rF2Ari  -  INITIAL  CONFIG  flLE  SC  MACF(0  V05.03b  Saturday  29-Jun-85  00:09 

LOCAu  DATA 

78 
79 
80 

81 

82 

03  000000 

8A 

85 

86 

87  000000 

88  000006 

89  000010  OOOGOO 
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;  LOCAL 

.SBTTL 
DATA 

LOCAL 

DATA 

.PSECT 

DATA, 

D 

;•  REMOTE 

NODE 

WME 

NAME: 

RADDR: 

NAMED: 

.BLK8 
.BLKW 
.WORD 

6 

1 
0 

REMOTE  NAME 
REMOTE  ADDRESS 
NAM'^D  DIRECTORY  FLAG 
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»«F1LE»*ID»«CF2AC2 


F     4 


CF2A 
Tabl 


CCCCCCCC   F 

FFFFFFFFF 

222222 

AAAAAA 

CCCCCCCC 

222222 

CCCCCCCC   F 

FFFFFFFFF 

222222 

AAAAAA 

CCCCCCCC 

222222 

22     22 

AA 

AA 

CC 

22     22 

22     22 

AA 

AA 

CC 

22     11 

22 

AA 

AA 

CC 

22 

22 

AA 

AA 

CC 

22 

FFFFFFF 

22 

AA 

AA 

CC 

22 

FFFFFFF 

22 

AA 

AA 

CC 

22 

22 

AAAAAAAAAA 

CC 

22 

22 

AAAAAAAAAA 

CC 

22 

22 

AA 

AA 

CC 

22 

22 

AA 

AA 

CC 

22 

CCCC-CCC    F 

2222222222 

AA 

AA 

CCCCCCCC 

2222222222 

CCCClCCC   f 

2222222222 

AA 

AA 

CCCCCCCC 

2222222222 

SSSSSSS5 

HTTT 

TTTTT 

SSSSSSSS 

TTTTT 

TTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

ssss:c 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

CFPAr?  -  cnNFIG  F!IF    ACTION  ROU  MACRO  V05.05b   Saturday  29-Jun-85   0O:1O 


rF2/ 
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CF2AC3  -  NTLCF2  ACTION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  00:10 
Table  ot  cortents 


5- 
5- 
6- 
7- 
8- 
12- 


53 
64 
96 

123 
193 
3U 


MACRO  DEFINT 
LOCAL  DATA 


IONS 


ERROR  MESSAGES 

TPARS  ACTION  ROUTINES  FOR  BUFSDF 

TPARS  ACTION  routin:<;  for  ROUSDF 

TPARS  STATE  TABLES  -  ROUSDF 
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CF2AC3 

CREATED  BY 

MACRO     ON  29 

-JUN-85 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

SERRYP 

000424 

R 

#6-111 

10-294 

SERRYQ 

000464 

R 

#6-112 

10-285 

SERRYV 

000524 

^ 

#6-113 

SERRYW 

000562 

^ 

#6-114 

9-242 

tERRlT 

r 

****** 

GX 

8-208 

SEXIT 

- 

000000 

#12-319 

SFAIL 

= 

177777 

#12-319 

$GPRM 

r 

****** 

12-319 

SLAMDA 

~ 

000000 

#12-319 

$MUL 

~ 

****** 

GX 

7-164 

7-171 

SNUMBR 

= 

000002 

#12-319 

$RAD50 

- 

000016 

#12-319 

SRDNLY 

= 

* t**** 

12-319 

12-319 

SSTRNG 

= 

000004 

#12-319 

SSUBXP 

= 

000010 

#12-319 

$$$FLG 

- 

177777 

#12-319 

$$$KEY 

~ 

177777 

#12-319 

.AMAXC 

= 

****** 

GX 

•10-291 

.AMAXH 

- 

****** 

GX 

*1 0-282 

.BFPTR 

~ 

****** 

GX 

*7-130 

7-137 

.CCBNM 

= 

****** 

GX 

5-86 

.CC3SZ 

- 

****** 

GX 

5-87 

.HAXC 

~ 

****** 

GX 

•9-222 

.MAXH 

= 

****** 

GX 

♦9-229 

9-230 

.MXPRO 

~ 

****** 

GX 

5-93 

7-157 

.NA 

= 

****** 

GX 

•9-254 

.NBEA 

~ 

****** 

GX 

♦10-274 

.NN 

■z 

****** 

GX 

♦9-218 

9-245 

.NTPSZ 

- 

****** 

GX 

•7-187 

.PNUMB 

~ 

****** 

GX 

♦7-136 
9-254 
11-303 

7-140 

10-267 

11-306 

.PNUMH 

- 

****** 

GX 

9-237 

.RDBNM 

- 

****** 

GX 

5-88 

7-163 

.RDBSZ 

= 

****** 

GX 

5-89 

7-156 

.RDBTH 

= 

****** 

GX 

5-92 

.ROUTB 

3 

*****  t 

GX 

•11-306 

.ROUTM 

- 

****** 

GX 

•9-239 

.SDBNM 

= 

*♦»■«** 

GX 

5-90 

7-170 

.SDBSZ 

- 

****** 

GX 

5-91 

7-167 

.TPARS 

****** 

GX 

8-202 

F     6 

PAGE   2 

CREF       04.00 


CF2A( 

MACKC 

MACRC 

CALL 

EMSGl 

FLTDf 

NTLEF 

RESM^ 

RETC 

RETUF 

SAVM/ 

SWS^> 


12-319 


♦7-144 


♦7-159 


10-265 

9-218 
10-271 


7-153 


7-161 


11-298 

9-222 
10-274 


7-168 


9-223 
10-279 


9-229 
10-282 


9-239 
10-288 


9-247 
10-291 


9-251 
11-300 


rRF4TFn   RY      MAfRO      ON   29-JUN-85   AT    00:10 
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G    6 


CF2AC^ 

CREATED  BY 

MACRO     ON  29- 

JUN-85  AT   00 

11           PAGE 

MAChO   CROSS 

RE 

ERENCE 

CREF 

MACRO  NiAME 

REFEREI^CES 

CALL 

9-183 

9-184 

9-191 

9-207 

EMSGSR 

#5-61 

8-139 

8-158 

8-159 

FLTDFt 

#5-61 

5-63 

NTLERt 

#5-61 

7-104 

7-105 

7-106 

RESMAP 

#5-72 

9-2H 

RETC 

#5-61 

9-186 

RETUR^J 

8-135 

8-153 

9-215 

9-218 

SAVMAP 

#5-68 

9-188 

SWS^KS 

9-^83 

F     7 


04.00 


CF2A( 
CRFNi 


9-213 
9-222 

7-107 


,F  II  F.t  in«.rF?Ar5 
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Cf2AC5  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:11 
CRFNBK;  -  CREATE  FILENAME  DESCRIPTOR  BLOCK 
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CF2Ai 
LOCAl 


320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
354 
335 
336 

337  000502 

338  000510 

339  000516 
340 

341  000520 

342  000526 

343  000534 
344 

345  000536 

346  000544 
'   000552 


347 
343 


000554 
000562 
000570 


i. 

33. 

352 

353  000572 

354  000600 
355 

356  000606 

357  000612 

358  000616 
359 

360  000620 

361  000624 
362 

363  000626 

364 

365 

366  000634 

367  000640 

368  000644 

369  000650 

370  000654 

371  000656 
372 

373  000662 

374  000666 

375  000672 

376  000674 


012767 
052767 
000433 

012767 
052767 
000424 

012767 
052767 
000415 

012767 
052767 
000406 

012767 
052767 


103006 


103003 


.SBTTL  .FLBKO  -  F.LE  NAME  BLOCK  PROCESSING 

.ENABL  LS8 

.FLBKO  -  FILE  NAME  BLOCK  PROCESSING  ROUTINE 
INPUTS  - 


OUTPUTS  - 


PARSED  FILESPEC  LOCATED  IN  DEVBUF ,UICBUF,FILBUF 


IF  FNB  CURRENTLY  EXISTS  -  USAGE  COUNT  INCREMENTED 
IF  NOT  -  NEW  FND  CREATED  AND  LINKED 


000040 
000400 


000042 
001000 


000044 
002000 


000046 
004000 


000050 
010000 


OOOOOOG  .FLBKO: 
OOOOOOG 


OOOOOOG  .FLBK1: 
OOOOOOG 


OOOOOOG  .FLBK2: 
OOOOOOG 


OOOOOOG  .FLBK3: 
OOOOOOG 


OOOOOOG  .FLBK4: 
OOOOOOG 

5$: 


:MOV 
BIS 
BR 

:MOV 
BIS 
BR 

:MOV 
BIS 
BR 

:MOV 
BIS 
BR 

:MOV 
B]S 

CALL 
CALL 
BCC 

CALL 
BCC 


017746  OOOOOOG 

016646  000004 

012600 

105260  000002 

016746  OOOOOOG 

012600 

056760  OOOOOOG  000002 


10$: 


#S.SEC,SEROFF 

#SF.SEC,SERFLG 

5$ 

#S.TER,SEROFF 

#SF.TER,SERFLG 

5$ 

#S.L0A,SER0FF 

*SF.LOA,SERFLG 

5$ 

#S.DIA,SEROFF 

#SF.DIA,SERFLG 

5$ 

#S.DUM,SEROFF 
#SF.DUM,SERFLG 

SET8LK 
SRHfNB 
10$ 

CRFNBK 
10$ 


EMSG$R  FS 


SWSTK$ 

MOV 

MOV 

CALL 

MOV 

INC8 

MOV 
CALL 
MOV 
BIS 


SETST 

aKSAR5,-(SP) 

4(SP),-(SP) 

$CEA."; 

(SP)+,RO 

F.USE(RO) 

SERCUR,-(SP) 

$CEACX 

(SP)t,RO       , 

SERFLG,S.-.AG(RO) 


SAVE  FILENAME  LIST  OFFSET 
SET  SECONDARY  BOOT  FILE  FLAG 
CONTINUE 

SAVE  FILENAME  LIST  OFFSET 
SET  TERTIARY  BOOT  FILE  FLAG 
CONTINUE 

SAVE  FILE  NAME  LIST  OFFSET 
SET  LOAD  FILE  FLAG 
CONTINUE 

SAVE  FILE  NAME  LIST  OFFSET 
SET  DIAGNOSTIC  FILE  FLAG 
CONTINUE 

SAVE  FILE  NAME  LIST  OFFSET 
SET  UPLINE  DUMP  FILE  FLAG 

SET  UP  LOCAL  COPY  OF  FNB 
SEARCH  FOR  EXISTING  FNB 
IF  FOUND  -  BRANCH 

IF  NOT  -  CREATE  NEW  FNB 

IF  ALLOCATION  SUCCESSFUL  -  BRANCH 

FILE  NAME  BLOCK  ALLOCATION  FAILURE 


ENTER  SYSTEM  STATE 

SAVE  MAPPING 

SET  UNMAPPED  ADDRESS  OF  FND  (USER  RO) 

GET  ACCESS  TO  FNB 

GET  MAPPED  ADDRESS 

INCREMENT  FNB  USAGE  COUNT 

SET  UNMAPPED  ADDRESS  OF  CURRENT  SERVICE  BLOCK 
ACCESS  SERVICE  BLOCK 
GET  MAPPED  ADRESS 
;  SET  UP  FLAGS  WORD 


rconrR  _  rnwri^  Piic  ariinM  onii  MATRn  vOSD^h  Saturrtrtv  29-.)un-85 


00:11 
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CF2AC6  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:11 
LOCAL  DATA 


Page  6 


73 

79 

80 

81 

82 

83  000000 

84 

85 

86 

87 

88  000000 

89  000003 

90  OOOOOA 
91 

92 
93 
94 
95 
95  000006 

97  000010 

98  000012 

99  OOOOU 
TOO  000016 


.SBTTL 

•  »** 

•  LOCAL  DATA 
■  *** 


LOCAL  DATA 


.PSECT  DATA,D 


LINE  IDENTIFICATION 

NAME:   .BLKB  3 

CTL:    .8LKB  1 

UNT:    .BLKB  1 
.EVEN 


STRING  MANIPULATION  FIELDS 


STRAD 
STRMX 
STRCT 
STRPT 
STRXX 


.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 


DDM  NAME 

CONTROLLER  NUMBER 
UNIT  NUMBER 


FIELD  ADDRESS 

MAXIMUM  LENGTH 

COUNT  FIELD  ADDRESS 

POINTER  TO  "<"  WITHIN  RECORD  BUFFER  AREA 

DUMMY  COUNT  FIELD 


CF2. 

MACI 

MACI 

ASL' 
CAL! 
DHBI 
EMSi 
NTL 
RESi 
RESI 
RETi 

SAV; 
SAV 
SLT 
SOB 
SWS 


unc    mi^    c  -I*- 


..^^w     0Q_  I 


§     9 

nn.  1 1 


F2AC6     CREATED  BV 
MACRO  CROSS  REFERENCE 


MACRO  ON  29-JUN-85  AT  00:12 


PAGE 
CREF 


F  10 

OA.OO 


MACRO  NAME 

REFERENCES 

ASL$ 

*5-57 

8-24A 

8-259 

CALL 

8-UO 

8-U2 

8-155 

8-185 

8-191 

9-279 

10-307 

DHBDFS 

*5-57 

5-6A 

EMSGSR 

#5-57 

8-235 

8-271 

9-291 

10-357 

10-384 

11-396 

NTLERS 

#5-57 

7-110 

7-111 

7-112 

7-113 

7-114 

7-115 

RE  SWAP 

#5-57 

#5-72 

RESRG 

#5-57 

8-152 

RETURN 

8-175 

8-224 

8-233 

8-247^ 

8-253 

8-262 

8-269 

10-315 

10-359 

10-380 

11-395 

SAVMAP 

#5-57 

#5-68 

SAVRG 

#5-57 

8-U8 

5LTDF$ 

#5-57 

5-63 

SOB 

8-166 

8-218 

9-290 

10-3?6 

SWSTKS 

8-KO 

8-185 

9-293 


9-3C0 


10-309 


*cri  c*.*ir, **rc:0Ar7 
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L 
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CF2AC7  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:12 
Symbol  table 


Page  7-3 


T$L1FL 

T$LIF0 

TSLIFS 

TSLIN 

T$LIPS 

TSLLD 

TSLLDC 

TSLLDL 

TSLLDO 

TSLLDS 

rSLLEN 

TtuOPR 

TtLTCL 

.  ABS. 


000013 
000C13 
000013 
000000 
000006 
000012 
000045 
000012 
000012 
000012 
0000A6 
000002 
000024 


TSLTIM 

TSLTPR 

TSLTPS 

TSNAPL 

T$NFE 

TSNLEN 

TSNNUL 

TSNOPL 

TSNRNI 

TSNRPL 

TSNRUL 

T$NVR 

TSRPRI 


000026 
OOOOU 
000020 
000004 
000000 
000010 
000002 
000006 
000042 
000005 
000007 
000001 
000040 


T$SVC 

T$T5 

T$T6 

T$$KMG= 

T$$MIN= 

US$CNF= 

US$DIS= 

US$DON= 

US$DSC= 

US$EAC= 

US$WDS= 

\/$$CTR= 

XPTLLN= 


000034 
000030 
000032 
000000 
000000 
000002 
000006 
000000 
000004 
000012 
000010 
001000 
»«****  GX 


X$$DBT= 

000000 

$ERRXC= 

****** 

(iX 

$ERRXE= 

****** 

rx 

$ERRXJ= 

****** 

GX 

$ERRXK= 

****** 

GX 

$FUNC  = 

****** 

GX 

SMAPX  = 

****** 

GX 

$MUL  = 

****** 

GX 

$UMRAL= 

****** 

GX 

$UMRPT= 

****** 

GX 

$$SHFT= 

000001 

.ALLOC= 

****** 

GX 

.BRAD  = 

****** 

GX 

000124 
001206 
E-rors  detected: 


000 
001 
0 


(RU,I,GBL,ABS,OVR) 
CRU,1,LCL,REL,C0N) 


CF 
PA 


FUDGE= 

****** 

GX 

HOME  = 

****** 

GX 

NA   = 

****** 

GX 

NBEA  = 

****** 

GX 

NN   = 

****** 

GX 

NOMAP=: 

GX 

NTPSZ= 

****** 

GX 

PCS  = 

****** 

GX 

PNAM1= 

****** 

GX 

PNAM2:= 

****** 

GX 

PNUMB= 

****** 

GX 

UMRFL= 

****** 

GX 

»**   Assembler   statistics 

Work      tile     reads:  2 

Work      file  writes:  4 

Size  of   work    file:  17167  Words      (   68  Pages) 

Size  of   core  pool:  17608  Words      (   67  Pages) 

Operating     system:  RSX-11M/PLUS 

Sy^CF2ACAV2![132,134]CF2AC7/CR/-SP=SY:[1,1]RSX,»1CM.SML/ML,[130,110]NETLIS/ML,[130,10]RSXMCM/PA:1,C132,10]CF2AC7 


_Qc:    AT    on. 10 
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CF2AC8  -  rONFlG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:12 
PAS  -  SERVICE  BLOCK  PASSWORD 
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CF 


252 
255 
25A 
255 
256 
257 
258 
259 
260 
261 
262 
263 
26'i 

265  000460 

266  000462 

267  000464 

268  000470 

269  000474 

270  000500 
271 

272  000502 

273  000506 
274 

275  000512 

276  000516 

277  000522 
278 

279  000524 

280  000526 

281  000530 

282  000532 

283  000536 
284 

285  000542 

286  000546 

287  000550 

288  000554 
289 

290  000556 

291  000560 

292  000562 

293  000564 
294 

295  000566 

296  000570 

297  000574 

298  000576 

299  000600 
300 

301  000602 

302 

303 

304 

305 

306 

307  000604 

308  0U0606 


.SBTTL  PAS  -  SERVICE  SLOCK  PASSWORD 


PAS  -  SERVICE  BLOlK  PASSWORD 

INPUTS  - 

.PSTPT  -  ADDRESS  OF  PARSED  STRING 
.PSTCN  -  SIZE  OF  STRING 

OUTPUTS  - 

SERPAS  -  CONTAINS  SERVICE  BLOCK  PASSWORD 


010446 
010346 
012700 
112720 
020027 
001373 

012700 
066700 

016701 
016702 
010104 

112240 
005301 
001375 
012702 
012700 


110312 

000241 

006303 
006303 
006303 
006303 

150322 
022702 
001362 
012dO3 
012604 


005003 
112003 


OOOOOOG 

000060 

OOOOOOG 


OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 


PAS: 
1$: 


10$: 


20$: 


OOOOOOG 


MOV 

MOV 

MOV 

MOVB 

CMP 

BNE 

MOV 
ADD 

MOV 
MOV 
MOV 

MOVB 

DEC 

BNE 

MOV 

MOV 

CALL 
MOVB 
CALL 
CLC 

ASL 
ASL 
ASL 
ASL 

Bise 

CMP 
BNE 
MOV 
MOV 

RETURN 


HEXIND  -  CONVERT  FROM  HEX 


HEXIND:  CLR     R3 

MOVB    (R0)+,R3 


R4,-(SP) 

R3,-(SP) 

#HEXSTR,RO 

#'0,(R0)+ 

RO,#ENDHEX 

1$ 

#HEXSTR,RO 
. PSTCN, RO 

. PSTCN, R1 
. PSTPT, R2 
R1,R4 

(R2)+,-(R0) 

R1 

10$ 

#SERPAS,R2 

#HEXSTR,RO 

HEXIND 

R3,(R2) 

HEXIND 


R3 
R3 
R3 
R3 

R3,(R2)t 

#ENDPAS,R2 

20$ 

(SP)+,R3 

(SP)+,R4 


SAVE  REG 

SAVE  TPARS  REG 

GET  BUFFER  ADDRESS 

FILL  IN  DEFAULT  VALUES 

END  OF  BUFFER  ? 

IF  NOT  -  BRANCH 

GET  TEMPORARY  BUFFER  ADDRESS 
STORE  STRING  IN  REVERSE  ORDER 

GET  SIZE  OF  STRING 
GET  STRING  ADDRESS 
SAVE  STRING  LENGTH 

STORE  STRING  IN  WORK  BUFFER 

COUNT  ONE  LESS 

IF  MORE  -  BRANCH 

GET  PASSWORD  BUFFER  ADDRESS 

SET  START  ADDRESS  OF  PASSWORD 

CONVERT  FROM  HEX 

STORE  RESULT  IN  PASSWORD  BUFFER 

CONVERT  FROM  HEX 

CLEAR  C-BIT 

POSITION  VALUE 


STORE  RESULT  IN  PASSWORD  BUFFER 
CHECK  FOR  LAST  CHA  ACTER 
IF  MORE  -  BRANCH 
RESTORE  REG 
RESTORE  REG 


INIT  REG 

GET  CHARACTER 
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r 
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cf: 

SEI 


3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2k 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 


.TITLE   Cf2AC9  -  CONFIG  FILi  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 


IS  SUBJECT  TO  CHANGE   WITHOUT  NOTICE 
AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 


THE  INFORMATION  IN  THIS  SOFTWARE 
AND   SHOULD  NOT  BE   CONSTRUED 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION; 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

3.00  14-APR-83 

PARSDF  ACTION  ROUTINES 

4.00  07-NOV-83 

DECNET-llM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Mi'cro/RSX  VI. 0 


OF   ITS 


G  13 
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SERSDF    ACTION   ROUTINES 
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CF2 
MAC 


456 

A57  001066 

A58  001066 

A59 

A60  001066 

A61   001066 

A62 

A63  001066 

A6A  001066 

A65 

A66  001066 

A67  001066 

A68  001066 

469  001066 

A  70 

A71   001066 

A72  001066 

A73 

A7A  001066 

A75  001066 

A76 

A77  001066 

A78  001066 

A79 

A80 

A81 


STATES  XPTDf 

TRANS  XLLCSDFX 

STATES 

TRANS  51XPTX 

STATES 

TRANS  <',> 

STATES  XPTDF1 

TRANS  'l,XPTDF1 

TRANS  SRAD50,XPTDF1 

TRANS  <■,> 

STATES 

TRANS  SNUM8R 

STATES 

TRANS  <•,> 

STATES 

TRANS  SNUM8R,SEX1T,XPCIR 
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r 
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CF2DFC  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-35  00:U  Page  5 
MACRO  OEF  IN1TI0^^S 


cf; 


45 

46 

A7 

A8 

49 

50 

51 

52 

53 

54 

55 

56 

57  000000 

^8 

59  000000 


.SBTTL  MACRO  DEFlNITIu'iS 

LOCAL  MACROS 

.MCALL   EMSG$R,DHBDF$,1 STATS, STATES, TRAN$ 


OFFSET  VALUES 
DH8DFS 
.PSECT 


DEFINE  DECNET  HOME  BLOCK  OFFSETS 
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CF2UMR   -  nn    INITIALIZATION  UMR  MACRO    /05.03b   Saturday  ?9-Jun-85  00:U 


000K4 


000150 
000152 
000156 
000160 
000162 


111  000132 

112  000136 

113  00CU2 
IK 

115 
116 
117 
118 
119 
120 
121 
122 
123 
12A 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 

146  000164 

147  000170 

148  000174 

149  000200 

150  000204 

151  000210 
152 

153 
154 
155 

156  000212 

157  000220 
158 

159 
160 
161 
162 
163 

164  000220 

165  000222 

166  000226 

167  000232 


110462 
010200 


OOOOOOG 


m\IB 

SWSTKS 

MOV 


R4,M.BFVH(R2) 

40§ 

R2,R0 


.IF   DF      R$$MPL 


25$: 


103002 
005066 

005703 
001416 


000010 


30$: 
40$: 


50$: 


010267 
016203 
162703 
072327 
010367 
000415 


OOOOOOG 

OOOOOOG 

170200 

000005 

OOOOOOG 


MOV 

MOV 

TSTB 

BEQ 

MOV 

MOV 

CALL 

MOV 

.Iff 

CALL 

.ENDC 

BCC 

CLR 

RETURN 

TST 

BEQ 

.IF  DF 
TST8 

BEQ 
RETURN 

.ENDC 

MOV 
MOV 
SUB 
ASH 
MOV 
BR 


aKSAR5,-(SP) 

ASUMR,-(SP) 

SNCPU 

25$ 

6(SP),aKSAR5 

*$ASUH1,(SP) 

aiSP)*- 

(SP)t,aKSAR5 


SASUMR 


30$ 
10(SP) 

R3 
111$ 

R$$MPL 
aNCPU 

50$ 


R2..mRHf\ 

M.UMRA(R2),R3 

#U6MPR,R3 

#5,R3 

R3,.PUMR 

UMRLD 


ERROR  CONDITIONS 


101$: 
111$: 


010200 
012701 


OOOOOOG 


EMSG$R 
.IF   Df 

TSTB 
BNE 

.ENDC 

MOV 
MOV 

SWSTK$ 
CALLR 


XL 
R$$MPL 

aNCPU 
112$ 


R2,R0 
#M.LGTH,R1 
112$ 
aOEACB 
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ENTER  KERNEL  MODE 
copy  UMR  SLOCK  ADDRESS 


SAVE  CURRENT  MAPPING 

ASSUME  SINGLE  PROCESSOR  SYSTEM 

IS  THIS  A  MULTI-PROCESSOR  SYSTEM 

IF  EQ,  NO 

MAP  TO  CPU  PARTITION  (USER  RO) 

USE  OUR  OWN  UMR  ASSIGNMENT  ROUTINE 

ASSIGN  THE  UMR'S 

RESTORE  PREVIOUS  MAPPING 


;*  TRY  TO  ASSIGN  CONTIGUOUS  UMR'S 


♦  if  cc,  success 

♦  indicate  error  by  zeroing  user  mode  r3 

♦  Back  to  user  mode 
were  umr's  assigned? 
if  zero,  no 


IS  THIS  A  MULTIPROCESSOR  SYSTEM 

IF  EQ,  NO 
ELSE,  LEAVE  NOW 


SAVE  UMR  BLOCK  ADDRESS 

CALCULATE  AND  SAVE  EVENTUAL  $PUMR  VALUE 


LOAD  UMR'S  AND  RETURN 


UMR  BLOCK  ALLOCATION  FAILURE 


IS  THIS  A  MULTI-PROCESSOR  SYSTEM  ? 
IF  NE,  YES  ..  LET  NTLUNL  DE-ALLOCATE 


COPY  UMR  BLOCK  ADDRESS 
UMR  BLOCK  LENGTH 

*  ENTER  KERNEL  MODE 

•  DE-ALLOCATE  UMR  BLOCK 


G  16 


1 
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Symbol   table 

Size  ot   core  pool:    16552  Words      (   63  Pages) 
Operating     system:   RSX-llM/PLUS 

SY:CFGX2p!v2;[°3^?n4KFGX2P/CR/-SP=SV:[l,l]RSXMCM.SML/ML,[130J10]NETLIB/|V|L,[130JO]RSXM 


CFGX3! 
$QX3P 


CFGX2P 


CREATED  BY     MACRO     ON  29-,)UN-85   AT  00:08 


PAGE    1 


H     1 


CFGX3 
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$Q)(5P  -  LOOK  FOR  XBPSDF  MACRO 
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CF2A( 
ERROf 


100 

.SBTTL 

$QX3P   -   LC 

OK   FOR 

X3P$DF  MACRO 

101 

1C2 
103 
104 

+ 

$QX3P 

-  LOOK 

FOR  X3P$DF 

MACRO 

105 

106 

INPUTS: 

107 

NONE 

108 

109 

OUTPUTS: 

110 

ALL   REGISTERS   DESTROYED 

111 

112 
113 

000000 

012705 

000000' 

;QX3P:: 

my 

#X3PDF,R5 

STATE   TABLE   ADDRESS 

IK 

000004 

005001 

CLR 

Rl 

FULL   KEYWORD  MATCH  LENGTH 

115 

000006 

012702 

OOOOOO' 

MOV 

#X3PKW,R2 

KEYWORD    TABLE   ADDRESS 

116 

000012 

016703 

OOOOOOG 

MOV 

CFGSZ,R3 

RECORD  LENGTH 

117 

000016 

012704 

OOOOOOG 

MOV 

#CFGBF,R4 

RECORD  BUFFER  ADDRESS 

118 

000022 

005067 

OOOOOOG 

CLR 

SYNERR 

CLEAR  SYNTAX   ERROR   FLAG 

119 

000026 

CALL 

.TPARS 

GO  DO  THE   PARSE 

120 

000032 

103003 

BCC 

20$ 

IF    CC,    FOUND  WHAT  WE   WERE   LOOKING  FOR 

121 

00003A 

005367 

OOOOOOG 

DEC 

SYNERR 

DID   SYNTAX   ERROR   OCCUR? 

122 

000040 

001401 

BEQ 

101$ 

IF   EQ,    YES 

123 

000042 

?0$: 

RETURN 

124 

125 
126 
127 

•    ERRORS 

000044 

01$: 

EMSGSR 

IT 

SYNTAX   ERROR 

H  2 
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CF2A 


G  3 
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ERROR  MESSAGES 


CF2/ 
Tab 


91 
92 
93 
9^ 
95 
96 
97 


.SBTTL  ERROR  MESSAGES 


99  000012 

100  000050 

101  000132 

102  00016A 

103  000222 
10A 

105 
106 
107 
108  000000 


ERROR  MESSAGES 

.ENA8L 
.NLIST 

LC 
BEX 

NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 

,VZ, 
.YV, 
,YX, 
,YV, 
,YN, 

.DSABL 
.LIST 
.EVEN 
.PSECT 

LC 
BEX 

!,CERR,RTSPC,,<Ulegal  area  address> 

i,CERR,RTSPC,,<Obiect   or  Remote  block   allocation   failure> 
!,CERR,RTSPC,,<Ulegal  node  name> 
i,CERR,RTSPC,,<Ulegal  node  address> 
!,CERR,RTSPC,CFLIN,<Illegal   counter   timer   value> 


H  3 


CF2AC1 
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CF2AC2  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:10 

Table  of  contents 

5-  55    MACRO  DEFINTITIQMS 

6-  75    LOCAL  DATA 

7-  91    ERROR  MESSAGES 


CF2* 


H  A 
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CF?, 


CF2AC3 


NTLCF2  ACTION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85   00:10     Page  4 


1 
2 
3 

5 

6 

7 

8 

9 

10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2-^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AC 

42 
43 
44 
45 
46 
A7 
48 
49 
50 
51 


.TITLE  CF2AC3  -  NTLCF2  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  C09P0RATI0N,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-llM-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  VI. 1 

4.00  7-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-PIus  V3.0 
DECnet-Micro/RSX  Vl.O 


CF2/ 

MACF 

MACF 

ASL1 
BFT/ 
CALl 
DBG' 
EMS( 
EMS( 

1ST; 

mtr; 

NTLi 

RETl 

SOB 

STA- 

TRAI 


H     5 
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•  «F 


CF2AC5 

CREATED   BY      MACRO     ON  29- 

■JUN-85  AT   00 

10           P 

MACRO   CROSS 

REFERENCE 

C 

MACRO  NAME 

REFERENCES 

ASL$ 

#5-59 

BFTABS 

#5-75 

5-86 

5-87 

5-88 

CALL 

7-152 

7-164 

7-171 

8-202 

DBGTP$ 

#12-319 

EMSGS 

#5-59 

EMSGtR 

#5-59 
10-29A 

7-yk7 
11-309 

7-191 

8-208 

ISTATS 

#5-59 

12-319 

HTRAMS 

#12-319 

NTLERS 

#5-59 

6-104 

6-105 

6-106 

6-113 

6-114 

6-115 

6-116 

RETURN 

7-131 

7-145 

7-189 

8-206 

10-283 

10-292 

11-307 

SOB 

7-181 

STATES 

#5-59 

12-321 

#12-323 

#12-325 

#12-339 

#12-341 

#'2-343 

#12-345 

TRANS 

#5-59 

#12-322 

#•2-324 

#12-326 

#12-340 

#12-342 

#12-344 

#12-346 

G  6 

PAGE  3 

CREF   04.00 


5-89 


9-227 


6-107 
9-220 


#12-327 
#12-347 
#12-328 
#12-348 


5-90 


9-234 


6-108 
9-225 


#12-329 
#12-349 
#12-330 
#12-350 


5-91 


9-242 


6-109 
9-232 


#12-331 
#12-351 
#12-332 
#12-352 


5-92 


9-257 


6-110 
9-240 


#12-333 
#12-353 
#12-334 
#12-354 


5-93 


10-277 


6-111 
9-255 


#12-335 
#12-355 
#12-336 
#12-356 


10-285 


6-112 
10-275 


#12-337 
#12-359 
#12-338 


nFIl  F«»ID»«CF?AC4 


H     6 


»FILE««10««CF2AC5 


G     7 


CF2AI 
.FLBI 


CCCCCCCC    F 

FFFFFFFFF 

222222 

AAAAAA 

CCCCCCCC 

5555555555 

CCCCCCCC    F 

FFFFFFFFF 

222222 

AAAAAA 

CCCCCCCC 

5555555555 

22     22 

AA 

AA 

55 

22     22 

AA 

AA 

55,. „ 

22 

AA 

AA 

555555 

22 

AA 

AA 

555555 

FFFFFFF 

22 

AA 

AA 

55 

FFFFFFF 

22 

AA 

AA 

55 

22 

AAAAAAAAAA 

55 

22 

AAAAAAAAAA 

55 

22 

AA 

AA 

55     55 

22 

AA 

AA 

55     55 

CCCCCCCC    F 

2222222222 

AA 

AA 

CCCCCCCC 

555555 

CCCCCCCC    F 

2222222222 

AA 

AA 

CCCCCCCC 

555555 

ssssssss 

rrTTTFTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

rnMCir.    CMC     AfTinM    Dnii    MAfCn    \/n^    O'Kh    <^AYiirdA\ 


H    7 

?Q-  ii,n-as  nnni 


CF2AC5  - 

CONFK 

.FLBKO  - 

FILE  f 

377 

000702 

378 

000706 

379 

380 

000712 

381 

382 

000716 

383 

384 

385 

000720 

386 

000726 

387 

000732 

388 

389 

000736 

390 

000742 

391 

000746 

392 

393 

000752 

394 

000756 

395 

000762 

396 

397 

000766 

398 

000772 

399 

000776 

400 

401 

001002 

402 

403 

404 

405 

CONFIG  FILE  ACTION  ROU  MACRO  V05.03b 
FILE  NAME  BLOCK  PROCESSING 


066700  OOOOOOG 
016610  000004 


Saturday  29-Jun-85  00:11  Page  12-1 


CF2A 
ERROI 


ADD     SEROFF.RO 
MOV     4(SP),(R0) 


POINT  AT  FILE  NAME  LIST 

STORE  UNMAPPED  ADDRES  OF  FILE  BLOCK 


012677  OOOOOOG 


012767  OOOOOOG  OOOOOOG  SETST: 

005067  OOOOOOG 

005067  OOOOOOG 

012700  OOOOOOG 

012701  OOOOOOG 


012700  OOOOOOG 

012701  OOOOOOG 


012700  OOOOOOG 

012701  OOOOOOG 


000001 


MOV 

(SP)+,aKSAR5 

;  RESTORE  MAPPING 

RETURN 

MOV 
CLR 
CLR 

#FNBUFF,STRPT 

STRSIZ 

FNBLN 

;  RESET  START  OF  BUFFER 

;  RESET  STRING  COUNT 

;  RESET  FILE  NAME  LENGTH 

MOV 
MOV 
CALL 

#DEVBUF,RO 

#DVSZ,R1 

INI8UF 

;  INIT  DEVICE  BUFFER 
;  SIZE  OF  BUFFER 
;  INIT  BUFFER 

MOV 
MOV 
CALL 

#UJC8UF,R0 

#UISZ,R1 

INI8UF 

;  INIT  UK  BUFFER 
;  SIZE  OF  BUFFER 
;  INIT  BUFFER 

MOV 
MOV 
CALL 

#FIL8UF,R0 

#FLSZ,R1 

INI8UF 

;  INIT  FILE  NAME  BUFFER 
;  S'ZE  OF  BUFFER 
;  INIT  BUFFER 

RETURN 

.DSA8L 

LSB 

.END 

H  8 
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ERROR  MESSAGES 
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102 
105 
104 
105 
106 
107 
108 
109 

110  000020 

111  000056 

112  000112 

113  000K2 
1H  000176 
115  00025A 
116 

117 
118 
119 
IPC  000000 


.SBTTL  ERROR  MESSAGES 


ERROR  MESSAGES 

.ENA8L  LC 

.NLIST  BEX 

NTLERS  ,XN,8,CEPR,RTSPC,CFLIN,<Process  Not  In  System> 

NTLERS  ,XP,8,CERR,RTSPC,CFLlN,<Line  Not  In  System> 

NTLERS  ,XT,8,CERR,RTSPC,CFLIN,<String  Too  Long> 

NTLERS  ,XiJ,8,CERR,RTSPC,CFLIN,<megal  njde  number> 

NTLERS  ,YM,8,CERR,RTSPC,,<Station  not  in  system> 

NTLERS  ,L1,8,CERR,RTSPC,,<IUegal  logging  «;tate> 

.LIST  BEX 

.DSA8L  LC 
.EVEN 
.PSECT 


H     9 
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L_ 


•♦FlLE*nD<'»CF2AC7 


G  10 


CCCCCCCC    F 

F  F  F  F  r  F  "  F 

222222 

AAAAAA 

CCCCCCCC 

77177777 

CCCCCCCC    F 

FFFFF^FFF 

222222 

AAAAAA 

CCCCCCCC 

77777777 

22     22 

AA 

AA 

77 

22     22 

AA 

AA 

77 

22 

AA 

AA 

77 

22 

AA 

AA 

71 

FFFFFFF 

22 

AA 

AA 

71 

FFFFFFF 

22 

AA 

AA 

71 

22 

AAAAAAAAAA 

17 

22 

AAAAAAAAAA 

71 

22 

AA 

AA 

17 

22 

AA 

AA 

77 

CCCCCCCC    F 

2222222222 

AA 

AA 

CCCCCCCC 

77 

CCCCCCCC    F 

2222222222 

AA 

AA 

CCCCCCCC 

77 

LL 

ssssssss 

fTTTTTTTTT 

LL 

SSSSSSS5 

TTTTTTTTTT 

LL 

ss 

LL 

S5 

LL 

SS 

LL 

SS 

_L 

SSSSSS 

LL 

ssssss 

LL 

SS 

LL 

ss 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

cf; 
SY^ 

SYf 

ALC 
A$l 

cr; 

DE/ 
ECl 
ECl 
E$f 
ESr 
E$r 
E$r 
E$r 
E$r 
ES( 
ESI 
ESI 
E$l 
ESI 
ESI 
FS' 
ESI 
ESI 
ESI 
ESI 
ES 
FE 
fE 
FM, 
IS 
K6 
LO 
LO 
LO 
LO 
LO 
LO 
LO 
LO 
LO 
LR 
LR 
LR 
LR 
LR 
LR 
LR 
LR 
LR 
LR 
LS 
LS 
LS 
LS 


kAC      A7k      C  - 


H  10 


r: 
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CF2AC7     CREATED  BY  MACRO  ON  29-JUN-85  A^  00:12 
SYMBOL  CROSS  REFERENCE 


6  11 

PAGE  1 

CREF   OA.OO 


CF 


OOOOOA 
000756  R 

=  ****** 


SYMBOL  VALUt 


ALOCB 

AtLEN 

CRSUB 

DEACB 

ECLLLN 

ECLNOD 

ESNBR 

ESNBS 

ESNCR 

ESNCS 

ESNIC 

ESNLEN 

ESNLLA 

ESNLNK 

ESNML 

ESNMR 

ESNMS 

ESNNOD 

ESNRTP 

ESNSEG 

ESNTIM 

ESNUSE 

ESSTRT 

FE.EXT 

FE.PLA 

FMASK 

I$$AS 

K6TMP 

LO.CON 

LO.CSR 

LO.CTL 

LO.LIN 

LO.PAR 

LO.PRI 

LO.SCR 

LO.STA 

LO.VCT 

LR.AST 

LR.CIR 

LR.CTL 

LR.EFN 

LR.lIN 

LR.PRM 

LR.PRO 

LR.STS 

LR.TCB 

LR.UNT 

LS.AST 

LS.CEX 

LS.CIR 

LS.CXO 


GX 


-  ****** 
OOOOU 
000020 
00003A 
000036 
0000A4 
000050 
000012 
000000 
0000'.  0 
000024 
000030 
000002 
000042 
000005 
000010 
000046 
000004 
000006 

=  ****** 

-  ****** 
r  ****** 

-  ****** 

000000 
000006 
000006 
000014 
000004 
000010 
000010 
000014 
000015 
000012 
000026 
000002 
000004 
000004 
000C02 
000030 
000002 
000000 
000002 
000005 
=  100000 
=  000001 
=  000010 
=  010000 


GX 
GX 
GX 


GX 
GX 
GX 


REFERENCES 

6-214 

6-116 

6-218 

7-408 

6-149 

6-162 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 

6-177 

6-268 

6-177 

5-60 
#6-77 
#5-6? 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 


#7-344 


6-163 


6-258 
6-258 


6-268 


r-  r  ~i  n  r  ~? 


MA  ran 


TQ_  iiiM-Qc;  AT  nn.  1 :? 
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r 
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PAS  -   SERVICE   BLOCK   PASSWORD 


50:12 


CF 


509  000610  052703  000100 

310  0006K  001003 

311  000616  162703  000060 

312  000622  000402 

313  00062A  162703  00006^ 
31A  000650 


BIT 

#LET,R3 

BNE 

10$ 

SUB 

#'0,R3 

BR 

20$ 

10$: 

sue 

#<'A-10.>,R3 

20$: 

RETURN 

CHECK  FOR  LETTER 

If  VES  -  BRANCH 

CONVERT  TO  BINARY  VALUE 

CONTINUE 

CONVERT  HEX  DIGIT  TO  BINARY 


1 


uf\ti   n7k    c  if. ., 


H  12 

.8^  nn.i5 


L 


L 
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MACRO  DEFINITIONS 


00:13 


49 
50 
51 
52 
53 
5A 
55 


3  Page  5 
SBTTL  MACRO  DEFINITIONS 


cf; 

SEI 


LOCAL    MACROS 

.MCALL      EMSG$R,NTLER$,RETC,FNBDF$,DHBDF$,SAVMAP,RESMAP,SERDF$ 
.MCALL      PDVDFS, SLIDES,  I  STAT$,STATi:$,rRAN$ 


H  13 


n    r 


L 
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SERSDF    ACTION   ROUTINES 


G  K 

00:1 


3  Page  12 


CF^ 
MAC 


A83 
484 
485 
486 

487  001066 

488  001066 

489  001066 

490  001066 

491  001066 

492  001066 

493  001066 

494  001066 

495  001066 
496 

497 


OECSDF  MACRO  STATE  TABLE  FOR  PHASE  I  INIT 


STATES 

DECDEF 

TRANS 

XDECSDFX 

STATES 

TRANS 

SNUM8R,,ECLML 

STATES 

TRANS 

<■  .> 

STATES 

TRANS 

SNJMeR,SEXIT,ECLMC 

STATES 

000001 


.END 


H  K 


r 


L 


CF2DEC   -   ro!JFIG  FILE   ACTION  ROU  MACRO  V05.03b   Saturday  29-Jun-85 
MACRO   DEFINITIONS 


S'JDEC: 


00:T« 


61 

62  000000 

012705 

000000' 

63  000004 

005001 

64  000006 

012702 

.00000' 

65  000012 

016703 

OOOOOOG 

66  C00016 

012704 

OOOOOOG 

67  000022 

005067 

OOOOOOG 

68  000026 

69  000032 

T03003 

70  000034 

005367 

OOOOOOG 

71  000040 

001401 

72  000042 

73 

74  000044 

75 

MOV 

#DECDF,R5 

CLR 

R1 

rov 

#DECKW.R2 

fOV 

CFGSZ,R3 

MOV 

#CFG8F,R4 

CLR 

SVNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BEO 

101$ 

RETURN 

20$: 

101$:        EMSG$R      IT 
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SET  UP  STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

PARSE  LINE 

IF  SUCCESS  -  BRANCH 

SYNTAX  ERROR  ? 

IF  YES  -  BRANCH 


SYNTAX  ERROR 


CF, 


1 


H  15 


r 


J 


if2om  -   '^H  INlTlALlZAHON  UMR  MACRO  ',05.03b  Saturday  29-Jun-85  00:14  Page  5-2 

112$i   EMSGIR  XM  ;  NOT  ENOUGH  CONTIGUOUS  UMR' S 


168  000J56 
^69 


EMSGIR  XM 

.ENDC   ;  Df  R$$11M 


1 


H  16 


r=Gx2P 

CREATED  BY 

MACRO     ON  29 

-,,UN-85 

AT   00:08 

SVMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

CERR 

r  *» t ♦** 

GX 

8-98 

8-99 

8-100 

CFGBF 

=     ****** 

GX 

9-120 

CFGSZ 

=  ****** 

GX 

9-119 

CFLIN 

=  ****** 

GX 

8-98 

8-99 

8-100 

CHKDEV 

000316 

R 

#11-225 

FMT8B 

r  ****** 

GX 

8-98 

8-99 

8-100 

FM.8B 

=  000000 

#8-98 

#8-99 

#8-100 

I$$AS 

z:  ****** 

5-62 

LF.ACT 

=  100000 

#5-63 

LF.BRO 

=  OOO^iOO 

#5-63 

LF.BWT 

=  000007 

#5-63 

LF.ENA 

=  002000 

#5-63 

LF.LPB 

=  001000 

#5-63 

LF.MDC 

=  000100 

#5-63 

LF.MFL 

=:  OOAOOO 

#5-63 

LF.MTP 

=  000020 

#5-63 

LF.PAC 

=  000200 

#5-63 

LF.RDY 

=  O-iOOOO 

#5-63 

LF.REA 

=  010000 

#5-63 

LF.SER 

=  000040 

#5-63 

LF.TIM 

=  000010 

#5-63 

LF.UNL 

=  020000 

#5-63 

LF.X2P 

=  000000 

#5-63 

LN.CLO 

=  000000 

#5-63 

LN.DUM 

=  000005 

#5-63 

LN.LOA 

=  OOOOOA 

#5-63 

LN.LOO 

=  000003 

#5-63 

LN.OAU 

=  000003 

#5-63 

H     1 

PAGE  1 

CREF        OA.OO 


CFGX3! 
X3P$D 


LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.kRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L .  OWNR 


000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000015 
000012 
177776 
0PO002 
00U004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
OOOOU 
000021 


#5- 
#5- 
#5- 
#5- 
#5- 
#5- 
#5- 
#5- 
#5' 
#5- 
#5- 
#5- 
#5- 
#5- 
#5- 
#5- 
#5- 
#5- 
#5- 
#5- 
#5- 
#5- 
#5- 
#5' 


63 
63 
63 
63 
63 
63 
63 
63 
63 
63 
63 
63 
63 
■63 
■63 
■63 
■63 
•63 
•63 
•63 
•63 
•63 
■63 
•63 


11-231 
11-226 
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CFGX5 


CFGX3P  -  CONFIG  FILE  SCAN 
X3P$DF  STATE  TABLE 

129 

130 

131 

132 

133  000052 

13A 

135 

136 

137  000052 

138  000052 
139 

KO  000052 
Ul  000052 
U2 

H3  000052 
1AA  000052 
U5 

146  000052 
U7  000052 
U8 

149  000052 

150  000l52 
151 

152  000052 

153  000052 
154 

155  000052 

156  000052 
157 

158  000052 
-■59  000052 
160 

161  000052 

162  000052 
163 

164  000052 

165  000052 
166 

167  000052 

168  000052 

169  000052 
170 

171  000052 

172  000052 
173 
174  000052 


H  2 

ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  00:09  Page  10 

.SBTTL  X3P$DF  STATE  TABLE 
•  TPARS  STATE  TABLES 

ISTATS  X3PST,X3PKW 

;  X3P$DF 

STATES  X3PDF 
TRANS   J!X3PSDFX,,,1,SYNERR 

STATES 
TRANS   $NUMBR,,X3.DBS 

STATES 
TRANS   <',> 

STATES 
TRANS   $NUMBR,,X3.HBS 

STATES 
TRANS   <',> 

STATES 
TRANS   SNUMBR,,X3.DUS 

STATES 
TRANS   <',> 

STATES 
TRANS   $NUMBR,,X3.MWS 

STATES 
TRANS   <',> 

STATES 
TRANS   SNUMBR,,X3.BEG 

STATES   X3NXT 
TRANS   SE0S,SEXIT,X3.END 
TRANS   <',> 

STATES 
TRANS   SNUMBR,X3NXT,X3.NXT 

STATES 


CF2AI 
ERROI 


DEFAULT  BLOCK  SIZE 


MAXIMUM  BLOCK  SIZE 


DEFAULT  WINDOW  SIZE 


MAXIMUM  WINDOW  SIZE 


BEGINNING  OF  TIMER  VALUES 


NEXT  TIMER  VALUE 


I    2 
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ERROR  MESSAGES 


Page  8 


CF2, 


110 
111 
112 
113 
IK 
115 
116 
117 
118 
119 
120 
121 

122  000000 

123  OOOOOA 
12^  000010 

125  00001A 

126  000020 

127  00002A 
128 

129  000026 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

HI 

142 

143 

144 

145 

146 

147 


000030 
000054 
000040 
000044 


.  ..  000050 

148  000052 

149  000054 

150  000056 


151 
152 
153 
154 
155 
156 


.S8TTL  FILSDF  ACTION  ROUTINES 

GETSTR  -  STORE  PARSED  STRING 

INPUTS  - 

.PSTPT  -  ADDRESS  OF  PARSED  STRING 
.PSTCN  -  SIZE  OF  PARSED  STRING 


016700 
112077 
005267 
005267 
005367 
001367 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


GETSTR: 

:MOV 

. PSTPT, RO 

10$: 

M0V8 

(RO)+,aSTRPT 

INC 

STRPT 

INC 

STRSIZ 

DEC 

.PSTCN 

BNE 

10$ 

GET  ADDRESS  OF  STRING 

STORE  BYTE 

INC  POINTER 

COUNT  ONE  MORE  CHARACTER 

COUNT  ONE  LESS  CHARACTER 

If  MORE  -  BRANCH 


RETURN 


DEV  -  STORE  DEVICE  NAME 

INPUTS  - 

STRADD  -  CURRENT  STRING  ADDRESS 
STRSIZ  -  STRING  SIZE 

OUTPUTS  - 

DEVBUF  CONTAINS  DEVICE  SRING 


000062 
000066 
000074 

000100 


016700 
016701 
110167 
012702 

112022 
005301 
001375 
112712 
105267 
012767 
005067 


OOOOOOG 
OOOOOOG 
OOOOOOG 
000001 G 


DEV: 


1$: 


000072 
OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG 


MOV 

MOV 

MOVB 

MOV 

MOVB 

DEC 

BNE 

Move 
iNce 

MOV 
CLR 

RETURN 


STRADD, RO 
STRSIZ, Rl 
Rl, DEVBUF 
#DEVBUF+1,R2 

(R0)  +  ,(R2)*- 

Rl 

1$ 

#':,(R2) 

DEVBUF 

#FN8',iFF,  STRPT 

STRSiZ 


GET  STRING  Ai;L^ESS 

GET  STRING  SIZE 

STORE  STRING  SIZE 

GET  STARTING  ADDRESS  OF  STRING 

STORE  BYTE 

COUNT  ONE  LESS 

IF  MORE  -  BRANCH 

STORE  COLON 

COUNT  THE  : 

RESET  START  OF  BUFFER  ADDRESS 

INIT  COUNT 


I  3 
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CF2/ 
MACF 


1 
2 
3 

5 
6 

7 
8 
9 

10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE  CF2AC2  -  CONFIG  FILE  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAVNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RES' -/JSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  yiHlCH   IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF  ITS 
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CF2Ar3  -  NTLCF2  ACTION  ROUTINES 
MACRO  DEFINITIONS 

53 

5A 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70  000000 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86  000000 

87  000004 

88  000010 

89  000014 

90  000020 

91  000024 

92  000030 

93  000034 

94  000040' 


H  5 

MACRO  V05.03b  Saturday  29-Jun-85  00:10  Page  5 

.S8TTL  MACRO  DEFINITIONS 
LIBRARY  MACRO  CALLS 

.MCALL  EMSG$,EMSG$R,NTLER$,ASL$, I  STATS, TRANS, STATES 

.S8TTL  LOCAL  DATA 


;  LOCAL  DATA 

.PSECT 

DATA,D 

;  BUFFER  TABLE 

ENTRV 

.MACRO 

BFTABS  AA, 

.IF  B 

B8 

.WORD 

0 

.IFF 

.WORD 

BB 

.ENDC 

.WORD 

AA 

.ENDM 

BFTABS 

;  BUFFER  PARAMETERS  TABLE  C 

SFTAB:  BFTABS 

.CC6NM 

BFTA8S 

.CCBSZ,1 

BFTABS 

.RDBNM 

BFTABS 

.RDBSZ.I 

BFTABS 

.SD8NM 

BFTABS 

.sDesz,i 

BFTABS 

.RD8TH 

BFTABS 

.MXPRO 

BFEND= 


I     5 
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H     6 


CF2Ai 
Tabl^ 


CCCCCCCC   F 

FFFFFFFFF 

222222 

AAAAAA 

CCCCCCCC 

44    44 

CCCCCCCC   F 

FFFFFFFFF 

222222 

AAAAAA 

CCCCCCCC 

44    44 

22     22 
52     22 

AA 

AA 

44    44 

AA 

AA 

44    44 

22 

AA 

AA 

44    44 

22 

AA 

AA 

44    44 

FFF/FFFF 

22 

AA 

AA 

4^44444444 

FFSFFFF 

22 

AA 

AA 

4444444444 

22 

AAAAAAAAAA 

44 

22 

AAAAAAAAAA 

44 

22 

AA 

AA 

44 

22 

AA 

AA 

44 

CCCCCCCC   F 

2222222222 

AA 

AA 

CCCCCCCC 

44 

CCCCCCCC    F 

2222222222 

AA 

AA 

CCCCCCCC 

44 

LL 

S5SSSSSS 

TTFTTTFTTT 

LL 

ssssssss 

TTTHTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

Ll 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

(_{_ 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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CF2A(;5  -  COMFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:11 

Table  ot  contents 

MACRO  DEFINITIONS 

CMPSTR  -  COMPARE  FILE  NAME  BLOCK  FIELDS 
MOVBUF   -  SET  UP  LOCAL  FILE  NAME  BLOCK 
CRFNBK  -  CREATE  FILENAME  DESCRIPTOR  BLOCK 
.FLBKO  -  FILE  NAME  BLOCK  PROCESSING 


s- 

S^ 

8- 

IV 

9- 

191 

11- 

?m 

12- 

VI 

rF?Af5  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85 


00:11 
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CF2AC5  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:11 
Symbol  table 


A$$CH<= 

A$$CPS= 

A$$PRI= 

AttTRP= 

CFRR  = 

CFLIN  = 

CMPSTR 

CRFNBK 

C$$C<P= 

C$$ORE= 

C$$RSH= 

DECPT  = 

DEVBUF= 

DVSZ   = 

DSAMXC 

DSAMXH 

D$ANN 

OSBRPR 

DSBRTM 

DSOELF 

DSDELU 

OSEND  = 

DSFNB 

DSHIOR 

DSHOST 

DSINAC 

DSINCT 

DSIPL 

OSLID 

DSLNAM 

DSLNUM 

D$LST 

DSMAXC 

DSMAXH 

OSMAXV 

DSMLL 

DSMNOD 

D$NA 

DSNBEA 

DSNBRA 

D$NEND= 

DSNLN 

D$NN 

DSOUTT 

D$RETF 

D$RNN 

DSRTMR 

DSSEG 

D$SER 

CSSORL 

0$$BUG= 


000000 

000000 

000000 

000000 

******  Gx 

******  GX 

0001 16R 

000332R 

000000 

OOOAOO 

177564 

******  GX 

******  GX 

******  GX 

000072 

000074 

000000 

000102 

000100 

000045 

000046 

000104 

000034 

000024 

000022 

000044 

000042 

000051 

000020 

000006 

000014 

000047 

000064 

000066 

000070 

000040 

000041 

000062 

000056 

000054 

000054 

000030 

000060 

000043 

000050 

000002 

000076 

000036 

000032 

000052 

177514 


.  ABS.   177776 
001004 
DATA    000046 
Errors  detected: 


000 
001 
002 
0 


D$$ISK= 

D$$L11=: 

D$$YNC= 

0$$YNM= 

E$$XPR= 

FIELDC= 

FILBUF=: 

FLSZ  = 

FMT8  = 

FM.8  = 

FNBEXT= 

FNBLN  = 

FNBSZ  = 

FNBUFF= 

F$$LVL= 

F.NXT 

F.USE 

F.VAR 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

INIBUF 

I$$RAR= 

I$$RDN= 

KSAR5  = 

K$$CNT= 

K$$CSR= 

K$$IDC= 

K$$TPS= 

LDSLP  = 

LF.ACT= 

LF.BR0= 

LF.BWr= 

LF.ENA= 

LF.LPB= 

LF.MDC= 

LF.MFL= 

LF.MTP= 

LF.PAC= 

LF.RDr= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 


GX 
GX 
GX 
GX 

GX 
GX 
GX 
GX 


000000 
000001 
000000 
000000 

oooooc 

****** 
****** 
****** 
****** 
000000 

****** 

****** 
****** 
****** 

000001 

000000 

000002 

000003 

000000 

000000 

000000 

000000 

000160R 

000000 

000000 

******  GX 

177546 

177546 

000000 

000074 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000000 

000005 

000004 

000003 

000003 


(RW,I,GBL,ABS,OVR) 
(RW,1,LCL, RELCOM) 
(RW,I,LCL,REL,CON) 


LN.OFF= 
LN.ON  = 
LN.OOP= 
LN.OPE= 
LN.REF= 
LN.SER= 
LN.STA= 
LN.3UB= 
LN.TRI= 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 

L.cosr 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN  = 

L.MPF 

L.NHST 

L.NSTA 

L.OWNR 

L.UNT 

MOVBUF 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$M6E= 

M$$NET= 

M$$0VR= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$M0V= 

N$$NCT= 

N$$PEM= 

P$$P45= 

P$$WRD= 

0$$OPT= 

REP8C  = 

R$$DER= 

R$$K11= 


000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000000 

000000 

000001 

000000 

00C015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

000174R 

000124 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000000 

000000 

000010 

******  GX 

000000 

000001 
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R$$SND=  000000 

S.NMST 

000002 

R$$11M=  000000 

S . OWNR 

000003 

SERCUR=  ******  GX 

S.PSS 

000022 

SERFLG=  ******  GX 

S.SEC 

000040 

SEROFF=  ******  GX 

S.TER 

000042 

SETBLK  000216R 

T$$KMG= 

000000 

SETST   000720RG 

T$$MIN= 

000000 

SF.ACT=  000200 

UICBUF= 

******  GX 

SF.CIR=  000010 

UISZ  = 

******  GX 

SF.DEV=  000020 

V$$CTR= 

001000 

SF.DIA=  004000 

X$$DBT= 

000000 

SF.DPA=  000100 

ZF.C0U= 

001000 

SF.DPC=  000200 

ZF.DDM= 

000001 

SF.DUH=  010000 

ZF.D1A= 

004000 

SF.ENA=  000100 

ZF.DLC= 

000002 

SF.HAD=  000004 

ZF.DVP= 

100000 

SF.HST=  000002 

ZF.INI= 

040000 

SF.LOA=  002000 

ZF.<MX= 

000020 

SF.LPB=  000004 

ZF.LLC= 

000004 

SF.MFL=  000040 

ZF.LMC= 

000100 

SF.PAC=  000020 

ZF.MAN= 

020000 

SF.PH3=  020000 

ZF.MFL= 

000010 

SF.PSS=  000040 

ZF.MTM= 

000400 

SF.REA=  000010 

ZF.MUX=: 

000040 

SF.SEC=  000400 

ZF.PSE= 

002000 

SF.SER=  000001 

ZF.SLI= 

010000 

SF.SVC=  000002 

ZF.TIM= 

000200 

SF.TER=  001000 

ZF.X3P= 

000000 

SF.UNL=  000040 

ZS.ASN= 

100000 

SRHFNB  OOOOOOR 

ZS.BSY= 

140000 

STRPT  =  ******  GX 

Z.AVL 

000014 

STRSIZ=  ******  GX 

Z.DAT 

000016 

S$$WRG=  000000 

Z.DSP 

000000 

S$$YSZ=  007600 

Z.FLG 

000010 

S.ADD   000004 

Z.LEN  = 

000016 

S.CIR   000016 

Z.LLN 

000006 

S.COST  000001 

Z.MAP 

000020 

S.DEV   000020 

Z.NAM 

000004 

S.DIA   000046 

2.PCB 

000012 

S.DPA   000032 

Z.SCH 

000007 

S.DPC   000036 

$CEACX= 

******  GX 

S.DUM   000050 

SERRFS 

OOOOOOR     002 

S.FLAG  000002 

$HEADR= 

******  GX 

S.FL6   000000 

$LINKX= 

******  GX 

S.HAD   000010 

$XALOC= 

******  GX 

S.HST   000006 

.FLBKO 

000502RG 

S.LEN   000004 

.FLBK1 

000520RG 

S.LENG  000052 

.FLBK2 

000536RG 

S.LNK   000000 

.FLBK3 

000554RG 

S.LOA   000044 

.FLBK4 

000572RG 

CF2A 
ERRO 


8 
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ERROR  MESSAGES 
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CF2 
Tab 


122 
123 
12^ 
125 
126 
127 
128 
129 

130  000000 

131  000004 

132  000010 

133  000012 

134  000016 

135  000022 
136 

137 
138 
139 
UO  000024 

141  000030 

142  000034 

143  000040 

144  000042 
145 

146  000044 

147  000050 

148  000054 

149  000056 

150  000062 

151  000066 

152  000070 
153 

154  000072 

155  000074 

156  000100 
157 

158 
159 
160 
161 

162  000102 

163  000106 

164  000110 

165  000114 

166  000120 
167 

168  000124 

169  000132 

170  000134 
171 

172  000140 

173  000146 
174 

175  000152 

176 

177 

^78 


TPARS  ACTION  ROUTINES 

START  OF  NODE  NAME  (NODSDF) 
.ENABL   LSe 


017700  OOOOOOG 

062700  000006 
001434 

012701  000006 

012702  000016' 
000427 


012701  000042 

103001 
000004 

162701  000004 
017746  OOOOOOG 

017701  OOOOOOG 
062701  000020 
010011 


010046 
012600 


010067  000006' 
001406 

01016^  000010' 

112720  000040 


022767  000040  000010' 

001002 

012677  OOOOOOG 

016767  OOOOOOG  000014' 

005267  000014' 


NODNM:: 

MOV 

aDECPT,RO 

ADD 

#D$LNAM,RO 

BEQ 

10$ 

MOV 

#6,R1 

MOV 

#STRXX,R2 

BR 

10$ 

;  START 

OF  NODE 

IDENTIFICATION  (N 

NODID:: 

SWSTKS 

30$ 

MOV 

*34.,R1 

2$: 

CALL 

$XALOC 

BCC 

5$ 

lOT 

5$: 

SUB 

#4,R1 

MOV 

aKSAR5,-(SP) 

SAVRG 

<R1> 

MOV 

aCECPT.RI 

ADD 

#D$LID,R1 

MOV 

R0,(R1) 

RESRG 

<R1> 

MOV 

R0,-(SP) 

CALL 

$CEACX 

MOV 

(SP)+,RO 

GET  ADDRESS  OF  DECNET  HOME  BLOCK 

ADDRESS  OF  NODE  NAME 

IF  UNDEFINED,  JUST  EXIT 

GET  LENGTH 

NO  COUNT  FIELD 


ENTER  SVSTEM  STATE 

GET  NODE  ID  LENGTH 

ALLOCATE  NODE  ID  STRING 

IF  SUCCESSFUL  ALLOCATION  -  BRANCH 

NO  DSR  LEFT 

00  NOT  INCLUDE  COUNT  FIELD  IN  STRING  SIZE 

SAVE  KISAR5  CONTENTS 

SAVE  REG 

GET  HOME  BLOCK  ADDRESS 

POINT  TO  ID  STRING  ADDRESS 

STORE  UNMAPPED  ADDRESS  OF  ID  STRING 

RESTORE  SIZE 

PUT  UNMAPPED  ADDRESS  ON  STACK 

MAP  TO  POOL.. 

GET  MAPPED  ADDRESS 


THE  FOLLOWING  CODE  WILL  BE  EXECUTED  IN  SYSTEM  STATE  FOR  ID  STRING  PROCESSING 


10$: 
20$: 
25$: 

28$: 
50$: 


MOV 

BEQ 

MOV 

MOVB 

SOB 

CMP 
BNE 
MOV 

MOV 
INC 


RO.STRAD 
25i 

RI.STRMX 
#'    ,(R0)+ 
R1  J0$ 

#32.,STRMX 

28$ 

(SP)+,SKSAR5 

.PSTPT.STRPT 
STRPT 


SAVE  FIELD  ADDRESS 
IF  ZERO,  JUST  EXIT 
SAVE  MAX  LENGTH 
BLANK  FILL  THE  FIELD 


NODE  ID  ? 

IF  NO  -  BRANCH 

IF  YES  -  RESTORE  MAPPING 

SAVE  CURRENT  TPARS  POINTER 
BUT  DON'T  INCLUDE  THE  "<" 


RETURN 
.DSABL   LSB 
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CREF   O'l.OG 


SYMBOL  VALUE 


LS.CX5 

LS.DLM 

LS.ECH 

LS.FDX 

LS.HDX 

LS.LIN 

LS.LMC 

LS.NTI 

LS.ON 

LS.OPT 

LS.PRO 

LS.PWF 

LS.TOP 

LS.UNF 

LS.X25 

LS.11D 

LX.CEX 

LX.LIN 

LX.PRO 

L.LNG 

M$$MGE 

PARHD 

PLGTH 

PS.COM 

PS.NSF 

PS. SYS 

P. ALL 

P. ATT 

P.BLKS 

P. END 

P. MAIN 

P.NAM 

P.  PRO 

P.REL 

P.STAT 

P.  SUB 

R$$MPL 

R$$11D 

R$$nM 

TSFLAG 

TILIF 

TSLIFL 

TSLIFO 

TSLIFS 

T$LIN 

TSLIPS 

TSLLD 

TtLLDC 

TSLLDL 

TSLLDO 

TSLLDS 

TSLLEN 


OOWOO 
004000 
001000 
004000 
010000 
000003 
000007 
004000 
000011 
000400 
000002 
040000 
002000 
020000 
000012 
004000 
000004 
000006 
000005 
000124 
000000 
****** 
****** 
****** 
****** 
****** 
000002  RG 
******  GX 
******  GX 
000016  RG 
******  GX 
:  ******  GX 

:  ******   GX 
:  ****** 
:  ****** 


GX 

GX 
GX 
GX 
GX 


****** 
****** 

000000 
000044 
000013 
000013 
000013 
000013 
000000 
000006 
000012 
000045 
000012 
000012 
000012 
000046 


GX 
GX 
GX 


REFERENCES 

#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 

6-150 

6-85 

6-193 

6-213 

7-363 

7-363 

6-205 
#6-87 
♦6-271 
*7-352 
#6-90 
♦7-351 

6-198 
♦6-270 

6-274 

6-205 

7-371 

6-203 

5-60 

6-176 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 


7-380 


7-343 
7-345 

7-363 

♦6-272 
♦7-353 

6-200 

7-370 
♦7-363 
♦7-379 

6-229 

7-343 


6-135 


7-391 


7-407 


6-273 
7-375 


♦7-349 

7-373 

♦7-396 
6-252 


♦6-273 
7-384 


♦7-350 

♦7-378 

♦7-399 
7-355 


7-387 


♦7-382 


7-389 


7-386 


♦7-395 
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PAS  -  SERVICE  BLOCK  PASSWORD 


CF 
MA 


316 

517 

+ 

318 

SERCR 

-  SET  UP  CIRCUIT  NAME 

319 

320 

INPUTS  - 

321 

.PSTPT  • 

-  PARSED  STRING  ADDRESS 

322 

.PSTCN  ■ 

-  PARSED  STR  NG  SIZE 

323 

324 

OUTPUTS  - 

325 

CIRNAM 

-  CONTAINS  DEVICE 

NAME  (ASCII) 

326 
327 
328 

- 

000652 

012700 

OOOOOOG 

>ERCR:: 

MOV 

#C1RNAM,R0 

GET  STRING  STORAGE  BUFFER 

329 

000656 

016702 

OOOOOOG 

MOV 

. PSTPT, R2 

GET  PARSED  STRING  ADDRESS 

330 

000642 

0lo7Cl 

OOOOOOG 

MOV 

. PSTCN, Rl 

GET  STRING  COUNT 

331 

000646 

112220 

0$: 

MOVB 

(R2)+,(R0)+ 

STORE  DEVICE  NAME 

332 

000650 

005301 

DEC 

Rl 

ANY  LEFT  ? 

333 

000652 

001575 

BNE 

10$ 

IF  YES  -  BRANCH 

334 

335 

000654 

RETURN 

336 

337 

338 

339 

+ 

340 

FPDV 

-  FIND  PDV 

341 

342 

INPUTS  - 

343 

Rl  -  RAD50  PROCESS  NAME 

344 

3'.  5 

•  OUTPUTS  - 

346 

RO  -  PDV  ADDRESS 

347 

Rl-  PDV 

INDEX 

348 
349 
350 

;  - 

000656 

010146 

FPDV: 

MOV 

R1,-(SP) 

STORE  NAME  TO  BE  MATCHED 

351 

000660 

017701 

OOOOOOG 

MOV 

aPDVTA,R1 

GET  PDV  VECTOR  ADDRESS 

352 

000664 

017702 

OOOOOOG 

MOV 

aPDVNM,R2 

GET  NUMBER  OF  PDV'S 

353 

00067^ 

012100 

10$: 

MOV 

(R1)+,R0 

GET  NEXT  PDV  ADDRESS 

354 

ooor 

026016 

000004 

CMP 

Z.NAM(R0),(SP) 

MATCH  ? 

355 

0006^6 

001405 

BEQ 

40$ 

IF  YES  -  BRANCH 

356 

000700 

005502 

DEC 

R2 

COUNT  ONE  LESS  PDV 

357 

000702 

001572 

BNE 

10$ 

IF  MORE  -  BRANCH 

358 

000704 

005726 

TST 

(SP)  + 

■  IF  NO  MORE  -  ERROR 

359 

000706 

000261 

SEC 

•  SET  C-BIT 

360 
361 
362 

000710 

000404 

SR 

50$ 

•  REPORT  ERROR 

000712 

005741 

40$: 

TST 

-(Rl) 

•  CALCULATE  PDV  INDEX 

363 

0007U 

167701 

OOOOOOG 

SUB 

aPDVTA,Rl 

•  •  • 

364 
365 
366 

000720 

005726 

TST 

(SP)t 

■  CLEAN  UP  STACK 

000722 

50$: 

RETURN 

367 

568 

369 

570 

I  12 
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MACRO  DEFINITIONS 

57 
58 
59 

60 
61 

62  000000 

63  000000 
6-!.  000000 

65  000000 

66  000000 
67 
68 
69 
70 
71 
72 
73 

74  000000 
75 


000003 


OFFSET  VALUES 

DHBDF$ 
FNBDFS 
SERDFS 
PDVDFS 
SLTDFS 


LOCAL  EQUIVS 

EXTN  =  3 

.PSECT 


Page  6 


DEFINE  DECNET  HOME  BLOCK  OFFSETS 
DEFINE  FILE  NAME  BLOCK  OFFSETS 
DEFINE  SERVICE  BLOCK  OFFSETS 
DEFINE  PDV  OFFSETS 
DEFINE  SLT  OFFSETS 


.-FILENAME  EXTENSION  MAXIMUM  SIZE 
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cf; 

MA( 


a$$chk;= 

000000 

A$$CPS= 

000000 

a$$pri= 

000000 

A$$TRP= 

000000 

3RADF 

OOOOOOR 

3RA0J 

0001 24R 

3RADJ1 

0001 3AR 

3RDJ 

001056RG 

CFGBF  = 

•••»*♦  GX 

CFGSZ  = 

*»*••*  GX 

^■"^01= 

*••*••  GX 

C 1 ' MUM= 

*..♦«»  GX 

CIR.NT= 

*♦•***  GX 

C$$CKP= 

000000 

C$tORE= 

000400 

C$$RSH= 

17756A 

DADDR 

OOIOOORG 

DCT 

001016RG 

DECDEF 

0001 74R 

DIAMXC 

000072 

DSAMXH 

00007A 

DSANN 

000000 

D$BRPR 

000102 

0$BRTM 

000100 

DSDELF 

000045 

DSDELU 

000046 

D$END  = 

000104 

0$FNB 

000034 

DSHIOR 

000024 

DSHOST 

000022 

DSINAC 

000044 

DSINCT 

000042 

DSIPL 

000051 

DSLID 

000020 

D$LNAM 

000006 

DSLNUM 

000014 

D$LST 

000047 

DSMAXC 

000064 

DtMAXH 

000066 

DSMAXV 

000070 

DSMLL 

000040 

DSMNOD 

000041 

D$NA 

000062 

DSNBEA 

000056 

DSNBRA 

000054 

DSNEND= 

000054 

DSNLN 

000050 

D$NN 

000060 

DSQUTT 

000043 

OSRETF 

000050 

D$RNN 

000002 

DSRTMR 

000076 

D$SEG 

000036 

DSSER 

000032 

DSSORL 

000052 

D$$BUG= 

177514 

D$$!S<= 

000000 

002 


002 


D$$L11= 
D$$YNC= 
D$$YNM= 
ECLLLN= 
002  ECLMC 
002  ECLML 
'"  ECLN0D= 
EXT 

EXTN  = 
E$$XPR= 
FE.EXT= 
FILBUF= 
FILE 
FMASK  = 
FNBUFF= 
F$$LVL= 
F.NXT 
F.USE 
F.VAR 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$WRD= 
HSAD 
HSAR 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
LF.ACT= 
LF.BRO= 
LF.8WT= 
LF.ENA= 
LF.LPB= 
LF.MDC= 
LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDY= 
LF.REA= 
LF.SER= 
LF.TIM= 
LF.UNL= 
LF.X2P= 
LLCKW 
LLCST 
LN.CLO= 
LN.DUM= 
LN.LOA= 
LN.L00= 
LN.0AU= 
LN.0FF= 
LN.ON  = 
LN.00P= 


000001 

000000 

000000 

*•*♦*•  GX 

001046RG 

001036RG 

»•♦•»»  GX 

000550RG 

000003 

000000 

»«♦»»*  GX 

******  GX 

000510RG 

******  GX 

******  GX 

000001 

000000 

000002 

000003 

000000 

000000 

000000 

000000 

000752RG 

000732RG 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

OOOOOORG 

OOOOOORG 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 


LN.OPE= 
LN.ftEF= 
LN.SER= 
LN.STA= 
LN.SUB= 
LN.TRI= 
L$$ASG= 
L$$DRV= 
LJ$P11= 
L$$11R= 
L.COST 
L.CTL 
L.CVA 
L.DDM 
L.DDS 
L.DLC 
L.DLM 
L.DLS 
L.FLG 
L.KRBA 
L.LEN  = 
L.MPF 
L.NMST 
L.NSTA 
L . OWNR 
L.UNT 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR= 
NOAD 
NOAR 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
PARHD  = 
PNAME 
PS.COM= 
P$$P45= 
P$$URD= 
003  P.8LKS= 
002  P.BUSY= 
P.FUDG 
P.MA1N= 
P.NAM  = 
P. NONE 
P. PARI 
P.PAR2 
P.REL  = 
P.STAT= 


000001 

000002 

000002 

000017 

000360 

000006 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

000124 

000000 

000000 

000000 

000000 

000000 

000722RG 

000702RG 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

******  GX 

000270RG 

******  GX 

000000 

000000 

******  GX 

******  GX 

000372RG 

******  GX 

******  GX 

000502RG 

000066RG 

000264RG 

******  GX 

******  GX 


P.UMR 

0$$0PT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SCHEL 

SCHELO 

SCTIM 

SERDCT= 

SERDEV= 

SERDMP= 

SERDV 

SERHST= 

SERMUL 

SERMUX 

SERNOD= 

SERUNl 

SF.ACT= 

SF.CIR= 

SF.DEV= 

SF.DIA= 

SF.DPA= 

SF.DPC= 

SF.DUM= 

SF.ENA= 

SF.HAD= 

SF.HST= 

SF.LOA= 

SF.LPB= 

SF.|V|FL= 

SF.PAC= 

SF.PH3= 

SF.PSS= 

SF.REA= 

SF.SEC= 

SF.SER= 

SF.SVC= 

SF.TER= 

SF.UNL= 

SLTDF1 

SLTDF2 

SLTDF3 

STRADD= 

STRPT  = 

STRS1Z= 

SYNERR= 

S$$WRG= 

S$$YSZ= 

S.ADD 

S.CIR 

S.COST 

S.DEV 

S.DIA 

S.DPA 

S.DPC 

S.DUM 


000410RG 

000010 

000000 

000001 

000000 

000000 

000116R 

000110R 

000100R 

******  GX 

******  GX 

******  GX 

000762RG 

******  GX 

000662RG 

000672RG 

******  GX 

000652RG 

000200 

000010 

000020 

004000 

000100 

000200 

010000 

000100 

000004 

000002 

002000 

000004 

000040 

000020 

020000 

000040 

000010 

000400 

000001 

000002 

001000 

000040 

000042R 

000050R 

000024R 


****** 
****** 
****** 
****** 
000000 
007600 
000004 
000016 
000001 
000020 
000046 
000032 
000036 
000050 


GX 
GX 
GX 
GX 


S.FLAG 
S.FLG 
S.HAD 
S.HST 
S.LEN 
S.LENG 
002  S.LNK 
002  S.LOA 
'  "  S 
S 
S 
S 
S 


002 


NMST 
OWNR 
PSS 
SEC 
TER 
T$$KMG= 
T$$MIN= 
V$$CTR= 
XPCIR 
XPTOF 
XPTDF1 
XPTLLN= 
X$$DBT= 
ZF.COU= 
ZF.DDM= 
ZF.DIA= 
ZF.DLC= 
ZF.DVP= 
ZF.1N1= 
ZF.KMX= 
ZF.LLC= 
ZF.LMC= 
ZF.MAN= 
ZF.MFL= 
ZF.MTM= 
ZF.MUX= 
ZF.PSE= 
ZF.SLI= 
ZF.TIM= 
ZF. X3P= 
ZS.ASN= 
ZS.BSY= 
Z.AVL 
Z.DAT 
002  Z.DSP 
Z.FLG 
Z.LEN  = 
Z.LLN 
Z.MAP 
Z.NAM 
Z.PCB 
Z.SCH 
$ALPHA= 
$ANY  = 
$BLANK= 
$CAT5  = 
$DIGIT= 
$DNUMB= 
$EOS  = 


002 
002 


000002 

000000 

000010 

000006 

000004 

000052 

000000 

000044 

000002 

000003 

000022 

000040 

000042 

000000 

000000 

001000 

001026RG 

000142R 

0001 50R 

******  GX 

000000 

001000 

000001 

004000 

000002 

100000 

040000 

000020 

000004 

000100 

020000 

000010 

000400 

000040 

002000 

010000 

000200 

000000 

100000 

140000 

000014 

000016 

000000 

000010 

000016 

000006 

000020 

000004 

000012 

000007 

000022 

000020 

000006 

*******  GX 

000024 

000014 

000012 


002 
002 
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CF2DEr  -  CONFIG 

FILE  ACTION  ROU 

MACRO  V05.03b  Sa 

MACRO  DEFINITIONS 

77 

78 

79 

80 

•  <• 

81 

;  STORE 

82 

;- 

83 

8^  000052 

105767 

000001 G 

ECLLNK:: 

85  000056 

001011 

86  000060 

017700 

OOOOOOG 

87  00005^ 

156760 

OOOOOOG 

000040 

88  000072 

016767 

OOOOOOG 

OOOOOOG 

89  000100 

90 

91  000102 

101$: 

92 

93  000110 

105767 

000001 G 

NODCT:: 

9^  0001 U 

001011 

95  000116 

017700 

OOOOOOG 

96  000122 

156760 

OOOOOOG 

000041 

97  000130 

016767 

OOOOOOG 

OOOOOOG 

98  000136 

99 

100  OOOUO 

101$: 

101 

102  000U6 

105767 

000001 G 

INCT:: 

103  000152 

001006 

104  000154 

017700 

OOOOOOG 

105  000160 

156760 

OOOOOOG 

000042 

106  000156 

107 

108  000170 

101$: 

109 

110  000176 

105767 

000001 G 

OUTT:: 

111  000202 

001006 

112  000204 

017700 

OOOOOOG 

113  000210 

156760 

OOOOOOG 

000043 

114  000216 

115 

116  000220 

101$: 

117 

118  000226 

105767 

000001 G 

INAC:: 

119  000232 

001006 
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SBiTL   DEC$DF  ACTION  ROUTINES 
STORE  MAX  LOGICAL  LINKS  AND  NODE  COUNTER  VALUES 


CF 


120  000234 

121  000240 

122  000246 
123 

124  000250 
125 

126  000256 

127  000262 

128  000264 

129  000270 

130  000276 
131 

132  000300 
133 


017700  OOOOOOG 
156760  OOOOOOG  000044 


105767 
001006 
017700 
156760 


000001G 

OOOOOOG 
OOOOOOG  000045 


101$: 
DELf  : 


1011 


TSTB 

BNE 

MOV 

BISB 

MOV 

RETURN 


EMSG$R  XO 


.PNUMBtl 

101$ 

aDECPT,RO 

.PNUMB,D$MLL(RO) 

.PNUMB,$$LINX 


TSTB 

BNE 

MOV 

BISB 

MOV 

RETURN 


EMSG$R  XP 


TSTB 

BNE 

MOV 

BISB 

RETURN 


.PNUMB*1 

101$ 

SDECPT.RO       ; 

.PNUM8,D$MNOD(R0) 

.PNUMB,$$N0DC 


TSTB 

BNE 

MOV 

BISB 

RETURN 


EMSG$R  XU 


.PNUMB+1 

101$  ; 

aDECPT.RO 

.PNUMB,D$INCT(RO) 


>  255.  ? 
IF  YES  -  BRANCH 
GET  DECNET  HOME  BLOCK  ADDRESS 
;  STORE  MAX  LINKS  IN  HOME  BLOCK 


ILLEGAL  MAX  LOGICA  LINKS  VALUE 

>  255.  ? 

IF  YES  -  BRANCH 

GET  DECNET  HOME  BLOCK  ADDRESS 

;  STORE  MAX  NODE  COUNTERS  IN  HOME  BLOCK 


ILLEGAL  MAX  NODE  COUNTERS  VALUE 

>  255.  ? 

IF  YES  -  BRANCH 

GET  DECNET  HOME  BLOCK  ADDRESS 

;  STORE  INCOMING  TIMER  VALUE 


TSTB 

BNE 

MOV 

BISB 

RETURN 


EMSG$R  XY 


.PNUMB+1 

101$ 

aDECPT.RO      ; 

.PNUMB,D$OUTT(R0) 


TSTB 

BNE 

MOV 

BISB 

RETURN 


EMSG$R  XW 


.PNUM8+1        ; 

101$ 

aDECPT.RO       ; 

.PNUMB,D$INAC(R0) 


ILLEGAL  INCOMING  TIMER  VALUE 

>  255.  ? 

IF  TES  -  BRANCH 

GET  DECNET  HOME  BLOCK  ADDRESS 

;  STORE  OUTGOING  TIMER  VALUE 


ILLEGAL  OUTGOING  TIMER  VALUE 

>  255.  ? 

IF  YES  -  BRANCH 

GET  HOME  BLOCK  ADDRESS 

;  STORE  INACTIVITY  TIMER 


.PNUMBtl 

101$ 

aDECPT.RO       ; 

.PNUMB.D$DELF(R0) 


ILLEGAL  INACTIVITY  TIMER 

>  255.  ? 

IF  YES  -  BRANCH 

GET  HOME  BLOCK  ADDRESS 

;  STORE  DELAY  FACTOR 


EMSG$R   XQ 


ILLEGAL  DELAY  FACTOR  VALUE 


{  15 

r\r\  .  1  / 


r 


H  16 
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171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 

183  000,'44 

184  000^50 

185  000254 

186  000250 

187  000264 

188  000266 

189  000272 

190  000274 

191  000276 

192  000502 

193  000304 

194  000306 

195  000310 
196 


UMRLD   -   LOAD  UNI8US  MAPPING  REGISTERS 

INPUTS: 

R2  =  UMR  BLOCK  ADDRESS 

OUTPUTS: 

UMR'S  LOADED 
R0,R3,R4,R5  =  DESTROYED 


016203  OOOOOOG 

116204  OOOOOOG 

016205  OOOOOOG 

010500 

066200  OOOOOOG 

010325 

C10425 

052703  020000 

0J5504 

020500 

103771 


UMRLD: 


10$: 


20$: 


.IF  Df 

SWSTK$ 

MOV 

MOVB 

MOV 

MOV 

ADD 

MOV 

MOV 

ADD 

ADC 

CMP 

BLO 

RETURN 

.ENDC 


R$$11M  &  M$$MGE 

20$ 

M.BfVL(R2),R3 

M.8FVH(R2),R4 

M.UMRA(R2),R5 

R5,R0 

M.UMRN(R2) 

R3,(R5)t 

R4.(R5)t 

#26000, R3 

R4 

R5,R0 

10$ 


,R0 


ENTER  KERNEL  MODE 
GET  PARTITION  ADDRESS 

AND  UMR  ADDRESS  ON  I/O   PAGE 
COPY  UMR  ADDRESS 
GIVING  UMR  LIMIT 
LOAD  A  UMR 
OOUBLEUORD  REGISTER 
INCREASE  ADDRESS  BY  4K  WORDS 


DONE  ? 
IF  LO, 


NO 


I  16 


CFGX2P     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:08 
SYMBOL  CROSS  REFERENCE 


I  1 

PAGE  2 

CREf   0^.00 


CFGX? 
X3PtD 


SYMBOL  VALUE 


L.UNT 

BDVTA 

RTSPC 

R$$11D 

RSSIIM 

R$$11S 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SYNERR 

S$$BAS 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

UCNT 

XSSMCB 

X2CTL 

X2DEV 

X2h  MX 

X2F    - 

X2PKW 

X2PST 

X2RTMX 

X2UNT 

X2WNMN 

X2WNM>; 

X2.CTL 

X2.DEV 

X2.HLD 

X2.MBS 

X2.MRT 

X2.MWS 

X2.RTR 

X2.UNT 

ZF.COU 

ZF.DDM 

ZF.DiA 

ZF.rir 

ZF.DVP 

ZF.INI 

7F.KMX 

ZF.LLC 

ZKLMC 

ZF.riAN 


000013 

::  ****** 
=    ****** 

=  000000 

=   ****** 

=  000200 
=  000100 
=  000004 
=  000040 
=  000020 
=  000010 
=  000001 
=  000002 
=  000040 

=  ****** 
=  **^*** 
000001 
000000 
000004 
000002 
000003 

::  ****** 

=  ****** 


GX 
GX 


GX 


GX 


000002  R 
000000  R 
coil  30 
000000  R 
000000  RG 
000000  RG 
001130 

000003  R 
000001 
000007 
000244 
000216 
000614 
000454 
000510 
000404 
000"^. 0  R 
000274  R 
001000 
000001 
004000 
000002 

; 00000 

040000 
000020 
000004 
000100 
020000 


REFERENCES 

#5-63 

11-227 

8-98 

5-62 

5-62 

5-62 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
*9-121 

8-98 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 

11-233 

5-62 
#7-88 
#7-87 
#6-80 

9-116 

9-118 
#10-136 
#6-79 
#7-89 
#6-78 
#6-77 
#11-210 
#11-201 
#11-295 
#11-258 
#11-269 
#11-243 

#■;  1-281 

#11-220 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 


8-99 


-100 


*9-124 
8-98 


11-250 
5-62 

*11-214 

♦11-205 

11-299 

#10-136 

11-285 

M1-215 

11-248 

11-246 


*11-235 
8-99 


11-261 

11-231 
11-229 


*11-224 


-99  8-100 


11-273  11-287 


8-100 


11-301 


•11-304 


11-233 


CFrx2P 
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176 
177 
178 
179 
180 

181  000052 

182  000056 

183  000060 
18A  00006A 
185  000066 
186 

187 

1 88 

189  000074 

190  000100 

191  000102 

192  000106 

193  000110 

194  0001 U 

195  000^16 

196  000124 
197 

198 
199 

200  000132 

201  000136 

202  OOOUO 

203  000144 

204  000146 
205 

206 
207 

208  000154 

209  000160 

210  000162 

211  000166 

212  000170 

213  000174 

214  000176 

215  000204 
216 

217 
218 

219  000212 

220  000220 
221 

222 
221 

224  000224 

225  000230 

226  000236 

227  000240 

228  000244 

229  000246 

230  000252 

231  000254 

232  000262 


.SBTTL  X3P$DF  ACTION  ROUTINES 


DEFAULT  BLOCK  SIZE 


103403 
010067 


103406 
020067 
103406 
010067 


103403 
010067 


103406 
020067 
103406 
010067 


012767 
105067 


105267 
126727 
101015 
005767 
001017 
105767 
001014 
016777 
062767 


OOOOOOG 


OOOOOOG 
OOOOOOG 


X3.DBS:  CALL 
BCS 
MOV 
RETURN 

101$:   EMSGSR 


CHKBLK 

101$ 

R0,$X3DBS 

28 


MAXIMUM  BLOCK  SIZE 


X3.MBS: 


101$: 
102$: 


CALL 

BCS 

CMP 

BLO 

MOV 

RETURN 

EMSG$R 

EMSG$R 


CHKBLK 

101$ 

R0,$X3DBS 

loh 

R0,$X3MBS 

2C 
2D 


DEFAULT  WINDOW  SIZE 


OOOOOOG 


OOOOOOG 
OOOOOOG 


OG  OOOG 
000010' 


000010' 
000010' 

OOOOOOG 

000001 G 

OOOOOOG 
000002 


X3.DWS:  CALL 
BCS 
MOV 
RETURN 

1CU:   EMSG$R 


CHKWND 

101$ 

R0,$X3DWS 

2E 


MAXIMUM  WINDOW  SIZE 


X3.MWS: 


101$: 
102$: 


CALL 

BCS 

CMP 

BLO 

MOV 

RETURN 

EMSG$R 

EMSG$R 


CHKWND 

101$ 

R0.$X3DWS 

105$ 

R0,$X3MWS 

2F 
2G 


BEGINNING  OF  TIMER  VALUES 


000000' 

X3 

.BEG 

MOV 
CLRB 

#$X3CAL,NEXT 
TIMRCT 

• 

>JEXT 

TIMER 

VALUE 

X3 

.NXT 

INCB 

TIMRCT 

000007 

CMPB 

BHI 

TST 

BNE 

TSTB 

BNE 

TIMRCT, #X3TMCT 

101$ 

.PNUMH 

102$ 

.PNUMB^l 

102$ 

000000' 

MOV 

.PNUMB.SNEXT 

000000' 

ADD 

*2,NEXT 

CF2A 
FIL$ 


CHECK  FOR  LEGAL  DEFAULT  BLOCK  SIZE 

BR  IF  ERROR 

STORE  DEFAULT  BLOr>  SIZE 

ILLEGAL  DEFAULT  BLOCK  SIZE 


CHECK  FOR  LEGAL  MAXIMUM  BLOCK  SIZE 

BR  IF  ILLEGAL  VALUE 

IS  DEFAULT  IN  RANGE? 

BR  IF  NO 

SAVE  MAXIMUM  BLOCK  SIZE 

ILLEGAL  MAXIMUM  BLOCK  SIZE 
DEFAULT  BL'^K  SIZE  EXCEEDS  MAXIMUM 


CHECK  FOR  LEGAL  WINDOW  SIZE 
BR  IF  ILLEGAL  SIZE  -  ERROR 
STORE  DEFAULT  WINDOW  SIZE 

ILLEGAL  DEFAULT  WINDOW  SIZE 


CHECK  FOR  LEGAL  WINDOW  SIZE 

BR  IF  ERROR 

IS  DEFAULT  IN  RANGE? 

BR  IF  NO  -  ERROR 

STORE  MAXIMUM  WINDOW  SIZE 

ILLEGAL  MAXIMUM  WINDOW  SIZE 

OEFAULl  WINDOW  SIZE  EXCEEDS  NAXIMUM 


POINT  TO  CALL  TIMER  VALUE 
CLEAR  COUNTER 


UPDATE  COUNT 

MAXIMUM  EXCEEDED? 

BR  IF  YES  -  ERROR 

DOUBLE  WORD  VALUE? 

BR  IF  YES  -  ERROR 

BYTE  VALUE? 

BR  IF  NO  -  ERROR 

STORE  TIMER  VALUE 

POINT  TO  STORAGE  FOR  NEXT  VALUE 


J  2 
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CF2 
MAC 


158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 

171  000102 

172  000106 
173 

174  000112 

175  000116 

176  000122 

177  000126 
178 

179  000132 

180  000134 

181  000136 
182 

183  OOOUO 

184  000146 
185 

186  000152 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199  000154 

200  000162 

201  000166 

202  000172 

203  000176 

204  000200 

205  000206 
206 

207  000212 

208  000216 

209  000220 

210  000224 
211 

212  000226 

213  000230 

214  000236 


GRPUIC  -  STORE  GROUP  CODE  IN  UICBUF 

INPUTS  - 

STRADD  -  PARSED  STRING  ADDRESS 
STRSI2  -  STRING  SIZE 

OUTPUTS  - 

GROUP  STRING  STORED  IN  UICBUF 


016701  OOOOOOG 

016700  OOOOOOG 

110167  OOOOOOG 

012702  000001G 

112722  000133 

105267  OOOOOOG 

112022 
005301 
001375 


012767  OOOOOOG  OOOOOOG  10$: 
005067  OOOOOOG 


GRPUIC ::MOV 
MOV 


STRSIZ.RI 
STRADD, RO 


1$: 


Move  R1, UICBUF 

MOV  #UICBUF+1,R2 

MOVB  #'[,(R2)t 

INCB  UICBUF 

MOVB  (R0)+,(R2)+ 

DEC  R1 

BNE  1$ 

MOV  #FNBUFF,STRPT 

CLR  STRSIZ 

RETURN 


GET  STRING  SIZE 
GET  STRING  ADDRESS 

STORE  GROUP  UIC  STRING  SIZE 
GET  POINTER  TO  BUFFER 
STORE  BRACKET 
COUNT  BRACKET 

STORE  STRING 
COUNT  ONE  LESS 
IF  MORE  -  BRANCH 

RESET  BUFFER  POINTER 
INIT  SIZE 


052767 
016701 
016700 
005767 
001405 
112767 
105267 

012702 
005046 
116716 
062602 

005202 
032767 
001004 


USRUIC  -  STORE  USER  CODE  IN  UICBUF 
INPUTS 


STRADD 
STRSIZ 


PARSED  STRING  ADDRESS 
STRING  SIZE 


OUTPUTS  - 

USER  UIC  CODE  STORED  IN  UICBUF 


000001  000010'  USRUI1::8IS 
OOOOOOG  USRUIC: :MOV 
OOOOOOG  MOV 

000010'  TST 

BEQ 
000133  000001G        MOVB 
OOOOOOG  INCB 


OOOOOOG 
OOOOOOG 

OtSOOl  OOOCiO' 


3$: 


MOV 
CLR 
MOVB 
ADD 

INC 
BIT 
BNE 


#1, NAMED 

STRSIZ, R1 

STRADD, RO 

NAMED 

3$ 

*'[,UICBUF+1 

UICBUF 

#UICBUF,R2 
-(SP) 

UICBUF, (SP) 
(SP)+,R2 

R2 

#1, NAMED 

1$ 


SET  NAMED  DIRECTORY  FLAG 

GET  SIZE 

GET  ADDRESS 

NAMED  DIRECTORY  ? 

IF  NO  -  BRANCH 

LOAD  C  CHAR 

COUNT  BRACKE'" 

GET  BUFFER  ADDRESS 

GET  OLD  UIC  SIZE 
ADJUST  BUFFER  POINTER 

INCLUDE  SIZE  BYTE 
NAMED  DIRECTORY  ? 
IF  YES  -  BRANCH 
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MACRO  DEFINTITIONS 


lo'- 


55 

56 

57 

58 

59 

60 

61 

62  000000 

63 

6A 

65 

66 

67 

68 

69 

70 

71 

72 

75 


:f2/ 

ERRt 


.SBTTL  MACRO  PEF INTIT IONS 
■  **** 
':    LIBRARy  MACRO  CALLS 

;  **** 

.MCALL  OBJDF$,EMSG$R,RETC,NTLER$ 


OBJDFJ 


;  LOCAL  MACRO  DEFINITIONS 

■  *** 

.MACRO  SAVMAP 

MOV     aKSAR5,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV     (SP)t,aKSAR5 

.ENDM 


DEFINE  OBJECT  BLOCK  OFFSETS 


SAVE  APR  5 
RESTORE  APRS 
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CF2AC3  - 

NTLCF2  ACTION 

ROUTINES  MACRO  V05.03b 

Saturday 

29-Jun-85  00:10 

ERROR  MESSAGES 

96 

.SBTTL 

ERROR  MESSAGES 

97 
98 
99 

■  ERROR  MESSAGES 

100 

101 

.ENABL 

LC 

102 
103 
104 

.NLIST 

BEX 

OOOOAO 

NTLERS 

,XR,8,CEPR,RTSPC 

105 

000074 

NTLERS 

,XS,8,CERR,RTSPC 

106 

000126 

NTLERS 

,YK,8,CERR,RTSPC 

107 

000162 

NTLERS 

,YL,8,CERR,RTSPC 

108 

00021 4 

NTLERS 

,YM,8,CERR,RTSPC 

109 

000260 

NTLERS 

,YN,8,CERR,RTSPC 

110 

0003A2 

NTLERS 

,Y0,8,CERR,RTSPC 

111 

000424 

NTLERS 

,YP,8,CERR,RTSPC 

112 

000464 

NTLERS 

,Y0,8,CERR,RTSPC 

113 

000524 

NTLERS 

,YV,8,CERR,RTSPC 

IK 

000562 

NTLERS 

,VU,8,CERR,RTSPC 

115 

000632 

NTLERS 

,YI,8,CERR,RTSPC 

116 

000700 

NTLERS 

,YJ,8,CERR,RTSPC 

117 

118 

.LIST 

BEX 

119 

.DSABL 

LC 

120 

.EVEN 

121 

000000 

.PSECT 

Page  6 


CF2, 
Tab 


CFLIN,<Too  Many  Arguments) 

CFLIN,<Too  Few  Arguments) 

,<Illegal  cost  value) 

,<IUegal.  hop  ualue) 
,,<Ulegal  maximum  area  value) 
,,<IUegal  broadcast  router  adjacency  value) 
,,<Ulegal  broadcast  endnode  adjacency  value) 
,,<IUegal  area  cost  value) 
,,<IUegal  area  hop  value) 
.,<Illegal  node  address) 
,,<IUegal  routing  timer  interval) 
.,<Ulegal  broadcast  timer  value) 
,,<IUegal  router  priority  value) 
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Saturday  29-Jun-85 


JO:^ 


11 


CF2A 


t;. 

S4 

f,- 

// 

l- 

96 

8- 

1U 

9- 

161 

MACRO  CALLS 

LOCAL  DATA 

ERROR  MESSAGES 

FLTDFI  ACTION  ROUTINES  FOR  EVENT  CLASS  AND  TYPE 

ACTION  ROUTINES  TO  SET  UP  EVENT  FILTER  CONTROL  BLOCK 
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1 
2 
3 

5 
6 

7 

8 

9 

10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
4A 
45 
46 
47 
48 
49 

50 

51 


.TITLE  CF2AC5  -  CONFIG  FILE  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREr,-  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  12-JAN-81 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


CF2A 
Symb 


Work 
Work 
Size 
Size 
Oper 

Elap 
SYtC 
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CF2AC5  -  CONFIG  FILE  ACTION  ROU  MACRO  \/05.03b  Saturday  29-Jun-85 
Symbol  table 

•»  Assembler  statistics 


Work   file  reads:  0 

Work   f i  le  writes:  0 

Size  of  work  file:  15528  Words   (  61  Pages) 

Size  of  core  cool:  16552  Words  (  63  Pages) 

Operating  system:  RSX-11M/PLUS 


00:1 


1  Page  12-3 


CF2A 
ERRO 


Elapsed  time:  00:00:16.^0 
SV:CF2AC5.V2,[132,134]CF2AC5/CR/-SP=SY: 


C1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,C130,10]RSXMCM/PA:1,[132,10JCF2AC5 


CF2AC5 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:11 
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ERROR  MESSAGES 


179 
180 
181 

182  00015^. 

183  000160 
18A  000166 

185  000170 

186  0001 7A 

187  000200 

188  000204 

189  000210 

190  000212 

191  0002U 

192  000220 

193  000222 
194 

195 
196 
197 
198 

199  000226 

200  000232 

201  000234 
202 

203  000240 

204  000242 

205  000244 

206  000252 

207  000254 

208  000256 
209 

210  000260 

211  000264 
212 

213  000266 

214  000274 

215  000276 
216 

217  000300 

218  000302 
219 

220  000306 

221  000314 

222  000316 
223 

224  000322 

225 

226 

227 

228 

229  000324 

230  000332 

231  000334 

232  000340 

233  000346 
234 

235  C00550 


016702 
022767 
001017 

017746 
017700 
062700 
Oil  GOO 
010046 

012600 
010067 


016700 
001425 
016701 

160102 
001006 
022767 
001023 
010210 
000413 

026702 
103417 

022767 
001001 
010220 

112120 


022767 
001002 
012677 


022767 
001006 
012677 
012766 


OOOOOOG 
000040 


OOOOOOG 
OOOOOOG 
000020 


000006' 


END-OF-STRING  CHARACTER 


000010' 


STRCH: 


000006'        5$: 
000014' 

000040  000010' 

000010'       8$: 
000040  000010' 

10$: 

00004^^  :^00010'  15$: 
OOOOOOG 

20$: 


MOV 

.PSTPT,R2 

CMP 

#32.,STRMX 

BNE 

5$ 

SWSTKS 

20$ 

MOV 

aKSAR5,-(S 

MOV 

aDECPT,RO 

ADD 

#D$LJD,RO 

MOV 

(RO),RO 

MOV 

RO,-(SP) 

CALL 

SCEACX 

MOV 

(SP)+,RO 

MOV 

RO.STRAD 

Page  8-1 


GET  RIGHT  BRACKET  ADDRESS 

NODE  ID  STRING  ? 

IF  NO  -  BRANCH 

IF  YES  -  ENTER  SYSTEM  STATE 

SAVE  MAPPING 

GET  HOME  BLOCK  ADDRESS 

GET  ID  STRING  ADDRESS 

MAP  TO  POOL.. 

GET  MAPr^ED  ADDRESS  TO  ID  STRING 
SET  UP  FOR  COMMON  CODE 


CF2 


THE  FOLLOWING  CODE  WILL  EXECUTE  IN  SYSTEM  STATE  FOR  ID  STRING  PROCESSING 


MOV 
BEQ 
MOV 

SUB 
BNE 
CMP 
BNE 
MOV 
BR 

CMP 
BLO 

CMP 
BNE 
MOV 

M0V8 
SOB 

CMP 
BNE 
MOV 

RETURN 


STRAD 

RO 

15$ 

STRPT 

Rl 

R1,R2 

H$ 

*32., 

STRMX 

20$ 

R2,(R0) 

15§ 

STRMX 

,R2 

101$ 

#32., STRMX 

10$ 

R2,(R0)<- 

(R1)+,(R0)+ 
R2,10$ 

#32. .STRMX 

20$ 

(SP)+,aKSAR5 


ERROR  CONDITIONS 


000040  000010'  101$: 

OOOOOOG 
000350'  000016 


102$: 


CMP 
BNE 

MOV 
MOV 
RETURN 


#32., STRMX 
102$ 

(SP)t,aKSAR5 
#102$,16(SP) 


EMSG$R  XT 


GET  STRING  ADDRESS 

If  ZERO,  DO  NOTHING 

GET  LEFT  ANGLE  BRACKET  ADDRESS 

GIVING  STRING  LENGTH 

IF  NON  ZERO  -  BRANCH 

ID  STRING  ? 

IF  NO  -  BRANCH 

SETUP  NODE  ID  STRING  LENGTH  OF  ZERO 

CONTINUE 

VALID  LENGTH  ? 
IF  LO,  NO 

ID  STRING  ? 

IF  NOT  -  BRANCH 

SAVE  STRING  COUNT 

COPY  THE  STRING  INTO  THE  FIELD 


ID  STRING  ? 

IF  NO  -  BRANCH 

IF  YES  -  RESTORE  MAPPING 


ID  STRING  ? 

IF  NO  -  BRANCH 

IF  YES  -  RESTORE  MAPPING 

UPDATE  RETURN  USER  MODE  ADDRESS 


ERROR  -  STRING  TOO  LONG 
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1 
2 
3 
A 
5 
6 

7 

8 
9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  CF2AC7  -  CONFIG  FILE  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  12-JAN-81 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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CF2AC7     CPEATED  BY  MACRO  ON  29-JUN-85  AT  00:12 
SYMBOL  CROSS  REFERENCE 


I  11 

PAGE  5 

CREf   04.00 


SYMBOL   VALUE 


REFERENCES 


TSLOPR 

000002 

#5-69 

rSLTCL 

000024 

#5-69 

r$LT!M 

000026 

#5-69 

TSLTPR 

000014 

#5-69 

rSLTPS 

000020 

#5-69 

rSNAPL 

000004 

#5-69 

T$NFE 

000000 

#5-69 

TSNLEN 

000010 

#5-69 

TSNNUL 

000002 

#5-69 

TSNOPL 

000006 

#5-69 

T$NRNI 

000042 

#5-69 

TSNRPL 

000005 

#5-69 

TSNRUL 

000007 

#5-69 

TSNVR 

000001 

#5-69 

TSRPRI 

000040 

#5-69 

T$SVC 

000034 

#5-69 

T$T5 

000030 

#5-69 

T$T6 

000032 

#5-69 

XPTLLN 

=  ****** 

fix 

6-112 

SERRXC 

r  ****** 

GX 

6-186 

SERRXE 

-  ****** 

(iX 

6-207 

SERRXJ 

=  ****** 

GX 

6-216 

SERRXK 

r  ****** 

GX 

6-227 

SFUNC 

=  ****** 

GX 

7-380 

SMAPX 

=  ****** 

GX 

6-277 

tMUL 

r  ****** 

GX 

6-117 

SUMRAL 

=  ****** 

GX 

6-267 

SUMRPT 

=  ****** 

GX 

6-260 

.ALLOC 

=  ****** 

GX 

♦6-87 

.BRAD 

-  ****** 

fix 

6-115 

.FUDGE 

=  ****** 

GX 

♦6-88 

.HOME 

=  ****** 

GX 

♦6-275 

.NA 

-  ****** 

GX 

6-92 

.NBEA 

=     ****** 

GX 

6-114 

.m 

=  ****** 

fix 

6-90 

.NOMAP 

=  ****** 

fix 

♦6-106 

.NTPSZ 

=  ****** 

GX 

7-352 

.PCB 

-  ****** 

GX 

6-180 

.PNAM1 

-  ****** 

GX 

6-183 

.PNAM2 

r  ****** 

fix 

6-18^^ 

.PNUMB 

-  ****** 

GX 

6-87 

.UMRFl 

-  ****** 

GX 

•6-179 

6-134 
6-196 


7-391 
6-136 

6-88 
♦6-107 


6-108 
♦6-127 

•6-225 
7-349 
6-191 

•6-262 


6-151  6-164 

•6-159 

♦6-128  ♦6-147  *6-160 


•6-146  *6-173 

7-350 


♦6-174 


7-353 


rocATCri    Dv 


riM   :)Q-  iiiM-H';    AT   nn- 1  ? 
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CI 
W 


572 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387  000724 

010446 

388  000726 

005046 

389  000730 

110116 

590  000732 

110266 

000001 

591  000736 

017704 

OOOOOOG 

392  000742 

012705 

177777 

393 

394  000746 

012402 

395  000750 

005205 

396  000752 

127703 

OOOOOOG 

597  000756 

001002 

598  000760 

000261 

399  000762 

000414 

400 

401  000764 

1262C0 

000002 

402  000770 

001366 

405  000772 

126216 

000012 

404  000776 

001563 

405  001000 

126266 

000013  000001 

406  001006 

407 

408  001010 

001357 

010267 

OOOOOOG 

409 

410  001014 

005726 

411  001016 

012604 

412 

413  001020 

414 

415 

416 

000001 

.S8TTL   FSLT  -  FIND  SLT  ADDRESS 

FSLT  -  FIND  SLT  ADDRESS 

INPUTS   - 

RO  -  DDM  PDV   INDEX 

R1    -   CONTROLLER  NUMBRE 

R2  -  UNIT   NUMBER 

OUTPUTS  - 

SERSLT   -   CONTAINS   SLT   ADDRESS 
R3  -   SLN 


FSLT: 

MOV 

R4,-(SP) 

SAVE  REG 

CLR 

-(SP) 

CLEAR  A  WORD  ON  STAC 

MOVB 

R1,(SP) 

SET  CONTROLLER  NUMBE 

M0V8 

R2,1(SP) 

SET  UNIT  NUMBER 

MOV 

aSLTMA,R4 

GET  SLT  VECTOR 

MOV 

#-1,R5 

INIT  SLN  COUNTER 

10$: 

MOV 

(R4)+,R2 

GET  NEXT  SLT  ADDRESS 

INC 

R3 

COUNT  ONE  MORE  LINE 

CMP8 

5)SLTNM,R5 

END  OF  SLT'S  ? 

BNE 

15$ 

IF  YES  -  ERROR 

SEC 

SET  C-8IT 

BR 

50$ 

CONTINUE 

15$: 

CMP8 

L.DDM(R2) 

RO 

MATCH  ? 

BNE 

10$ 

IF  NO  -  BRANCH 

CMPB 

L.CTL(R2) 

(SP) 

CORRECT  CONTROLLER  ? 

BNE 

10$ 

IF  NOT  -  BRANCH 

CMPB 

L.UNT(R2) 

KSP) 

CORRECT  UNIT  ? 

BNE 

10$ 

IF  NOT  -  BRANCH 

MOV 

R2, SERSLT 

STORE  SLT  ADDRESS 

50$: 

TST 

(SP)  + 

•  CLEAN  STACK 

MOV 

(SP)+,R4 

■  RESTORE  REG 

RETURN 


.END 
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77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 


READ  SPECIFIC  VALUES  IN  DECSDf  AND  XPT'S  LLCIDF  USED 
IN  POOL..  SIZE  CALCUALTION 


000000 
000004 


000006 
000012 

89 

90  OOOOK 

91 

92  000020 

93  000022 

94  000026 

95  000032 

96  000036 

97  000042 

98  000046 

99  000050 

100  000054 

101  000056 
102 

103  000060 

104 

105 

106 

107 

108 

109 

110 

111 


012705 
000405 

012705 
000402 

012705 

005001 
012702 
016703 
012704 
005067 

103003 
005367 
001401 


000000' 
000142' 
000174' 


000000' 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 


.ENABL 

LS6 

$QBRA:: 

MOV 

*8RADF,R5 

SET  UP  STATE  TABLE  ADDRESS 

BR 

10$ 

$QXPT:: 

MOV 

#XPTDF,R5 

SET  UP  STATE  TABLE  ADDRESS 

BR 

10$ 

CONTINUE 

SQMLMC. 

:;^ov 

#DECDEF,R5 

SET  UP  STATE  TABLE  ADDRESS 

10$: 

CLR 

R1 

FULL  KEYWORD  MATCH  LENGTH 

MOV 

#LLCKW,R2 

KEYWORD  TABLE  ADDRESS 

MOV 

CFGSZ,R3 

RECORD  LENGTH 

MOV 

*CFGBF,R4 

BUFFER  ADDRESS 

CLR 

SVNERR 

CLEAR  SYNTAX  ERROR  FLAG 

CALL 

.TPARS 

PARSE  LINE 

BCC 

20$ 

IF  SUCCESS  -  BRANCH 

DEC 

SYNERR 

SYNTAX  ERROR  ? 

BEQ 

101$ 

IF  YES  -  BRANCH 

20$: 

RETURN 

101$: 

EMSG$R 

IT 

SYNTAX  ERROR 

.DSABL 

LSB 

CF 

Sy 

$E 
SE 
tE 
$E 
$E 
$E 
$F 


$S 
$K 
$K 
Er 


Wc 
Wc 
Si 
Si 
Oc 

El 
SI 


112 

113 

114 

115 

116 

117  000066 

012702 

OOOOOOG 

118  000072 

119 

120 

121 

122  000076 

016701 

OOOOOOG 

123  000102 

005000 

124  000104 

125  000110 

011101 

126  000112 

001443 

127  000114 

026112 

OOOOOOG 

128  000120 

001373 

129  000122 

026162 

000002G 

130  000130 

001367 

131 

132 

133 

.S8TTL  ACTION  ROUTINES  FOR  PAR$DF 


TPARS  ACTION  ROUTINES 


FIRST  PARTITION  NAME  (PAR$DF) 


P. PARI 

:M0V 

#.PNAM1,R2     ; 

CALL 

PNAME 

.IF  DF 

R$$11M 

MOV 

PARHD,R1 

CLR 

RO 

SWSTK$ 

60$ 

10$: 

MOV 

(RD.RI 

BEQ 

50$ 

CMP 

P.NAM(R1),(R2)   , 

BNE 

10$           , 

CMP 

P.NAM+2(R1),2(R2) 

BNE 

10$ 

POINT  AT  WORK  AREA 
;•  RETRIEVE  PARTITION  NAME 


POINT  AT  SYSTEM  LIST 
INDICATE  NO  ERROR  YET 

*  ENTER  KERNEL  MODE 

»  GET  NEXT  PCS  FROM  LIST 
»  IF  ZERO,  END  OF  LIST 
»  CHECK  THE  NAME 

*  TWO  WORDS 


.IF    DF      R$$MPL 


m  ArQ 


rnMr in    c 1 1 
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CF, 
OEi 


$ERR!(A=  »•••••  GX 
$ERRXB=  •..«•«  GX 
$ERRXD=  •♦••♦•  GX 
tERRXF=  .«»»»•  GX 
$ERR1T=  ...•«*  GX 
$EXIT  =  000000 
tFAIL  =  177777 


177776 
001066 
000212 
000016 
0^0057 


000 
001 
002 
0C3 
004 
0 


$LAMDA=  000000 

$NUMBR=  000002 

$QBRA  OOOOOORG 

SQMLMC  OOOOURG 

$QXPT  000006RG 

$RAD50=  000016 

$STRNG=  000004 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON,i 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


$SUBXP=  000010 

$$$FLG=  \n'!n 

$$$KEY=  000006 

$$$STA=  000000 

$$$TMP=  000050R 

.BRAD  =  **♦•♦♦  GX 

.FUDGE=  ***♦♦•  GX 


004 


NAMBF= 

****** 

GX 

.PNUMB= 

****** 

GX 

NOMAP= 

****** 

GX 

.PNUMH= 

****** 

GX 

NTPSZ^ 

****** 

GX 

.PSTCN= 

****** 

uX 

PCS  = 

****** 

GX 

.PSTPr= 

****** 

GX 

PNAM1= 

****** 

GX 

.TPARS= 

****** 

GX 

PNAM2= 

****** 

GX 

.UMRFL^ 

****** 

GX 

.  ABS 

SSTATE 

SKTAB 

SKSTR 

Errors  detected: 

♦  ♦*  A-jSemblef  statistics 

Work   file  reads:  2 

Work   file  writes:  3 

Size  of  work  file:  16954  Words   (  67  Pages) 

Size  of  core  pool:  17608  Words   (  67  Pages) 

Operating  system:  RSX-11M/PLUS 

SYfcF2AC9!v2;[132,134]CF2AC9/CR/-SP=Sy:[1,1]RSXMCM.SML/ML,C130,110]NETLlB/ML,[130,10]RSXMCM/PA: 


,C132,10]CF2AC9 


-QC  AT  nA.17 


J  K 


v.. 


L 


CF2DEC  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85 
OECSDF  ACTION  ROUTINES 
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CF 


134  000306 

135  000312 

136  0003U 

137  000320 

138  000326 
139 

140  000330 
U1 

142  000336 

143  000342 

144  000344 

145  000350 

146  000356 
147 

148  000360 

149 

150 

151  000366 

152  000372 

153  000374 

154  000400 

155  000406 
156 

157  000410 

158 

159 

160  000416 

161  000422 

162  000424 

163  000430 

164  000436 
165 

166  000440 
167 

168  000446 

169  000452 

170  000460 
171 


105767  000001 G 

001006 

017700  OOOOOOG 

156760  OOOOOOG  000046 


105767 
001006 
017700 
156760 


000001 G 

OOOOOOG 
OOOOOOG  000051 


DELW: 


101$: 
IPL:: 


TSTB 

BNE 

MOV 

BISS 

RETURN 


.PNUMB+l 

101$ 

aDECPT.RO      , 

.PNUMB,D$DELU(RO) 


TSTB 

BNE 

MOV 

BISB 

RETURN 


105767  000001G 

001006 

017700  OOOOOOG 

156760  OOOOOOG  000047 


105767  0CO001G 

001006 

017700  OOOOOOG 

156760  OOOOOOG  000050 


017700 
016760 


OOOOOOG 
OOOOOOG  000036 


LST:: 

101$: 
RETF: 


101$ 
SEG: 


TSTB 

BNE 

MOV 

BISB 

RETURN 


MOV 
MOV 
RETURN 


EMSG$R  XR 


.PNUMBO 

101$ 

aDECPT.RO       ; 

.PNUMB,D$IPL(RO) 


101$:   EMSG$R  XS 


.PNUMB+1 

101$ 

aDECPT.RO 

.PNUMB,D$LST(RO) 


EMSG$R  XT 


TSTB 

BNE 

MOV 

BISB 

RETURN 


EMSG$R  XX 


.PNUMB+I 

101$ 

aDECPT.RO      , 

.PNUMB.D$RETF(RO) 


aDECPT.RO       ; 
.PNUMB.D$SEG(RO) 


>  255.  ? 

IF  VES  -  BRANCH 

GET  HOME  BLOCK  ADDRESS 

;  STORE  DELAY  WEIGHT 


ILLEGAL  DELAY  WEIGHT  VALUE 

>  255.  ? 
IF  YES  -  BRANCH 
GET  HOME  BLOCK  ADDRESS 
;  STORE  INPUT  PACKET  LlMiTER 


ILLEGAL  INPUT  PACKET  LIMITER  VALUE 


>  255.  ? 
IF  YES  -  BRANCH 
GET  HOME  BLOCK  ADDKESS 
:  STORE  LINK  SERVICE  THRESHOLD 


ILLEGAL  LINK  SERVICE  THRESHOLD  VALUE 


>  255.  ? 

IF  YES  -  BRANCH 

GET  HOME  BLOCK  ADDRESS 

;  STORE  RETRANSMIT  FACTOR 


ILLEGAL  RETRANSMIT  FACTOR  VALUE 

GET  HOME  BLOCK  ADDESSS 
;  STORE  ECL  SEGMENT  SIZE 


:,r\c    r\7U 
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198 

199 

200 

201 

202 

203 

20'. 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2U 

215 

216 

217 

218 

219 

220 

221 

222 

225 

22A 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 


••*  -  $ASUM1  -  ASSIGN  UNI8US  MAPPING  REGISTERS 

THIS  ROUTINE  IS  CALLED  TO  ASSIGN  A  CONTIGUOUS  SET  OF  UMR'S.  NOTE  THAT 
FOR  THE  SAKE  OF  SPEED,  THE  LINK  WORD  Of  EACH  MAPPING  ASSIGNMENT  BLOCK 
POINTS  TO  THE  UMR  ADDRESS  (2ND)  WORD  OF  THE  BLOCK,  NOT  THE  FIRST  WORD. 
THE  CURRENT  STATE  OF  UMR  ASSIGNMENTS  IS  REPRESENTED  BY  A  LINKED  LIST  OF 
MAPPING  ASSIGNMENT  BLOCKS,  EACH  BLOCK  CONTAINING  THE  ADDRESS  OF  THE 
FIRST  UMR  ASSIGNED  AND  THE  NUMBER  OF  UMR'S  ASSIGNED  TIMES  4.  THE  BLOCKS 
ARE  LINKED  IN  THE  ORDER  OF  INCREASING  FIRST  UMR  ADDRESS. 

THIS  ROUTINE  SHOULD  BE  CALLED  FROM  SYSTEM  STATE  WITH  KISAR5  MAPPED  TO 
THE  LOWCR  (LOW  CORE)  FOR  THIS  CPU. 

NOTE  -  THIS  ROUTINE  ASSUMES  THAT  LOWCR  IS  MAPPED  BY  APRO. 

INPUTS: 

RO  =  POINTER  TO  A  MAPPING  REGISTER  ASSIGNMENT  BLOCK. 
M.UMRN(RO)  =  THE  NUMBER  OF  UMR'S  REQUIRED  •  4. 

OUTPUTS: 

R4,R5  =  DESTROYED 

C=0  IF  THE  UMR'S  WERE  SUCCESSFULLY  ASSIGNED. 

ALL  FIELDS  OF  THE  MAPPING  REGISTER  ASSIGNMENT  BLOCK 
ARE  INITIALIZED  AND  THE  BLOCK  IS  LINKED  INTO  THE 
ASSIGNMENT  LIST. 

C=l  IF  THE  UMR'S  COULD  NOT  BE  ASSIGNED. 


SASUMl : 


10$: 


20$: 


,  IF  DF  R$$MPL 


MOV 

ADD 

MOV 

TST 

MOV 

ADD 

MOV 

BEO 

MOV 

ADD 

MOV 

MOV 

BEO 

MOV 

SUB 

CMP 

BLO 

MOV 

MOV 

MOV 

MOV 

BIC8 

BIC 

ASR 


UMRPT,R4 

#120000, R4 

R0,(R4) 

(R0)  + 

UMRHD,R5 

#120062, R5 

R5,R4 

30$ 

(R5),(R0) 

M.UMRN-M.UMRA(R 

#UBMPRt<31.*4>, 

-(fi5),R5 

20$ 

(R5),{SP) 

(RO),(SP) 

(SP)+,M.UMRN-M 

10$ 

R0,-(R4) 

(R0),R4 

R5,-5(RO) 

R4,R5 

#U8MPR134,R5 

R5,R4 

R5 


GET  $UMRPT  ADDRESS 

BIAS  BY  APR5 

STORE  UMR  S;OCK  ADDRESS 

SKIP  OVER  LINK  WORD 

GET  $UMRHD  VALUE 

BIAS  BY  APRS 

SAVE  POINTER  TO  PREVIOUS 

IF  EQ,  ASSIGNMENT  FAILURE 
,  POINT  TO  NEXT  FREE  UMR 
55,  (RO)  ; 
-(SP)  ;  CALCULATE  END  OF  UMR'S 

POINT  TO  NEXT  ASSIGNMENT  BLOCK 

IF  EQ,  THERE  IS  NONE 

SET  NEXT  ALLOCATED  UMR  ADDRESS 

CALCULATE  NUMBER  OF  FREE  UMR'S  *  4 
UMRA(RO)  ;  ARE  THERE  ENOUGH  UMR'S  AVAILABLE 

IF  LO,  NO 

LINK  NEW  BLOCK  INTO  CHAIN 

SAVE  FIRST  UMR  ADDRESS 

POINT  NEW  BLOCK  TC  NEXT  IN  LIST 

DUPLICATE  FIRST  UMR  ADDRESS 

MASK  OUT  ALL  BUT  HI  2  BITS  IN  LOW  BYTE 

CLEAR  OUT  HIGH  BYTE  AND  HIGH  2  BITS 

SHIFT  HIGH  2  BITS  TO  BITS  4  &  5 


„.  m. 
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' 'BOL  CROSS  REFERENCE 
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CREF   04. UO 


SfMBOL   .ALUE 


2F.HFL 

ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSY 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN 

Z.LLN 

Z.MAP 

Z.NAiV| 

Z.PCB 

Z.SCH 

SALPHA 

$ANY 

SBLANK 


000010 
000400 
000040 
002000 
010000 
000200 
000000 
100000 
140000 
000014 
000016 
000000 
000010 
000016 
000006 
000020 
000004 
000012 
000007 
000022 
000020 
000006 


REFERENCES 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#10-136 

#10-136 

#10-136 


CFGX3 
)(5P$D 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


5-62 


11-229 


iCAT5 

= 

****** 

GX 

11-204 

SDIGIT 

= 

00002A 

#10-136 

SDNUMB 

- 

OOOOU 

#10-136 

$EOS 

- 

000012 

#10-136 

SERRIT 

- 

*■****  + 

GX 

9-130 

$ERR2C 

= 

****** 

GX 

11-265 

$ERR2F 

~ 

****** 

GX 

11-254 

SERR2I 

- 

****** 

GX 

11-238 

$ERP2J 

000004 

R 

#8-98 

11-277 

$ERR2k 

000046 

R 

#8-99 

11-291 

$ERR2L 

000106 

R 

#8-100 

11-306 

SEXIT 

- 

000000 

#10-136 

$FAIL 

- 

177777 

#10-136 

SGPRM 

- 

****** 

10-136 

SLAMDA 

- 

000000 

#10-136 

SNUMBR 

r 

000002 

#10-136 

$0X2P 

000144 

RG 

#9-116 

$RAD50 

r 

000016 

#10-136 

$RO^JLY 

- 

****** 

10-136 

10-136 

10-136 

SSLTA 

= 

*»  **  ** 

GX 

11-225 

SSTRNG 

- 

000004 

#10-136 

tSUBXP 

- 

OOOO'O 

#10-136 

$X2HLD 

- 

****** 

GX 

•11-303 

$X2MBS 

- 

****** 

GX 

*11-263 

$X2MR' 

r 

****** 

GX 

*11-275 

$X2MWS 

- 

****** 

GX 

•11-252 

$X2RfT 

r 

****** 

GX 

•11-289 

$$$FLG 

r 

]77777 

#10-136 

$$$KEY 

r 

^77777 

#10-136 

. PNUMB 

GX 

11-212 

11-^14 

11-2'2 

11-224 


11-245 


11-260 


11-271 


11-275 


11-283 
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)(5P$DF  ACTION  ROUTINES 
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CF2A 
FiLt 


233  000270 
23A  000272 

235  000276 

236  000302 

237  000304 
238 

239 
240 

241  000312 

242  000320 

243  000322 

244  000326 
245 


005267 
062716 


126727 
001402 
062716 

OOC^ni 


COOOOOG 
000002 


000010'  000007 
000002 


101$: 


RETURN 

INC 

ADD 

RETURN 

EMSGSR 


SYNERR 
#2,(SP) 


02$:   EI«ISG$R  2H 
END  OF  TIMER  VALUES 
X3.END 


10$: 


CMP8 

GEO 

ADD 

RETURN 

.END 


TIMRCT,#X3TMCT 

10$ 

#2,(SP; 


INDICATE  SYNTAX  ERROR 
REJECT  THE  TRANSITION 

ILLEGAL  TIHER  VALUE 


WERE  ALL  VALUES  PROCESSED? 

BR  IF  YES 

REJECT  THE  TRANSITION 
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J  3 

CF2AC1  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:09 
FiLtDF  ACTION  ROUTINES 


215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 


000240  112722  000054 

000244  105267  OOOOOOG 

000250  005067  000010'        1$: 

000254  112022 

000256  105267  OOOOOOG 

000262  005301 

000264  001371 

000266  112712  000135 

000272  105267  OOOOOOG 

000276  012767  OOOOOOG  OOOOOOG  10$: 

000304  005067  OOOOOOG 

000310 


MOve  #',,(R2)t 

INCB  UICBUF 

CLR  NAMED 

Move  (R0)+,(R2)t 

INCB  UICBUF 

DEC  R1 

BNE  1$ 

wove  #'L(R2) 

INCB  UICBUF 


MOV 
CLR 

RETURN 


*FNBUFF,STRPT 
STRSIZ 


Page  9-1 


STORE  GROUP/USER  UK  ScPARATOR 
INCLUDE  , 

INIT  NAMED  DIRECTORY  FLAG 

STORE  STRING 

COUNT  ONE  CHARACTER 

If'mORE  -  BRANCH 

STORE  UIC  TERMINATOR  CHARACTER 
ADJUST  UIC  STRING  SIZE 

RESET  PARSED  STRING  POINTER 
INIT  SIZE 


CF2 

LOC 
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CF2AC2  -  rONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85 
LOCAL  DATA 


^0:10 
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CF2, 
TPAI 


75 

76 

77 

78 

79 

80  000000 

81 

82 

83 

8A 

85  000000 

86  000001 

87  000002 

88  000006 
89 


.S8TTL 
♦  *** 

LOCAL  DATA 
**** 


LOCAL  DATA 


.PSECT  DATA.D 
OBJECT  BLOCK  VALUES 


TYPE: 
r  LAG : 
ONAME : 
MXCP: 


.BLKB 
.BLKB 
.BLKW 
.BLKB 
.EVEN 


OBJECT  TYPE  NUMBER 

OBJECT  FLAGS 

OBJECT  NAME  IN  RAD50 

MAXIMUM  NUMBER  OH  COPIES  TO  SPAWN 
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TPARS  ACTION  ROUTINES  FOR  BUFSDF 


CF2 


000000 
000006 


123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13A 
135 

136  000010 

137  OOOOU 

138  000020 

139  00002A 
KO  000026 
U1  000032 
H2  000034 
U3  000036 
1A4  OOOOAO 
145  0OOOA4 
146 

147  000046 

148 

149 

150 

151 

152  000054 

153  000060 

154  000066 
155 

156  000070 

157  000074 

158  000102 

159  000104 
160 

161  000110 

162  000114 

163  000120 

164  000124 

165  000130 

166  000132 

167  000134 

168  C00140 

169  000144 

170  000150 

171  000154 

172  000160 

173  000162 

174  000164 

175  000166 

176  000172 
177 

178  000174 

179  000200 


.SBTTL  TPARS  ACTION  ROUTINES  FOR  BUFSDF 

TPARS  ACTION  ROUTINES 

START  OF  BUFFER  DEFINITIONS  (BUFSDF) 


012767  000000'  OOOOOOG  B.STR: 


MOV 
RETURN 


#8FTAB,.BFPTR 


SETUP  TABLE  POINTER 


005067 
016700 
022700 
001410 
016701 
061001 
042001 
010130 
010067 


OOOOOOG 
OOOOOOG 
000040' 

OOOOOOG 


OOOOOOG 


BUFFER  DEFINITION  NUMBER  CBUFSDF) 


B.ZERO: 
B.NUM:: 


CLR 
MOV 
CMP 
BEQ 
MOV 
ADD 
BIC 
MOV 
MOV 
RETURN 


.PNUMB 

.BFPTR.RO 

*8FEND,R0 

101$ 

. PNUMB, R1 

(R0),R1 

(R0)+,R1 

Rl,a(RO)t 

R0,.8FPTR 


ZERO  THE  COUNTER 

GET  BUFFER  TABLE  POINTER 

AT  END  OF  TABLE  ? 

IF  EQ,  rES  -  TOO  MANY  ARGUMENTS 

GET  NUMBER 

ROUND  IT  UP 

STORE  THE  NUMBER 

SAVE  NEW  POINTER  VALUE 


026727 
001053 

016700 
032767 
001402 
005267 

066700 
062700 
016701 

010146 
010046 
016700 
066700 
062700 
016701 

062600 
062601 
005500 
062701 
005500 

012702 
006200 


101$:        EMSGSR     XR 


ERROR   -   TOO  MANY   ARGS 


END  OF   BUFFER   DEFINITIONS    (BUFSDF) 


B.ZEND: 
OOOOOOG  000040'    B.END:: 


OOOOOOG  5$: 

000001      OOOOOOG 


OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


000077 
000006 


:CALL 
CMP 
BNE 

MOV 
BIT 
BEQ 
INC 


B.ZERO 

.BFPTR,#BFEND 

101$ 

.RDBSZ.RO 
#1,.MXPR0 
7$ 
.MXPRO 


7$: 


10$: 


ADD 

. MXPRO, RO 

ADD 

*CRC$OV,RO 

MOV 

.RDBNM.Rl 

CALL 

$MUL 

MOV 

R1,-(SP) 

MOV 

RO,-(SP) 

MOV 

.SD8SZ,R0 

AD) 

.MXPRO, RO 

#CRCSOV,R0 

.SDBNM,R1 

CALL 

SMUL 

ADD 

(SP)+,RO 

ADD 

(SP)t,Rl 

ADC 

RO 

ADD 

#77, Rl 

ADC 

RO 

.IF  DF  M$$MGE 

MOV 

#6,R2 

ASR 

RO 

ZERO  THE  LAST  PARAMETER 

AT  END  OF  TABLE  ? 

IF  NE,  NO  -  TOO  FEU  ARGUMENTS 

GET  RDB  SIZE 
ODD  VALUE  ? 
IF  NO  -  BRANCH 
MAKE  VALUE  EVEN 

ADD  DLC  OVERHEAD 

ADD  CRC  OVERHEAD  TO  RDB  SIZE 

GET  NUMBER  OF  RDB'S 

GIVING  BYTES  NEEDED  FOR  RDB'S 

SAVE  COUNT 

DOUBLE  PRECISION 
GET  SDB  SIZE 
ADD  DLC  OVERHEAD 
ADD  CRC  OVERHEAD 
GET  NUMBER  OF  SDB'S 
GIVING  BYTES  NEEDED  FOR  SDB'S 
INCLUDE  RDB  COUNT 

DOUBLE  PRECISION 

ROUND  UP  TO  NEXT  MULTIPLE  OF  100 


SHIFT  DOUBLE  REGISTER 
RIGHT  SIX  PLACES 
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CF2A 
MACR 


1 
2 
3 

5 
6 
7 
8 
9 
10 

n 

12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
«0 
Al 
A2 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE   CF2AC4  -  CONFIG  FILE  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI .1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL<-85 

OECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF   ITS 
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MACRO  DEFINITIONS 


53 
5A 

55 
56 
57 
58 
59 


.S8TTL  MACRO  DEFINITIONS 

LOCAL  MACROS 

.MCALL  EMSG$R,NTLER$,RETC,FNSDF$,DHB[)F$,SERDF$ 

.MCALL  PDVDF$,SLTDF$ 
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CF2AC5 

CREATED  BY 

MACRO  ON  29 

-JUN-85  AT 

00:11 

SYMBOL 

:R0SS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

CERR 

~     *:*t*** 

GX 

6-80 

CFLIN 

r  ^♦t*  ** 

GX 

6-80 

CMPSTR 

000116 

R 

7-122 

#8-145 

8-152 

CRFNBK 

000332 

H 

#11-273 

12-360 

DECPT 

=      ****** 

GX 

7-102 

11-297 

DEVBUF 

r  ****** 

GX 

10-238 

10-240 

12-389 

DVSZ 

=  ****** 

GX 

12-390 

DSFNB 

000034 

7-103 

11-298 

FIELDC 

=   ****** 

GX 

7-121 

FILBUF 

=  ****** 

GX 

10-249 

10-250 

12-397 

FLSZ 

r  ****** 

GX 

12-398 

FMT8 

-  ****** 

GX 

6-80 

FM.8 

=  000000 

#6-80^, 

FNBEXT 

=  ****** 

GX 

10-253 

FNBLN 

-  ****** 

GX 

*10-254 

11-274 

11-288 

FNBSZ 

n  ****** 

GX 

10-232 

FNBUFF 

-  ****** 

GX 

7-117 

10-231 

11-290 

F.NXT 

000000 

#6-67 

F.USE 

000002 

#6-67 

7-118 

7-119 

F.VAR 

000003 

#6-67 

INIBUF 

000160 

R 

#8-182 

10-233 

12-391 

I$$AS 

-  ****** 

6-69 

KSAR5 

-   ****** 

GX 

7-104 

7-127 

11-281 

LF.ACT 

=  100000 

#6-70 

LF.BRO 

=  000400 

#6-70 

LF.BWT 

=  000007 

#6-70 

LF.ENA 

=  002C00 

#6-70 

LF.LPB 

=  001000 

#6-70 

LF.MDC 

=  000100 

#6-70 

LF.MFL 

=  004000 

#6-70 

LF.MTP 

=  000020 

#6-70 

LF.PAC 

=  000200 

#6-70 

LF.RDY 

=  040000 

#6-70 

LF.REA 

=  010000 

#6-70 

LF.SER 

=  000040 

#6-70 

LF.TIM 

=  000010 

#6-70 

LF.UNL 

=  020000 

#6-70 

LF.X2P 

=  000000 

#6-70 

LN.CLO 

=  000000 

#6-70 

LN.DUM 

=  000005 

#6-70 

LN.LOA 

=  000004 

#6-70 

LN.LOO 

=  000003 

#6-70 

LN.OAU 

=  000003 

#6-70 

LN.OFF 

=  000001 

#6-70 

LN.ON 

=  000000 

#6-70 

LN.OOP 

=  000004 

#6-70 

LN.OPE 

=  000001 

#6-70 
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CREF   04.00 


-161 


CF2A 
ERRC 


♦12-387 
12-385 

*12-371 
12-395 
11-314 


12-399 
12-367 


12-380 


LN.REF 

=  000002 

#6-70 

L N.SER 

=  000002 

#6-70 

LN.STA 

=  000017 

#6-70 

LN.SUB 

=  000360 

#6-70 

LN.TRi 

=  000006 

#6-70 

CF2AC5 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:11 
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rF?, 
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CF2AC6  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:11 
ERROR  MESSAGES 


236 
237 
238 

':   STORE 

NODE/HOST  NUMBER  (NODSDF) 

239 

240 

.ENABL 

LS8 

241  000356 

022767 

000077 

OOOOOOG 

NODARE  : 

:CMP 

#63.,.PNUMB 

242  000364 

002472 

BLT 

101$ 

243  000366 

016701 

OOOOOOG 

MOV 

.PNUMB,R1 

244  000372 

ASL$ 

10.,R1  „      ; 

245  000416 

017700 

OOOOOOG 

MOV 

aDECPT,RO 

246  000422 

010160 

000014 

MOV 

R1,D$LNUM(R0) 

247  000426 

248 

249  000430 

RETURN 

022767 

001777 

OOOOOOG 

NODNUM: 

:CMP 

#1023.,.PNUMB   ; 

250  000436 

002445 

BLT 

101$ 

251  000440 

017700 

OOOOOOG 

MOV 

aOECPT.RO 
.PNUM8,D$LNUM(R05 

252  000444 

056760 

OOOOOOG 

000014 

BIS 

253  000452 

RETURN 

254 
255 
256  000454 

022767 

000077 

OOOOOOG 

HSTARE: 

:CMP 

#63.,.PNUMB 

257  000462 

002433 

BLT 

101$          ; 

258  000464 

016701 

OOOOOOG 

MOV 

.PNUM8,R1      ; 

259  000470 

ASL$ 

10., Rl 

260  000514 

017700 

OOOOOOG 

MOV 

aOECPT.RO 

261  000520 

010160 

000022 

MOV 

R1,D$HOST(RO) 

262  000524 

RETURN 

263 

264 

265  000526 

022767 

001777 

OOOOOOG 

HSTNUM: 

:CMP 

#1023.,.PNUMB 

266  000534 

002406 

BLT 

101$ 

267  000536 

017700 

OOOOOOG 

MOV 

aOECPT.RO      , 
.PNUMB,D$HOST(R0) 

268  000542 

056760 

OOOOOOG 

000022 

BIS 

269  003550 

270 

271  000552 

RETURN 

101$: 

EMSGSR 

XU 

272 

.DSABL 

LS8 
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CHECK  FOR  LEGAL  VALUE 

IF  ILLEGAL  AREA  -  BRANCH 

STORE  VALUE  IN  A  REGISTER 

POSITION  AREA  BITS 

STORE  DECNET  HOME  BLOCK  POINTER 

STORE  AREA  NUMBER 


CHECK  FOR  LEGAL  NODE  ADDRESS 
IF  ILLEGAL  -  BRANCH 
STORE  DECNET  HOME  BLOCK  POINTER 
;  STORE  NODE  ADDRESS 


CHECK  FOR  LEGAL  HOST  AREA 

IF  ILLEGAL  -  BRANCH 

STORE  VALUE  IN  REGISTER 

POSITION  AREA  BITS 

STORE  DECNET  HOME  BLOCK  ADDRESS 

STORE  HOST  AREA 


CHECK  FOR  LEGAL  HOST  NODE  ADDRESS 
IF  ILLEGAL  -  BRANCH 
STORE  DECNET  HOME  BLOCK  ADDRESS 
;  STORE  HOST  ADDRESS 


ERROR  -  ILLEGAL  NODE  NUMBER 


cf; 

L0( 
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LOCAL  MACROS 
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53 
5A 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 

67  000000 

68  000000 

69  000000 

70  000000 
71 

72 


.SBTFL  LOCAL  MACROS 


LOCAL  MACROS 

.MCALL 

.IF  DF 
.MCALL 

RDSDFS 

.ENDC 

ADJDFS 
NTLDFS 
CTRDFS 
LLTDFS 


EMSG$R,NTLDF$,CTRDF$,LLTDF$, ADJDFS 

R$$11D  !  I$$AS 
MAP$S,CRPG$S,RDBDF$ 


DEFINE  RDB  OFFSETS  AND  SYMBOLS 


DEFINE  ADJACENCY  DATA  BASE  SYMBOLS 
DEFINE  NTL  OFFSETS  AND  SYMBOLS 
DEFINE  COUNTER  BLOCK  OFFSETS 
LOGICAL  LINK  OFFSETS 


CF 
MA 
MA 

AD 

CA 

CT 
EM 
LL 
NT 
RE 
SO 
SW 
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CF2AC7  CREATED   BY 

MACRO   CROSS   REFERENCE 


MACRO     ON  29-JUN-85   AT   00:12 


J   11 

PAGE   « 

CREF       04.00 


MACRO  NAME 

REFERENCES 

ADJDFS 

#5-58 

CALL 

6-117 

6-277 

CTRDFS 

#5-58 

EMSGSR 

#5-58 

LLTDFS 

#5-53 

NTLDF$ 

#5-58 

RETURN 

6-221 

SOB 

7-348 

SWSTKS 

6-192 

5-67 

6-136 

7-408 

5-69 

6-186 

5-70 

5-68 

6-281 

6-276 


6-151 
6-227 
7-/.  02 


6-164 


7-410 


6-192 


6-214 


6-218 


6-224 


6-267 


6-276 


i.F II  r .»in«»rF?irR 
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CF2AC8  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:12 
Symbol  table 

000002 

000002 

000017 

000360 

000006 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

OOOOOA 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

OOOOK 

000021 

000013 

00012'4 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000460RG 

******  GX 

******  Gx 

000000 

000000 

000010 

******  GX 

000000 

000001 

000000 

000000 

******  GX 

000162R 
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A$$CHK= 

000000 

D$SYNC= 

000000 

LN.REF= 

A$$CPS= 

000000 

D$$YNM= 

000000 

LN.SER= 

A$$PRI= 

000000 

ENDHEX= 

******  GX 

LN.STA= 

A$$TRP= 

000000 

ENDPAS= 

******  GX 

LN.SU8= 

CERR  = 

«.♦***  GX 

E$$XPR= 

000000 

LN.TRI= 

CFLIN  = 

.*»**»  GX 

FMT8  = 

******  GX 

L$$ASG= 

CIRMUL= 

*««»**  GX 

FM.8  = 

000000 

LI$DRV= 

CIRNAM= 

»**•«»  GX 

FPDV 

000656R 

L$$P11= 

CIRNUM= 

******  GX 

FSLT 

000724R 

L$$nfi  = 

CIRUNT= 

«***♦*  GX 

F$$LVL= 

000001 

L.COSI 

C$$C<P= 

000000 

F.NXT 

000000 

L.CTL 

C$$ORE= 

000^00 

F.USE 

000002 

L.CVA 

CS$RSH= 

177564 

F.VAR 

000003 

L.DDM 

DECPT  = 

******  GX 

G$$TPP= 

000000 

L.DDS 

DSAMXC 

000072 

G$$TSS= 

000000 

L.DLC 

DSAMXH 

000074 

G$$TTK= 

000000 

L.DLM 

D$ANN 

000000 

G$$WR[)= 

000000 

L.DLS 

OSBRPR 

000102 

HEXIND 

000604R 

L.FLG 

D$BRTM 

000100 

HEXSTR= 

******  GX 

L.KRBA 

DSDELF 

000045 

HRDADD 

000074RG 

L.LEN  = 

OSDELW 

000046 

I$$RAR= 

000000 

L.MPF 

0$END  = 

000104 

I$$RDN= 

000000 

L.NMST 

DSFNB 

000034 

KSAR5  = 

******  GX 

L.NSTA 

DSHIOR 

000024 

K$$CNT= 

177546 

L.OUNR 

DSHOST 

000022 

K$$CSR= 

177546 

L.UNT 

DSINAC 

000044 

K$$LDC= 

000000 

H$$CRB= 

DSINCT 

000042 

K$$TPS= 

000074 

M$$CRX= 

DSIPL 

000051 

LD$LP  = 

000000 

M$$FCS= 

DSLID 

000020 

LET   = 

000100 

H$$MGE= 

DSLNAM 

000006 

LF.ACT= 

100000 

M$$NET= 

DSLNUM 

000014 

LF.BRO= 

000400 

M$$OVR= 

D$LST 

000047 

LF.BWT= 

000007 

N$$ACC= 

DSMAXC 

000064 

LF.ENA= 

002000 

N$$BUF= 

DSMAXH 

000066 

LF.LPB= 

001000 

N$$LDV= 

DSMAXV 

000070 

LF.MDC= 

000100 

N$$MCP= 

DSMLL 

000040 

LF.MFL= 

004000 

N$$MLL= 

OSMNOD 

000041 

LF.MTP= 

000020 

N$$MOV= 

D$NA 

000062 

LF.PAC= 

000200 

N$$NCT= 

DSNBEA 

000056 

LF.RDY= 

040000 

N$$PEM= 

DSNBRA 

000054 

LF.REA= 

010000 

PAS 

0$NEND= 

000054 

LF.SER= 

000040 

PDVNM  = 

D$NLN 

000030 

LF.T1M= 

000010 

PDVTA  = 

D$NN 

000060 

LF.UNL= 

020000 

P$$P45= 

DSOUTT 

000043 

LF.X2P= 

000000 

P$$WRD= 

DSRETF 

000050 

LN.CL0= 

000000 

Q$$OPT= 

D$RNN 

000002 

LN.DUM= 

000005 

RTSPC  = 

DSRTMR 

000076 

LN.LOA= 

000004 

R$$DER= 

DSSEG 

000036 

LN.LOO= 

000003 

R$$K11= 

DSSER 

000032 

LN.0AU= 

000003 

R$$SND= 

DSSQRL 

000052 

LN.0FF= 

000001 

R$$11M= 

D$$BUG= 

177514 

LN.ON  = 

000000 

SERADD= 

D$$ISK= 

000000 

LN.0OP= 

000004 

SERALL 

D$SLn  = 

000001 

LN.0PE= 

000001 

.  ABS. 

177776    000 

(RW,I,G8L,ABS,0VR) 

001022    001 

(RW,!,LCL,REL,CON) 

DATA 

000052    002 

(RW,I,LCL,REL,CON) 

SERBEG= 

SERCR 

SERCUR= 

SERDCT= 

SERDEV= 

SERDMP= 

SEREND 

SERFIN= 

SERFLG= 

SERHST= 

SERINI 

SERN0D= 

SERPAS= 

SERSLN 

SERSLT= 

SERTMP= 

SF.ACT= 

SF.CJR= 

SF.DEV= 

SF.OIA= 

SF.DPA= 

SF.DPC= 

SF.DUM= 

SF.ENA= 

SF.HAD= 

SF.HST= 

SF.L0A= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.PH3= 

SF.PSS= 

SF.REA= 

SF.SEC= 

SF.SER= 

SF.SVC= 

SF.TER= 

SF.UNL= 

SLTMA  = 

SLTNM  = 

S$$URG= 

S$$YSZ= 

S.ADD 


_  CIR 

S.COST 

S.DEV 

S.DiA 

S.DPA 

S.DPC 

S.DUM 

S.FLAG 

S.FLG 


******  GX 

000632RG 

******  GX 

**»»«*  GX 

******  GX 

«*»*»*  GX 

000144RG 

******  GX 

******  GX 

******  GX 

000056RG 

******  GX 

******  GX 

OOOOOORG 

******  GX 

******  GX 

000200 

000010 

000020 

004000 

000100 

000200 

010000 

000100 

000004 

000002 

002000 

000004 

000040 

000020 

020000 

000040 

000010 

000400 

000001 

000002 

001000 

000040 

******  GX 

******  GX 

000000 

007600 

000004 

000016 

000001 

000020 

000046 

000032 

000036 

000050 

000002 

000000 


HAD 

HST 

LEN 

LENG 

LNK 

LOA 

NMST 
S . OWNR 
S.PSS 
S.SEC 
S.TER 
T$$KMG= 
T$$MIN= 
V$$CTR= 
X$$DBT= 
ZF.COU= 
ZF.DDM 


ZF.OIA= 

ZF.DLC= 

ZF.DVP= 

ZF.INI= 

ZF.KHX= 

ZF.LLC= 

ZF.LMC= 

ZF.MAN= 

ZF.MFL= 

ZF.MTM= 

ZF.HUX= 

ZF.PSE= 

ZF.SLI= 

ZF.TIM= 

ZF.X3P= 

ZS.ASN= 

ZS.BSY= 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN  = 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

SCATS 

$CEACX= 

SERRSS 

$HEADR= 

$LINKX= 

$XAL0C= 

.PSTCN= 

.PSTPT= 


000010 
000006 
000004 
000052 
000000 
000044 
000002 
000003 
000022 
000040 
000042 
000000 
000000 
001000 
000000 
001000 
000001 
004000 
000002 
100000 
040000 
000020 
000004 
000100 
020000 
000010 
000400 
000040 
002000 
010000 
000200 
000000 
100000 
140000 
000014 
000016 
000000 
000010 
=  000016 
000006 
000020 
000004 
000012 
000007 

=   ****** 

****** 


GX 
GX 

OOOOOOR 

GX 
GX 
GX 
GX 

******  GX 


****** 


****** 
****** 


002 
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ACTION  ROUTINES   FOR   PARSDF 


J  13. 


134 

MOV 

#$ERRXB,2(SP) 

*  SAY  PARTITION  IS  BUSY  ??? 

135 
136 
137 
138  000132 

.IFF 

032761 

OOOOOOG 

OOOOOOG 

BIT 

#PS.C0M,P.STAT(R1)  ; ♦  IS  IT  A  COMMON  ? 

139  OOOIAO 

001004 

BNE 

20$ 

*  IF  NE,  YES 

UO  000142 

012766 

OOOOOOG 

000002 

MOV 

#$ERRXA,2(SP) 

•  ERROR  -  PARTITION  NOT  COMMON 

141  000150 

000424 

BR 

50$ 

* 

142  000152 

016100 

OOOOOOG 

20$: 

MOV 

P.MAINCRD.RO   . 
P.BUSYtKRi) 

*  GET  MAIN  PCS  ADDRESS 

143  000156 

105761 

000001 G 

TSTB 

*  MAKE  SURE  NEITHER  IS  BUSY 

144  000162 

001003 

BNE 

30$ 

* 

145  000164 

105760 

000001 G 

TSTB 

P.3USY+1(R0) 

* 

146  000170 

001404 

BED 

40$ 

* 

147  000172 

012766 

OOOOOOG 

000002 

30$: 

MOV 

#$ERRXB,2(SP) 

»  ERROR  -  PARTITION  BUSY 

148  000200 

000410 

BR 

50$ 

* 

149  000202 

156161 

OOOOOOG 

000001 G 

40$: 

BISB 

P.BUSY(R1),P.BUS^ 

+1(R1)  ;*  MARK  PARTITIONS  BUSY 

150  000210 

156160 

OOOOOOG 

000001 G 

BISB 

P.BUSY(R1),P.BUS1 

+1(R0)  ;* 

151  000216 

152 

153 

154 

155  000222 

010167 

OOOOOOG 

MOV 

R1,.PCB 

*  SAVE  PCB  ADDRESS 

.ENDC 

50$: 

RETURN 

*  BACK  TO  USER  MODE 

156  000224 

005700 

60$: 

TST 

RO 

DID  ERROR  OCCUR  IN  KERNEL  MODE 

157  000226 

001401 

BEQ 

70$ 

IF  EO,  NO 

158  000230 

CALL 

a(Ro;+ 

GO  PRINT  ERROR  MESSAGE 

159  000232 

016700 

OOOOOOG 

70$: 

MOV 

.PCB,RO 

WAS  A  PARTITION  FOUND  ? 

160 
161 

.IF  DF  M$$MGE 

162  000236 

001411 

BEQ 

100$ 

IF  EQ,  NO  -  JUST  EXIT 

163 

.IFF 

164 

BNE 

80$ 

IF  NE,  YES 

165 

EMSG$R 

XC 

ERROR  -  PARTITION  NOT  IN  SYSTEM 

166 
167 

168  000240 

.ENDC 

016746 

OOOOOOG 

80$: 

MOV 

.NTPSZ,-(SP) 

SAVE  RDB/SDB  SIZE 

169  000244 

005216 

INC 

(SP) 

PLUS  1  FOR  NETLDR  HOME  BLOCK 

170  000246 

026026 

OOOOOOG 

CMP 

P.BLKS(RO),(SP)+ 

;  IS  PARTITION  BIG  ENOUGH  ? 

171  000252 

101003 

BHI 

90$ 

IF  HI,  YES 

172  000254 

EMSG$R 

XD 

ERROR  -  PARTITION  TOO  SMALL 

173  000262 

90$: 

174 

.IF  NDF  M$$MGE 

175 

MOV 

P.REL(R0),R1 

POINT  AT  START  OF  PARTITION 

176 

MOV 

R1,.H0ME 

SAVE  HOME  BLOCK  ADDRESS 

177 

MOV 

R0,(R1)t 

STORE  NTPOOL  PCB  ADDRESS 

178 

CLR 

(RIM 

NO  UMR  BLOCK  ADDRESS 

179 

.ENDC 

180 

.ENDC 

181 

182  000262 

100$: 

RETURN 

183 

184 
185 
186 

;  SECOND  PARTITION  NAME  (PAR$DF) 

187 

188  000264 

012702 

OOOOOOG 

P.PAR2 

:MOV 

*.PNAM2,R2 

;  POINT  AT  WORK  AREA 

189  000270 

010246 

PNAME: 

MOV 

R2,-(SP) 

;  SAVE  POINTER 

190  000272 

010246 

MOV 

R2,-(SP) 

;   TWICE 

r  T  I  nn     Dm  I 
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SYMBOL  CROSS  REFERENCE 


J  U 

PAGE  1 

CREF   04.00 


CF 
DE 


SYMBOL  VALUE 


BRADF 

BRDJ 

CFGBF 

CFGSZ 

CIRMUL 

CIRNUM 

CIRUNT 

DADOR 

OCT 

DECDEF 

ECLLLN 

ECLMC 

ECLML 

ECLNOD 

EXT 

EXTN 

FE.EXT 

FILBUF 

FILE 

FMASK 

FNBUFF 

F.NXT 

F.USE 

F.VAR 

HSAD 

HSAR 

1$$AS 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LLCKW 

LLCST 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

I  N.OAU 

LN.OFF 

LN.ON 

LN.OOP 


000000  R 
001056  RG 
*»»«**  Gx 
»»»**»  GX 
»»***»  GX 
»*♦»♦»  GX 
*♦»*•*  GX 
001000  RG 
001016  RG 
0001 74  R 
»»**««  GX 
001046  RG 
001036  RG 
.***».  GX 
000550  RG 
000003 
.»*««*  GX 
******  GX 
000510  RG 
******  GX 
******  GX 
000000 
000002 
000003 
000752  RG 
000732  RG 
****** 
100000 
000400 
000007 
002000 
001000 
000100 
004000 
000020 
000200 
040000 
010000 

:  000040 
:  000010 

:  020000 

:  000000 
000000  RG 
000000  RG 

:   000000 

^  000005 

■   000004 

:   000003 

^  000003 

^  000001 

:  000000 

■■   000004 


REFERENCES 

7-84 
#9-389 

7-95 

7-94 
♦9-337 
♦9-334 
♦9-340 
#9-367 
#9-372 

7-90 
♦9-383 
#9-386 
#9-383 
♦9-386 
#8-297 
#6-71 

7-231 

8-274 
#8-274 

7-231 

8-281 
#6-63 
#6-63 
#6-63 
#9-358 
#9-352 

6-65 
#(-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 

7-93 
#10-398 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 


8-297 
8-301 


8-312 


8-302 


♦8-306 


♦8-307 


#10-398 


_DC  AT  nn . 1 7 


K  U 


r 


L 


CF2DEC  -  CONflG  FILE  ACTION 
DECSDF  ACTION  ROUTINES 

173 

174 

175 

176 

177  000462 

178 

179  000462 

180  000462 

181  000462 
182 

183  000462 

184  000462 
185 


J  15 
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CF 


000462 
187  000462 
1 RR 

189  000462 

190  000462 
191 

192  000462 

193  000462 
194 

195  000462 

196  000462 
197 

198  000462 

199  000462 
200 

201  000462 

202  000462 
203 

204  000462 

205  000462 
206 

207  000462 

208  000462 
209 

210  000462 

211  000462 
212 

213  000462 

214  000462 
215 

216  000462 

217  000462 
218 

219  000462 

220  000462 
221 

222  000462 

223  000462 
224 

225  000462. 

226  000462 
227 

228  000462 

229  000462 


DECSDf  MACRO  STATE  TABLE 

ISTATS  DECST.DECKW 

STATES  DECDF 
TRANS  XDECSDFX.DECDFI.J.SYNERR 
TRANS  SLAMDA.SFXIT 


STATES 
TRANS 

DECDF1 
SN JMBR , 

,ECLLNK 

STATES 
TRANS 

<'  .> 

STATES 
TRANS 

SNUMBR, 

,N0DCT 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SNUM8R , 

,INCT 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR, 

,OUTT 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR , 

,1NAC 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SNUMBR , 

,DELF 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SNUMBR , 

,DELW 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR , 

,IPL 

STATES 
TRANS 

<'  ,> 

MAX  LOGICAL  LINKS 


MAX  NODE  COUNTERS 


INCOMING  TIMER 


OUTGOING  TIMER 


INACTIVITY  TIMER 


DELAY  FACTOR 


DELAT  WEIGHT 


INPUT  PACKET  LIMITER 
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255 
256 
257 
258 
259 

261  30$: 

262 

263 

264 

265 

266 

267        000001  .END 


^ol^ 
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ASLB 

R4 

ASL 

M 

ASL 

M 

SWAB 

M 

MOV 

R4,M.UMVL-2(R0) 

MOVB 

R5,M.UMVH-2(R0) 

DEC 

RO 

DEC 

RO 

RETURN 

.ENDC 

CALCULATE  HIGH  BYTE  Of  LOW  16  BITS 
(LOSING  BIT  200  FIRST) 

FORM  LOW  SIXTEEN  BITS  OF  ADDRESS 

SET  UP  LOW  16  BITS  OF  ADDRESS 

SET  BITS  4  8  5 

POINT  BACK  TO  LINK  WORD  PRESERVING  C-BIT 

return' TO  CALLER 
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SYMBOL    CROSS   REFERENCE 

REFERENCES 


K     1 

PAGE   A 
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.YMBOL      VALUE 


11-297 

.PNUMH 

-   ♦»'■*♦* 

GX 

■1-210 

.»STCN 

-       **■»**♦ 

GX 

11-201 

.PSTP^ 

=   ****** 

GX 

11-203 

.TPARS 

r   ****** 

GX 

9-122 

11-220 


11-243 


11-258 


11-269 


11-281 


11-295 


CFGXi 
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Symbol  table 


CF2A 
FIL$ 


as$chk;= 

A$$CPS= 
A$$PRI= 
A$$TRP= 
BLKSMN= 
BLKSMX= 
CERR  = 
CFGBF  = 
CFGSZ  = 
CFLIN  = 
CHKBLK= 
CHKWND= 
C$$CKP= 
C$$ORE= 
C$$RSH= 
D$$BUG= 
DS$IS<= 

D$$Ln  = 

D$$YNC= 
D$$YNM= 
E$$XPR= 
FMT8  = 
FM8B  = 
FM.8  = 
FM.8B  = 

.  ABS. 

DATA 
SSTATE 
$<TAB 
$<STR 


000000 

000000 

000000 

000000 

000040 

002000 

*»•♦»*  GX 

.««»*♦  GX 

**.*«♦  GX 

*»»♦♦»  GX 

******  GX 

•♦*«»•  GX 

000000 

OOOAOO 

177564 

1775U 

000000 

000001 

000000 

OOOOOC 

000000 

»***♦*  GX 

*»»*.»  GX 

000000 

000000 

000000 
000330 
000256 
000060 
000002 
000007 


F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

L$$ASG= 

L$$DRV= 

L$$P11= 

LS$nR= 

M$$CRB= 

H$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

NEXT 

N$$ACC= 

N$$BUF= 


000001 
000000 
000000 
000000 
000000 
000000 
000000 
177546 
177546 
000000 
000074 
000000 
000000 
000000 
000001 
000000 
000124 

oooooo 

000000 

oooooo 
oooooo 
oooooo 

OOOOOOR 

000001 

000001 


N$$LDV= 
N$$MCP= 
N$$MLL^ 
N$$MOV= 
N$$NCT= 
N$$PEM= 
P$$P45= 
P$$WRD= 
Q$$OPT= 
RTSPC  = 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SYNERR= 
S$$URG= 
S$$VSZ= 
TIMRCT 
T$$KMG= 
T$$MIN= 
V$$CTR= 
WNDSMX= 
002  X$$DeT= 
X3CTL 


000001 
000001 
000001 
000010 
000001 
000001 

oooooo 
oooooo 

000010 
*»*««»  GX 

oooooo 

000001 

oooooo 
oooooo 

******  GX 

oooooo 

007600 
000010R 

oooooo 
oooooo 

001000 
000177 

oooooo 

000004R 


X3DEV 

X3NXT 

X3PDF 

X3PKU 

X3PST 

X3TMCT= 

X3UNT 

X3.BEG 

X3.D8S 

X3.DWS 

X3.END 

X3.MBS 

X3.MUS 

X3.NXT 

$ALPHA= 

$ANY  = 

$8LANK= 

002  $DIGIT= 
$DNUMB= 
$EOS  = 
$ERR1T= 
$ERR2B 
$ERR2C= 

002  $ERR2D 


000002R 

000042R 

OOOOOOR 

OOOOOORG 

OOOOOORG 

000007 

000006R 

000212R 

000052R 

000132R 

000312R 

000074R 

0001 54R 

000224R 

000022 

000020 

000006 

000024 

000014 

000012 

******  GX 

000012R 
******  GX 
000046R 


002  $ERR2E 

003  $ERR2F= 

003  $ERR2G 

004  $ERR2H 
003  $EX1T  = 

$FAIL  = 
002  $LAMDA= 
$NUMBR= 
$QX3P 
$RAD50= 
$STRNG= 
$SUBXP= 
$X3CAL= 
$X3DBS= 
$X3DWS= 
$X3MBS= 
$X3MWS= 
$$$FLG= 
$$$KEr= 
$$$STA= 
$$$TMP= 
.PNUMB= 
.PNUMH= 
.TPARS= 


0001 22R 

******  GX 

0001 56R 

000232R 

OOOOOO 

M7777 

OOOOOO 

000002 

OOOOOORG 

000016 

000004 

000010 

******  GX 

******  GX 


002 

002 
002 


002 


002 


******  GX 
******  GX 
******  GX 
177777 
OOOOOO 
000042R 
OOOOOOR 
******  GX 
******  GX 
******  GX 


003 
005 


Errors  detected: 


000 
001 
002 
003 
004 
005 
0 


(RW,1,GBL,ABS,0VR) 
(RW,I,LCL,f;LL,CON) 
(RU,D,LCL,REL,CON) 
CRU,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 


♦*»   Assembler   statistics 

Work      file     reads:   0 

Work      file  writes:    0 

Size  of   work    file:    12456  w^^rds      (   4y  Pages) 

Size  of   core  pool:    14440  Words      (    55  Pages) 

Operating     system:    RSX-1 1M/PLUS 

sttcFGX3p!v2/"132,134]rGX3P/CR/-SP=SY:[1,nRSXI«ICM.SML/ML,[130,110]NErLIB/ML,ri30,10]RSXMCM/PA:l,C152,10KFGX3P 


CFGX3P 


CREATED  BV     MACRO     ON  29-JUN-85   AT   00:09 
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L     2 


CF2/ 


012700 
012710 
012010 
012010 
022767 
103A11 
012700 
016701 
112120 
005367 
003374 


000000' 
020040 


000006  OOOOOOG 
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CF2AC1  -  INITIAL  COMFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:09 
FILSDF  ACTION  ROUTINES 

235 
236 
237 

238  000312 

239  000316 

240  000322 

241  000324 

242  000326 

243  000334 

244  000336 

245  000342 

246  000346 

247  000350 

248  000354 

249  000356 
250 
251 
252 

253  000360 
254 
255 

256  000366 

257  000374 

258  000376 

259  000402 

260  000426 


000000' 
OOOOOOG 

OOOOOOG 


•  REMSDF  ACTION 

ROUTINES 

R. NAME:: MOV 

#NAME,RO 

MOV 

#"  ,(R0) 

MOV 

(R0)+,(RO) 

MOV 

(RO)+,(RO) 

CMP 

#6,.PSTCN 

BLO 

101$ 

MOV 

#NAME,RO 

MOV 

.PSTPT,R1 

10$:    M0V8 

(R1)+,(R0)+ 

DEC 

.PSTCN 

BGT 

10$ 

RETURN 

;  ERROR  CONDITIONS 

101$:   EMSGSR 

YX 

261  000432 

262  000434 
263 

264  000436 

265 

266 

267  000444 

268  000452 

269  000454 

270  000462 

271  000466 

272  000472 

273  000476 

274  000500 

275  000512 

276  000514 

277  000520 

278  000522 

279  000524 

280  000530 

281  000532 

282  000540 

283  000546 

284  000554 

285  000562 
286 

'7  000566 
a68  000572 
289  000574 


022767 
002420 
016700 

010067 
001401 


290 
291 


022767 
002512 
056767 
012701 


103006 

000467 

010002 
010046 

012600 
016760 
016760 
016760 
016760 
005060 


103031 
000241 


000077  OOOOOOG  R.ARE:: 

OOOOOOG 

000006' 

101$: 

001777  OOOOOOG  R.NUM:: 

OOOOOOG  000006' 
000014 


10$: 


CMP 

BLT 

MOV 

ASL$ 

MOV 

BEQ 

RETURN 


#63.,.PNUMB 

101$ 

.PNUMB,RO 

10.,R0 

RO.RADDR 

101$ 


EMSG$R  YZ 


000000'  000002 

000002'  000004 

000004'  000006 

000006'  000010 
000012 


000576  017700  OOOOOOG 


CMP 

BLT 

BIS 

MOV 

SWSTKS 

CALL 

BCC 

RETC 

BR 

SAVMAP 

MOV 

MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CALL 

BCC 

CLC 

MOV 


#1023.,.PNUMB 

101$ 

.PNUMB,RADDR 

#R.LEN,R1 

30$ 

$XAL0C 

10$ 

RO 

20$ 

R0,R2 

R0,-(5P) 

$CEACX 

(SP)+,RO 

NAME,R.NAM(RO) 

NAME+2,R.NAM+2 

NAMEt4,R.NAM+4 

RADDR,R.ADD(RO 

R.fLAG(RO) 

QUICK 
18$ 


SDECPT.RO 
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PLACE  TO  STORE  NODE  NAME 
PAD  NODE  NAME  WITH  BLANKS 


IS  THE  NODE  NAME  THE  RIGHT  LENGTH 

IF  LO,  NO 

STORE  THE  NODE  NAME 


LOOP  <.PSTCN>  TIMES 


ILLEGAL  NODE  NAME 


CHECK  HIGH  LIMIT 

IF  ERROR  -  BRANCH 

STORE  VALUE  IN  A  REGISTER 

POSITION  AREA  BITS 

STORE  AREA 

IF  ERROR  -  BRANCH 


;  ILLEGAL  AREA  ADDRESS 


CHECK  FOR  HIGH  LIMIT 

IF  ERROR  -  BRANCH 

SAVE  REMOTE  ADDRESS 

GET  THE  LENGTH  OF  A  REMOTE  BLOCK 

ENTER  KERNEL  MODE 

TRY  TO  ALLOCATE  NODE  NAME  BLOCK 

BR  IF  SUCCESS 

SET  USER  C-BIT 

AND  EXIT 

SAVE  CURRENT  MAPPING 

SAVE  BUFFER  ADDRESS 

SET  BUFFER  ADDRESS 

GET  ACCESS  TO  BUFFER 

GET  MAPPED  BUFFER  ADDRESS 

STORE  THE  NODE  NAME 


cf; 

ERF 


(r6) 

(RO) 

)  ;• 


STORE  THE  NODE  ADDRESS 
INITIALIZE  FLAGS  WORD 

ATTEMPT  FAST  REMOTE  LIST  SETUP 

IF  SUCCESS  -  BRANCH 

IF  FAILURE  -  BEGIN  AT  HEAD  OF  LIST 

;*  GET  ADDRESS  OF  DECNET  HAME  BLOCK 


L  3 
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CF 
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CF2AC2  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.05b  Saturday  29-Jun-85  00:10 
ERROR  WSSAGES 


Page  7 


CF2 
TPA 


91 
92 
93 
9^ 
95 
96 
97 
98 
99  000010 

100  0000A6 

101  000110 

102  00015^ 

103  000224 
10A  000306 
105 

106 
107 
108 
109  000000 


.SBTTL  ERROR  MESSAGES 


ERROR  MESSAGES 


.ENABL 

1  r 

.NLIST 

BEX 

NTLERS 

,XW, 

NTLERS 

,XX, 

NTLERS 

,XV, 

NTLERS 

Xi, 

NTLERS 

.yv. 

NTLERS 

.n. 

.DSABL 

LC 

.NLIST 

HEX 

.EVEN 

.PSECT 

i,CERR,RTSPC,CFLIN,<]aegal   object   number> 
i,CERR,RTSPC,CFLIN,<megat  object  task  name> 
i,CERR,RTSPC,CFLIN,<megal  object  veri f ication> 
i,CERR,RTSPC,CFLIN,<Il.legal   object   type   flags   word> 
i,CERR,RTSPC,,<Object  or  Remote  block   aUocation   faiture> 
i,CERR,RTSPC,CFLIN,<Too  many  object   task  copies) 


CF2AC2  -   CONFIG  FILE   ACTION  ROU  MACRO  V05.03b   Saturday  29-Jun-85 


00:10 
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cf; 


K     5 

CF2AC?  -  NTLCF2  ACTION  ROUTINES  MACRO  V05.03b   Saturday  29-Jun-85   00:10 
TPARS    ACTION  ROUTINES   FOR  BUFSDF 


180  000202 

181  000204 
182 

183 

18A 

185 

186 

18?  000210 

1  RR 

189  0002U 

190 

191   000216 


006001 


010167     OOOOOOG 


20$: 


101J 


ROR 

Rl 

SOS 

R2,10$ 

.IFF 

BEQ 

20$ 

MOV 

#-l,R1 

SIC 

#77, fil 

.ENDC 

MOV 

RL.NTPSZ 

RETURN 

EMSGSR 

XS 

Page  7-1 


IF  NO  OVERFLOW,  OK 

ELSE  CAUSE  ALLOCATION  TO  FAIL 

LEAVING  ALLOCATION  SIZE 

SAVE  RD8/SDB  SIZE  REQUIREMENTS 


ERROR  -  TOO  FEW  ARGS 


CF2 

MAC 


L  5 
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CF. 


K  6 

CF2ACA  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:11  Page  5 
MACRO  CALLS 


CF2A 

MACR 


5A 

55 

56 

57 

58 

59 

60 

61 

62 

63  000000 

6A 

65 

66 

67 

68 

69 

70 

71 

72 

73 

7A 

75 


.SBTTL  MACRO  CALLS 
+ 

LIBRARY  MACRO  CALLS 

.MCALL   FLTDF$,EM5G$R,RETC,NTLER$ 

FLTDFS  ;  DEFINE  EVENT  FILTER  CONTROL  BLOCK  OFFSETS 

LOCAL  MACRO  DEFiNITIONS 


.MACRO  SAVMAP 

MOV  KSAR5,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV  (SP)+,KSAR5 

.ENDM 


SAVE  APR  5 


RESTORE  APRS 
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CF2/ 


K  7 

CF2ACS  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:11 
MACRO  DEFINITIONS 


61 
62 
63 
64 
65 

66  000000 

67  000000 

68  000000 

69  000000 

70  000000 
71 

72 

75 

7A 

75 

76 

77 

78  000000 

79 

80  000000 

81 

82 

83  000000 

8A 

85 


OFFSET  VALUES 

DHBDFS 
FN8DF$ 
SERDFS 
PDVDFS 
SLTDFS 


Page  6 


DEFINE  OECNET  HOME  BLOCK  OFFSETS 
DEFINE  FILE  NAME  BLOCK  OFFSETS 
DEFINE  SERVICE  BLOCK  OFFSETS 
DEFINE  PDV  OFFSETS 
DEFINE  SLT  OFFSETS 


LOCAL  ERROR  MESSAGES 

.PSECT  DATA 

NTLERS  ,FS,8,CERR,REP8C,CFLIN,<FUe  block  allocation  failure> 

.EVEN 

.PSECT 


CF2AC5  -  CONFIG  FILE  ACIION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:11  Page  1 


CF2AC5  CREATED  BY      MACRO     ON   29-JUN-85   AT   00:11 

SYMBOL    CROSS  REFERENCE 


K     8 

PAGE   2 

CREF       OA.OO 


CF2; 
ERRC 


SYMBOL      VALUE 


L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NM5T 

L.NSTA 

L.OWNR 

L.UNT 

MOVBUF 

N$$VCT 

REP8C 

R$$11D 

R$$11M 

R$$11S 

SERCUR 

SERFLG 

SEROFF 

SETBLK 

SETST 

SF.ACT 

SF.CIR 

SF.DEV 

SF.DIA 

SF.DPA 

SF.DPC 

SF.DUM 

SF.ENA 

SF.HAD 

SF.HST 

SF.LOA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.PH3 

SF.PSS 

Sf .REA 

SF.SEC 

5F.SER 

SF.SVC 

SF.TER 

SF.UNL 

SRHFNB 

STRPT 

STR5IZ 


GX 


=   ****** 
=   ****** 


000015 

000012 

177776 

000002 

OOOOOA 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

OOOOU 

000021 

000013 

00017'.  R 

****** 

****** 

****** 

000000 

GX 
GX 

******      GX 

000216   R 

000720  RG 

000200 

000010 

000020 

004000 

000100 

000200 

010000 

000100 

OOOOOA 

000002 

002000 

OOOOOA 

000040 

000020 

020000 

000040 

000010 

000400 

000001 

000002 

001000 

000040 

000000  R 

•**»**        QX 

.*....     GX 


REFERENCES 

#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#6-70 
#9-204 

7-109 

6-80 

6-69 

6-69 

6-69 

12-373 
*12-338 
*12-337 
#10-230 

12-366 
#6-70 
#6-68 
#6-68 
#6-68 
#6-68 
#6-68 
#6-68 
#6-70 
#6-68 
#6-68 
#6-68 
#6-70 
#6-70 
#6-70 
#6-68 
#6-68 
#6-70 
#6-68 
#6-70 
#6-70 
#6-68 
#6-70 
#7-101 
M2-385 
•12-586 


10-243 
11-278 


*12-342 

*12-341 

12-356 

#12-385 


12-350 


12-354 


12-346 


12-338 


12-342 
12-357 


10-247 


M2-346 
♦12-345 


10-252 


*12-350 
*12-349 


•12-354 
•12-353 


12-376 
12-377 


CF2Ar5  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:11  PAGE   3 
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CF2AC6  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday 
ERROR  !»IE"SAGES 


K  9 

29-Jun-85  00:11  Page  9 


cf; 

L0( 


27^ 
275 
276 

277  000560 

278  000564 

279  000566 

280  000572 

281  000576 
282 

283  000602 

284  000606 

285  000610 

286  000612 
287 

288  0006K 

289  000622 

290  000624 

291  000630 

292  000636 

293  000642 
294 

295 
296 
297 

298  000644 

299  000650 

300  000656 


PROCESS  NAME  (LLCSDF,  DLCSDF,  DDMSDF) 


016700  OOOOOOG 
010701 

010167  000000' 

017700  OOOOOOG 

017701  OOOOOOG 
001410 

012002 
001404 

026267  OOOOOOG  000000' 
001405 


010267  OOOOOOG 


PRONM:: 


10$: 


20$: 

30$ 
40$ 
50$ 


MOV 

MOV 

CALL 

MOV 

MOV 

MOV 
BEQ 
MOV 
BEQ 

CMP 

BEQ 

SOB 

EMSGSR 

MOV 

RETURN 


.PSTPT,RO 

PCRI 

$CAT5 

R1,NAME 

aPDVTA.RO 

aPDVNM.Rl 
40$ 

(R0)+,R2 
30$ 

Z.NAM(R2),NAME 

50$ 

R1,10$ 

XN 

R2,$PDVA 


GET  TPARS  POINTER 
ALLOW  "."  AS  CHARACTER 
CONVERT  TO  RAD50 
SAVE  THE  NAME 
GET  PDV  TABLE  ADDRESS 

GET  PDV  COUNT 

IF  ZERO,  ERROR 

GET  PDV  ADDRESS 

IF  ZERO,  SKIP  THIS  SLOT 

DO  NAMES  MATCH  ? 

IF  EQ,  YES 

LOOP  <PDV  COUNT>  TIMES 

ERROR  -  PROCESS  NOT  IN  SYSTEM 

SAVE  PDV  ADDRESS 


;  PROCESS  MARKED-FOR-LOAD  FLAG  (LLC$DF,  DLC$DF,  DDM$DF) 

016700  OOOOOOG        PRMFL::  MOV     $PDVA,RO       ;  GET  PDV  ADDREfS 
152760  OOOOOOG  OOOOOOG        BISB    #ZF .MFL,Z.FLG(RO)  ;  SET  MARKED-FOR-LOAD  FLAG 
10$:    RETURN 


L  9 
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CF 


K  10 

CF2AC7  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00t12 

LOCAL  MACR05 


7A 

75 

76 

77  000000 

78 

79 

80 

81 

82 

85 

84 

85 

86 

87  000002 

88  000010 
89 

90  000016 

91  000022 

92  000024 

93  000030 

94  000034 

95  000036 

96  000042 

97  000044 

98  000050 

99  000054 

100  000056 

101  000060 

102  000062 

103  000064 


000000 


K6TMP: 


.SBTTL  DATA  SECTION 
.WORD   0 
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;  $K6TAB  TEMP  LOCATION 


END  OF  PARTITION  DEFINITIONS  (PARSDF) 


016767 
066767 

016700 
001471 
066700 
062700 
006300 
062700 
006300 
062700 
042700 
000241 
006200 
006200 
006200 
006200 


OOOOOOG  OOOOOOG  P. ALL: 
OOOOOOG  OOOOOOG 


OOOOOOG 

OOOOOOG 
000004 

000077 

000077 
000077 


P. END: 


104  000066 

006200 

105  000070 

006200 

106  000072 

060067 

OOOOOOG 

107  000076 

060067 

OOOOOOG 

108  000102 

005767 

OOOOOOG 

109  000106 

001437 

110  000110 

005002 

111  000112 

3$: 

112  000112 

016700 

OOOOOOG 

113  000116 

005200 

114  000120 

066700 

OOOOOOG 

115  000124 

066700 

OOOOOOG 

116  000130 

012701 

000004 

117  000134 

118  000140 

062701 

000077 

119  000144 

042701 

000077 

1?0  000150 

000241 

121  000152 

006201 

K'2  000154 

006201 

123  000156 

006201 

124  000160 

006201 

125  000162 

006201 

126  000164 

006201 

127  000166 

060167 

OOOOOOG 

128  00OU2 

060167 

OOOOOOG 

129  000176 

005702 

130  000200 

001002 

.IF  DF  M$$MGE 


MOV 
ADD 

MOV 
BED 
ADD 
ADD 
ASL 
ADD 
ASL 
ADD 
BIG 
CLC 
ASR 
ASR 
ASR 
ASR 
ASR 
ASR 
ADD 
ADD 
TST 
BEQ 
CLR 

MOV 

INC 

ADD 

ADD 

MOV 

CALL 

ADD 

BIC 

CLC 

ASR 

ASR 

ASR 

ASR 

ASR 

ASR 

ADD 

ADD 

TST 

BNE 


.PNUMB,. ALLOC 
.ALLOC. FUDGE 

.NN,RO 
1$ 

.NA.RO 
#4,R0 
RO 

«77, RO 
RO 

#77, RO 
#77, RO 


XPTLLN.RO 
RO 

.NBEA,RO 
.eRAD,RO 
#A$LEN,R1 
$MUL 
#77, R1 
#77, Rl 

Rl 
Rl 
Rl 

Rl 
Rl 
Rl 

R1,.N0MAP 
Rl,. FUDGE 
R2 
1$ 


STORE  LENGTH  OF  DSR  EXTENSION 
UPDATE  PARTITION  SIZE 

GET  MAX  NODES 

IF  ENDNODE  -  BRANCH 

INCLUDE  MAX  AREAS 

ALLOCATE  FOR  XPT  ROL,  MIN  HOP/COST  OFFSET  0 

CONVERT  TO  BYTES 

ROUND  UP  TO  NEXT  BLOCK 

ALLOCATE  MIN  HOP/COST  MATRIX 

ROUND  UP  TO  NEXT  BLOCK 


CONVERT  TO  BLOCKS 


UPDATE  NON  UMR  MAPPED  POOL 

UPDATE  PARTITION  SIZE 

ENDNODE  ? 

IF  YES  -  BRANCH 

CLEAR  FLAG 

STORE  XPT  LINES 

INCLUDE  LOOPBACK  CHANNEL 

INCLUDE  BROADCAST  ENDNODE  ADJACENCIES 

INCLUDE  ROUTER  ADJACENCIES 

COPY  ADJACENCY  DATA  BASE  SIZE 

CALCULATE  TOTAL  SIZE 

CONVERT  TO  BLOCKS 


ADJUST  TOTAL  OF  NON  UMR  BLOCK  POOL 
ADJUST  TOTAL  POOL 
SECOND  BLOCK  ALLOCATED  ? 
IF  YES  -  BRANCH 


L  10, 
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CCCCCCCC   F 

FFFFFFFFF 

222222 

AAAAAA 

CCCCCCCC 

CCCCCCCC   F 

FFFFF>"FFF 

222222 

AAAAAA 

CCCCCCCC 

CC          F 

22     22 

AA 

AA 

CC          F 

22     22 

AA 

AA 

CC          F 

22 

AA 

AA 

CC          F 

22 

AA 

AA 

CC          F 

FFFFFFF 

22 

AA 

AA 

CC          F 

FFFFFFF 

22 

AA 

AA 

CC          F 

22 

AAAAAAAAAA 

CC          F 

22 

AAAAAAAAAA 

CC          F 

22 

AA 

AA 

CC          F 

22 

AA 

AA 

CCCCCCCC    F 

2222222222 

AA 

AA 

CCCCCCCC 

CCCCCCCC    F 

2222222222 

AA 

AA 

CCCCCCCC 

88 


88 


888888 


ssssssss 

TTITTTTTTr 

S5SSSSSS 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

SS5SSS 

ss 

ss 

ss 

ss 

_LLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

-cP4rR  -  rnKjFir,  fiif   ArTinw  Rnii  MACRn  vnS.O^h  Ssturdav   29-Jun-85 
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Symbol  table 

Errors  detected:  0 

*«  Assembler  statistics 


Work  file  reads:  0 

Work   f i  le  writes:  0 

Size  of  work  file:  155^3  Words 

Size  of  core  pool:  16552  Words 

Ooerating  system:  RSX-11M/PLUS 

Elapsed  time:  00:00:15.55 
SV:CF2AC8.V2,[132,13A]CF2AC8/CR/-SP=Sy; 


(  61  Pages) 
(  63  Pages) 


[1,13RSXMCM.SML/ML,[130,110]NETLJB/ML,[130,10]RSXMCM/PA:1,C132,10]Cf2AC8 


rRFATFn  RY   MACRO  m   ?9-.il)N-85  AT  00:12 


PAGE  1 


L  12 


r 


K  13 

CF2AC9  - 

CONFIG 

FILE  ACTION  ROU 

MACRO  V05.03b  Saturday 

29-Jun-85  00:1 

ACTION  ROUTINES 

FOR  PARSDF 

191 

00027A 

012700 

000004G 

MOV 

#.NAMBFt4,R0 

192 

000300 

012710 

020040 

MOV 

#"  ,(R0) 

193 

000304 

011040 

MOV 

(R0),-(R0) 

19A 

000306 

011040 

MOV 

(R0),-(R0) 

195 

000310 

016701 

OOOOOOG 

MOV 

.PSTPT,R1 

196 

000314 

016702 

OOOOOOG 

MOV 

.PSTCN,R2 

197 

000320 

022702 

000006 

CMP 

#6.R2 
lOi 

198 

000324 

103002 

BHIS 

199 

000326 

012702 

000006 

MOV 

#6,R2 

200 

000332 

112120 

10$: 

MOVB 

(Rl)+.(R0)t 
R2,10i 

201 

000334 

SOB 

202 

000340 

012700 

OOOOOOG 

MOV 

#.NAMBF,RO 

203 

000344 

010701 

MOV 

PCRl 

204 

000346 

CALL 

$CAT5 

205 

000352 

010136 

MOV 

Rl,a(SP)t 

206 

000354 

010701 

MOV 

PCRl 

207 

000356 

CALL 

$CAT5 

208 

000362 

012602 

MOV 

(SP)+,R2 

209 

000364 

010162 

000002 

MOV 

R1,2(R2) 

210 

000370 

RETURN 

211 
212 
213 
214 
215 

;  FUDGE 

FACTOR 

(PAR$DF) 

.IF  DF 

M$$MGE 

216 

000372 

016767 

OOOOOOG 

OOOOOOG  P.FUDG 

:MOV 

.PNUMB,. FUDGE 

217 

000400 

001002 

BNE 

10$ 

218 

000402 

005267 

OOOOOOG 

INC 

.FUDGE 

219 

000406 

10$: 

RETURN 

220 

.ENDC 

221 
222 
223 

;  SIZE 

OF  NON- 

JMR-MAPPED  AREA 

7-2 


FILL  LOCAL  BUFFER  WITH  BLANKS 


COPY  TPARS  STRING  INTO  BUFFER 
BUT  NO  MORE  THAN  SIX  CHARACTERS 


NOW  CONVERT  FROM  ASCII 
TO  RAD50 
ALLOWING  PERIODS 


224 
225 

226  000410 

227  000416 

228  000420 

229  000424 
230 

231  000424 

232  000452 
233 

234  000434 

235  000440 
236 

237 

238  000444 

239  000450 

240  000452 
241 

242 
243 
244 
245 
246 
24  7  000456 


016767 
001002 
005267 


032777 
001423 

016700 
066700 


016701 
001402 
016100 


OOOOOOG  OOOOOOG  P.UMR: 
OOOOOOG 


10$: 


OOOOOOG  OOOOOOG 


OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 


166700  OOOOOOG 


20$: 


.IF  OF 
MOV 
BNE 
INC 

.IF  DF 

BIT 

BEQ 

.ENDC 

MOV 

ADD 

.IF  DF 

MOV 

BEQ 

MOV 

.IFF 

MOV 

BEQ 

MOV 

.ENDC 

sue 


M$$MGE 

. PNUMB,. NOMAP 

10$ 

.NOMAP 

R$$11M 

#FE.EXT,aFMASK 
P. NONE 

.NTPSZ.RO 
. FUDGE, RO 

R$$11M 
.PCB,R1 
20$ 
P.REL(R1),R0 

.REG,R1 

20$ 

G.CZ(R1),R0 


. NOMAP, RO 


SAVE  THE  NUMBER 

IF  NE,  OK 

ELSE  CHANGE  0  INTO  1 


COPY  THE  SIZE 

IF  NE,  OK 

ELSE  CHANGE  0  INTO  1 


IS  THIS  AN  11/70  ? 

IF  EQ,  NO  -  DISABLE  UMR'S 

GET  RDB/SDB  SIZE 
PLUS  FUDGE  FACTOR 


GET  NTPOOL  PCB  ADDRESS 

IF  EQ,  NO  PCB  -  USE  BUF$DF  NUMBERS 

IF  PCB,  USE  ITS  SIZE 

GET  GCD  NODE  ADDRESS  FOR  NTPOOL 
IF  EQ,  NO  GCD  -  USE  BUFSDF  NUMBERS 
IF  GCD,  USE  ITS  SIZE 


LESS  SIZE  OF  NON-UMR-MAPPED  AREA 


MAC  nr\     wAt;  A'^K 


L  13 


L 


LN.OPE 
LN.REF 
lN.SER 
LN.STA 
LN.SUB 
LN.TR! 


CF2AC9     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:13 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE  REFERENCES 


K   U 

PAGE  2 

CREf   OA.OO 


CF 
DE 


COST 
CTL 
CVA 
DDM 
DDS 
L.OLC 
L.DLM 
L.DLS 
L.FLG 
L.KRBA 
L.LEN 
L.MPF 
L.NM5T 
L.NSTA 
L.OWNR 
L.UNT 
M$$MGE 
NOAD 
NOAR 
PARHD 
PNAME 
PS.COM 
P.BLKS 
P. BUSY 
P.FUDG 
P. MAIN 
P.NAM 
P. NONE 
P. PARI 
P.PAR2 
P.REL 
P.STAT 
P.UMR 
RSSMPL 
R$$11D 
R$$11M 
R$$11S 
SERDCT 
SERDEV 
SERDMP 
SERDV 
SERHST 
SERMUL 
5ERMUX 
SERNOD 
SERUNI 


000001 

000002 

000002 

000017 

000360 

000006 

000015 

000012 

177776 

000002 

OOOOOA 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

OOOOU 

000021 

000013 

000000 

000722  RG 

000702  RG 

»*«»**  GX 

000270  RG 

»«»«*♦  GX 

*»**«*  GX 

***«»♦  GX 

000372  RG 
■  *♦»»*»   GX 
:  »♦»»«»  GX 

000502  RG 

000066  RG 

000264  RG 

:  ♦..»»*   GX 
:  »»»•»»   GX 

000410  RG 

****** 

****** 

:  000000 

:  ****** 

:  ******  GX 

r  ******  GX 

:  .*«*»*  GX 

000762  RG 

:  ******   GX 

000662  RG 

000672  RG 

:  ,*»*.*  GX 

000652  RG 


#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
#6-66 
7-161 
#9-349 
#9-343 
7-122 
7-118 
7-138 
7-170 
7-143 
#7-216 
7-142 
7-127 
7-232 
#7-117 
#7-188 
7-240 
7-138 
#7-226 
7-132 
6-65 
6-65 
6-65 
»9-372 
*9-363 
*9-367 
#9-36T 
.9-355 
#9-337 
#9-340 
»9-346 
#9-334 


7-174 

#7-189 
7-145 


7-129 
#7-258 


7-120 

.9-368 
.9-358 

.9-349 


7-215     7-225     7-257 


7-149     »7-149     7-150 


»7-150 


7-230     7-237 


rOCATCr\  DV 


iiM-s';  4T  nn.ix 


L  U 


c 
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CF2DEC  -  CONFIG  FkE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:U  Page  8-1 
DECSDF  ACTION  ROUTINES 

230 

231  0OOA62 

232  000A62 
233 

23^  000A62 
235  000^62 
236 

237  000462 

238  000A62 
235 

240  000462 

241  000462 
242 

243  000462 

244  000462 
245 

246  000462 
247 
248 
249  000001 


STATES 
TRANS 

SNUMBR 

,LST 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SNUMSR 

,PETF 

STATES 
TRANS 

<'  .> 

STATES 
TRANS 

SNUM8R 

SEXIT.SEG 

STATES 

.END 

LINK   SERVICE    THRESHOLD 


RETRANSMIT    FACTOR 


ECL    SEGMENT    SIZE 


Mft  r  nr\     v>AC     (TZk 


L  15 

.a";  nn.ii 
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CF2UMR  -  NIL    IMIIALIZAIION  UMR  MACRO  V05.03b   Saturday  29-Jun-85  00:U 
Symbol    table 


Page  7-2 


ALOCB  = 
A$tCHK= 
A$$r.PS  = 
At$PRI= 
A$$TRP= 
BUFUMP= 
CMODF  = 
CS$CKP= 
C$$ORE= 
C$$RSH= 
DEACB  = 
D$SBUG= 
D$$IS<= 
D$tLll= 
D$$YNC= 
D$$YNM= 
E$$XPR= 
FE.EXT= 
FMASK  = 
F$$LVL= 
G$STPP= 


»»»'•«  GX 

000000 

000000 

000000 

000000 

17235A 

HOOOO 

000000 

0004C0 

1775',4 

♦»•*!*  GX 

1775U 

000000 

000001 

000000 

000000 

000000 

»**♦•♦  GX 

.».»»«  GX 

000001 

000000 


.  ABS.   000000 
000312 
Errors  detected: 


000 
001 
0 


G$$TSS= 
G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$RDN= 
K1SAR0= 
KISAR6= 
K$SCN1= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
MPAR  = 
MPCSR  = 
M$$CRB= 
M$$CRX= 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 


000000 

M$$FCS= 

000000 

PRl 

000040 

000000 

M$$MGE= 

000000 

PR2 

000100 

000000 

M$$NEr= 

000000 

PR3 

000140 

000000 

M$$OVR= 

000000 

PR4  = 

000200 
000240 

000000 

M.BFVH= 

****** 

GX 

PR5 

172340 

M.BFVL= 

****** 

GX 

PR6   = 

000300 

172354 

M.LGTH= 

GX 

PR7   = 

WM 

177546 

M.UMRA= 

****** 

GX 

PS 

177776 

177546 

M.UMRN= 

****** 

GX 

P$$P45= 

000000 

000000 

N$$ACC= 

000001 

P$IWRD= 

000000 

000074 

N$$BUF= 

000001 

P.BLICS= 

«.«**»  GX 

000000 

N$$LDV= 

000001 

P.REL  = 

««»»*«  GX 

000000 

N$$MCP= 

000001 

Q$$OPT= 

000010 

000000 

N$$MLL= 

000001 

R$$DER= 

000000 

000001 

N$$M0V= 

000010 

R$$K11= 

000001 

000000 

N$$NC1= 

000001 

R$$SND= 

000000 

172100 

N$$PEM= 

000001 

R$$11M= 

000000 

177746 

PIRQ  = 

177772 

SWR   = 

177570 

000124 

PMODE  = 

030000 

S$$URG= 

000000 

000000 

PRO   = 

000000 

S$$YSZ= 

007600 

Assembler   statistics 


0 

0 

9837  words      (   39  Pages) 

14440  words      (    55  Pages) 


TPS   = 

177564 

T$$KM6= 

000000 

r$$MlN= 

000000 

UBMPR  = 

170200 

U  SARO= 

177640 

U  SAR1= 

177642 

UMRLD 

000244P 

V$$CTR= 

001000 

X$$DBT= 

000000 

$ASUMR= 

****** 

GX 

$ERRXL= 

****** 

GX 

$ERRXM= 

****** 

GX 

$SAVRG= 

****** 

GX 

SUMRAL 

OOOOOORG 

.ALLOC= 

****** 

GX 

.BASEB= 

140000 

.NOMAP= 

****** 

GX 

.PUIR  = 

****** 

GX 

.UMRSA= 

****** 

GX 

.UMRFL= 

****** 

GX 

Work  fUe  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating     system:    RSX-11M/PLUS 

SYfcF2UMR!v2;L132,134]CF2aMR/CR/-SP=SY:ri,1]RSXMCM.SI»IL/ML,[130,110]NETL]B/ML,[130,10]RSXMCM/PA:1,[132,10]CF2UMR 
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CFGxr  C(*EATED  BV      MACRO     ON  29-JUN-85   AT   00:08 

MACRO   CROSS   REFERENCE 
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PAGE   5 

CREF        04.00 


MACRO  NAME 

REFERENCES 

CALL 

9-122 

11-204 

DBGTP$ 

*10-136 

#10-154 

#10-191 

EfTSGiR 

#5-60 

9-130 

11-238 

ISTMt 

#5-60 

10-136 

^TRANS 

#10-136 

NTLEOt 

#5-60 

8-98 

8-99 

PD.3f$ 

#5-60 

5-62 

REjt 

#5-67 

11-235 

RE 'URN 

9-'26 

11-206 

11-216 

SLTOF$ 

#5-60 

5-63 

STATES 

#5-60 

10-140 

#10-143 

#10-168 

#10-171 

#10-174 

TR4N1 

#5-60 

#10-141 

#10-144 

#10-166 

#10-169 

#10-172 

11-254 


-100 


11-236 

#10-146 
#10-177 
#10-147 
#10-175 


11-265 


11-253 

#10-149 
#10-180 
#10-150 
#10-178 


11-277 


11-264 

#10-152 
#10-183 
#10-153 
#10-181 


11-291 


11-276 

#10-156 
#10-186 
#10-154 
#10-184 


11-306 


11-290 

#10-159 
#10-189 
#10-157 
#10-187 


11-305 

#10-162 
#10-193 
#10-160 
#10-190 


#10-165 

#10-163 
#10-191 


M     1 


CFGX5P 

CREATED  BY 

MACRO  ON  29-JUN-85  AT 

00:09 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

BLKSMN 

=  000040 

#6-67 

BLKSMX 

=  002000 

#6-68 

CERR 

=  **t*** 

GX 

8-91 

8-92 

8-93 

CFGBF 

-  ****** 

GX 

9-117 

CFGSZ 

r  ****** 

GX 

9-116 

CFLIN 

=:  ****** 

GX 

8-91 

8-92 

8-93 

CHKBLK 

r  ****** 

GX 

11-181 

11-189 

CHKWND 

=  ****** 

GX 

11-200 

11-208 

FMT8 

=  ****** 

GX 

8-92 

8-94 

FMT8B 

~     ****** 

GX 

8-91 

8-93 

8-95 

FM.8 

=  000000 

#8-92 

#8-94 

FM.8B 

=  000000 

#8-91 

#8-93 

#8-95 

NEXT 

000000 

R 

#7-78 

»11-219 

11-231 

RTSPC 

r  ****** 

GX 

8-91 

8-92 

8-93 

SYNERR 

-  ****** 

GX 

*9-118 

*9-121 

♦11-234 

S$$BAS 

-    ****** 

8-91 
8-95 

8-91 

8-92 

TIMRCT 

000010 

R 

#7-82 

•11-220 

•11-224 

WNDSMX 

=  000177 

#6-69 

X3CTL 

000004 

R 

#7-80 

X3DEV 

000002 

R 

#7-79 

X3PDF 

000000 

R 

9-113 

X3PKW 

000000 

RG 

9-115 

#10-133 

X3PST 

000000 

RG 

#10-133 

X3TMCT 

=  000007 

#6-70 

11-225 

11-241 

X3UNT 

000006 

R 

#7-81 

X3.BEC 

000212 

R 

#11-219 

X3.DBS 

000052 

R 

#11-181 

X3.DWS 

000132 

R 

#11-200 

X3.END 

000312 

R 

#11-241 

X3.MBS 

000074 

R 

#11-189 

X3.MWS 

0001 5A 

R 

#11-208 

X3.NXT 

000224 

R 

#11-224 

$ALPHA 

=  000022 

#10-133 

$ANY 

=  000020 

#10-133 

SBLANK 

SDIGIT 

SDNUMB 

$EOS 

SERRI f 

$ERR2B 

$ERR2r 

$ERR2D 

tERR2E 

$ERR2F 

$ERR2G 

$ERR2M 

SEX  IT 

{FAIL 

$GPR*! 

SLAMDA 

tNJMBR 


000006 
000024 
000014 
000012 

000012  R" 


000046 
000122 

z:  ♦***»♦ 

000156 

000232 

=  000000 

=  177777 

r  ****** 

=  000000 
=  000002 


GX 
GX 


R 
R 

GX 
R 
R 


#10-133 
#10-133 
#10-133 
#10-133 

9-127 
#8-91 

11-195 
#8-92 
#8-93 

11-214 
#8-94 
#8-95 
#10-133 
#10-133 

10-133 
#10-133 
#10-133 


11-185 

11-196 
11-204 

11-215 
11-237 


L  2 

PAGE  1 

CREF   04.00 


CF2; 
FlLl 


8-94 


8-94 


•11-232 
8-94 

8-92 

11-225 


8-95 
8-95 


8-95 
8-93 
11-241 


8-93 


8-94 


8-94 


8-95 


CFGXB^^ 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:09 


PACE  2 


N  2 


CF2, 
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CF2AC1  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:09 
FILSDF  ACTION  ROUTINES 


29?  000602 
293  000606 
29A  000610 
295 

296  000612 

297  000614 

298  000616 

299  000620 

300  000624 

301  000632 
302 

303  000634 

304  000636 

305  000640 

306  000644 

307  000646 

308  000654 

309  000656 

310  000660 

311  000662 

312  000666 

313  000672 
314 

315  000674 

316  000676 
317 

318 
319 

320  000700 

321  000706 
322 

323 


062700 
011000 
010003 

010301 
011000 
001006 
010267 
016767 
000411 

010C03 
010046 

012600 
026760 
101356 
010246 
010146 


105404 


000002 


14$: 


OOOOOOG 
000006'  OOOOOOG 


17$: 

000006'  000010  15$: 
18$: 

20$: 
30$: 


ADD 
MOV 
MOV 

MOV 
MOV 
BNE 
MOV 
MOV 
BR 

MOV 

MOV 

CALL 

MOV 

CMP 

BHI 

MOV 

MOV 

CALL 

RESMAP 

RETURN 

BCS 
RETURN 


#D$RNN,RO 

(RO),R0 

R0,R3 

R3,R1 

(RO),RO 

17$ 

R2,$LSTRM 

RADDR,$LSTAD 

18$ 

R0,R3 

RO,-(SP) 

$CEACX 

CSP)+,RO 

RADDR,R.ADD(RO) 

14$ 

R2,-(SP) 

R1,-(SP) 

$LINKX 


1113 


ERROR  CONDITIONS 


101$: 
111$: 


EMSG$R  rV 
EMSG$R  YY 


Page  10-1 

»  GET  ADDRESS  OF  REMOTE  LISTHEAD  ADDRESS 
«  GET  ADDRESS  Of  REMOTE  LISTHEAD 
►  SAVE  ADDRESS  OF  LISTHEAD 

*  SAVE  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK 
»  GET  NEXT  BLOCK  IN  LIST 

*  IF  NOT  END  OF  LIST  -  BRANCH 

*  UPDATE  LAST  NODE  POINTER 

»  UPDATE  HIGHEST  NODE  ADDRESS 

*  CONTINUE 

*  SAVE  UNMAPPED  ADDRESS 
»  SET  BUFFER  ADDRESS 

*  GET  ACCESS  TO  BUFFER 

»  GET  MAPPED  BUFFER  ADDRESS 

*  LINK  REMOTE  BLOCK  HERE  ? 

*  BR  IF  NO 

*  GET  ADDRESS  OF  BLOCK 

*  GET  ADDRESS  OF  PREVIOUS  SLOCK 

*  LINK  BLOCK  INTO  LIST 

*  RESTORE  PREVIOUS  MAPPING 

*  RETURN  TO  USER  MODE  AND  TO  CALLER 

BR  IF  UNABLE  TO  ALLOCATE  BLOCK 


ILLEGAL  NODE  ADDRESS 

REMOTE  BLOCK  ALLOCATION  FAILURE 

LET  NTLUNL  DE-ALLOCATE 


cf; 

ERF 


M  3 

:f2AC1  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:09  Page  11 


CF 


L  4 

CF2AC2  -  COMFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:10 
ERROR  l^ESSAGES 


Page  8 


CF2 
TPA 


111 

112 

OBJtDF  ACTION  ROUTINES 

113 
114 
115 
116 
117  000000 

**  OBJECT  NUMBER 

116767 

OOOOOOG 

000000' 

3.NUM;:  MOVB    .PNUMB.TYPE 

118  000006 

005067 

000002' 

CLR     ONAME         ; 

119  000012 

005067 

000004' 

CLR     ONAME t2 

120  CC0016 

105067 

000006' 

CLRB    MXCP 

121  000022 

005767 

OOOOOOG 

TST     .PNUMH 

122  000026 

001 C04 

BNE     101$ 

123  000030 

105767 

000001 G 

TSTB    .PNUMB+1 

124  000034 

001001 

BNE     101$ 

125  000036 

126 

127 

128 

129  000040 

RETURN 

■  ERROR  CONDITIONS 

01$:   EMSG$R  XW 

130 

131 
132 
133  000046 

;  **  OBJECT  NAME 

016700 

OOOOOOG 

3.NAME::M0V     .PSTPT,RO 

134  000052 

010701 

MOV     PCfil 

135  000054 

CALL    $CAT5 

136  000060 

010167 

000002' 

MOV     R1, ONAME 
BCS     10$ 

137  000064 

103405 

138  000066 

010701 

MOV     PCfil 

139  000070 

CALL    $CAT5 

HO  000074 

010167 

000004' 

MOV     R1,  ONAME +2 

141  000100 

022767 

000006 

OOOOOOG 

10$:    CMP     #6,.PSTCN 

142  000106 

103401 

SLO     101$ 

143  000110 

RETURN 

144 

145 

146 

147  000112 

148 

149 

;  ERROR  CONDITIONS 

101$:   EMSG$R  XX 

■  *»  VERIFICATION  LEVEL 

150 

151  000120 

116767 

OOOOOOG 

000001 ' 

O.VFY::  MOVB    .PNUMS.FLAG 

152  000126 

022767 

000010 

OOOOOOG 

CMP     #10..PNUMB 
BLOS    101$ 

153  000134 

101401 

154  000136 

RETURN 

155 

156 
157 
158  000140 

•  ERROR  CONDITIONS 

101$:   EMSG$R  XY 

159 

160 
161 
162  000146 

;  ♦♦  OBJECT  FLAGS 

156767 

OOOOOOG 

000001 ' 

5.FLAG::81S8    .PNUMB,FLAG 

163  000154 

032767 

000007 

OOOOOOG 

BIT     *7,.PNUMB 
BNE     101$ 

164  000162 

001004 

165  000164 

105767 

000001 G 

TSTB    .PNUMBt-1 

1.6  000170 

001001 

BNE     101$ 

167  000172 

RETURN 

STORE  OBJECT  NUMBER 
CLEAR  THE  OBJECT  NAME 

CLEAR  THE  MAXIMUM  NUMBER  OF  COPIES 

IS  OBJECT  NUMBER  A  WORD  VALUE  ? 

IF  NE,  NO 

IS  IT  A  BYTE  VALUE  ? 

IF  NE,  NO 


ILLEGAL  OBJECT  NUMBER 


GET  ADDRESS  OF  ASCII  TASK  NAME 

PERIODS  ARE  ACCEPTABLE 

CONVERT  TASK  NAME  TO  RAD50 

STORE  THE  OBJECT  NAME 

IF  CS,  LESS  THAN  3  CHARS  CONVERTED 

CONVERT  2ND  HALF  OF  NAME 

STORE  2ND  HALF  OF  TASK  NAME 
IS  THE  TASK  NAME  TOO  BIG  ? 
IF  LO,  YES 


ILLEGAL  TASK  NAME 


SET  VERIFICATION  LEVEL 

IS  VERIFICATION  LEVEL  IN  RANGE 

IF  LOS,  NO 


ILLEGAL  VERIFICATION  LEVEL 


SETUP  OBJECT  FLAGS 

OVER-WRITING  VERIFICATION  LEVEL 

IF  NE,  YES 

IS  IT  A  BYTE  VALUE  ? 

IF  NE.  NO 
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CF2 

LOC 


193 
19A 
195 

196  0OO22A 

197  000230 

198  000232 

199  000236 

200  0002A2 

201  000246 

202  000252 

203  000256 

204  000260 

205  000264 

206  000266 
207 

208  000270 

209 

210 


.SBTTL  TPARS  ACTION  ROUTINES  FOR  ROUSDF 


012705  000000' 
005001 

012702  000000' 

016703  OOOOOOG 

012704  OOOOOOG 

005067  OOOOOOG 

103003 

005367  OOOOOOG 

001401 


QROU:: 


20$: 
101$ 


MOV 

#R0UDF,R5 

CLR 

R1 

MOV 

#R0UKW,R2 

MOV 

CFGSZ,R3 

MOV 

#CFGBF,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

RETURN 

EMSG$R      IT 


SET  UP  STATE   TABLE  ADDRESS 

FULL    KEYWORD  MATCH  LENGTH 

KEYWORD   TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER   ADDRESS 

CLEAR   SYNTAX  ERROR   FLAG 

PARSE   LINE 

IF  SUCCESS  -  BRANCH 

DID  SYNTAX  ERROR  OCCUR  ? 

IF  YES  -  ERROR 


SYNTAX  ERROR 
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CF, 


ZfZMA  - 

CONFl 

LOCAL  DATA 

77 

78 

79 

80 

81 

82 

83 

8A 

85 

000000 

86 

87 

88 

89 

90 

000000 

91 

000002 

92 

000004 

93 

94 

00001 4 

L  6 

CONFIG  FILE  ACTION  ROU  MACF)0  V05.03b  Saturday  29-Jun-85  00:11  Page  6 

.SBTTL  LOCAL  DATA 


LOCAL  DATA 


CF2/ 
MACF 


.PSECT  DATA.D 


EVENT  FILTER  CONTROL  BLOCK  VALUES 


CLASS:  .BLKW 
FLAG:  .8LKW 
EVENT:   .BLKW 


STRADD:  .BLKW   1 


EVENT  CLASS  AND  FLAGS 
FILTER  BLOCK  FLAGS  WORD 
EVENT  TYPE  MASK  BITS 

ADDRESS  OF  STORAGE  FOR  EVENT  TYPE  MASK 
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87 
88 
89 
90 
91 
92 
93 
9^ 
95 
96 
97 
98 
99 
100 

101  000000 

102  OOOOOA 

103  000010 
10A  000014 
105 

06  000020 

107  000022 

108  000024 

109  000026 

110  000040 
111 

112  000042 

113  000044 

114  000046 

115  000052 

116  000054 

117  000056 

118  000062 

119  000066 
120 

121  000072 

122  000076 

123  000102 
124 

125  000104 
126 

127  000110 

128  000114 
129 


SRHFNB  -  SEARCH  FOR  FILE  NAME  SLOCK 

INPUTS  — 

FN8UFF  CONTAINS  FILE  DESCRIPTOR  INFORMATION 

OUTPUTS   ~ 

C   CLEAR   -   FILE   NAME   BLOCK   FOUND 

-  RO  CONTAINS   UNMAPPED  BLOCK   ADDRESS 


C   SET 


017700 
062700 
017746 

010003 
011300 
001006 

000423 

010002 
010046 

012600 
010003 
012701 
062700 
062701 


OOOOOOG 

000034 

OOOOOOG 


SRHFNB:  SWSTKS 
MOV 
ADD 
MOV 


5$: 


10$: 


OOOOOOG 

000003 

000003 


012705  OOOOOOG 
103747 

010266  000004 

012677  OOOOOOG 


40$: 
50$: 


MOV 

MOV 

BNE 

RETC 

BR 

MOV 

MOV 

CALL 

MOV 

MOV 

MOV 

ADD 

ADD 

MOV 

CALL 

BCS 

MOV 

MOV 
RETURN 


FILE  NAME  BLOCK  NOT  FOUND 


50$ 

aDECPT.RO 
#D$FNB,RO 
aKSAR5,-CSP) 

R0,R3 

(R3),R0 

10$ 

RO 

40$ 

R0,R2 

RO,-(SP) 

$CEACX 

(SP)+,RO 

R0,R3 

#FNBUFF,R1 

#F.USE+1 ,R0 

#F.USE+1,R1 

«F1ELDC,R5 

CMPSTR 

5$ 

R2,4(SP) 

(SP)t,ai<:SAR5 


ENTER  SYSTEM  STATE 
GET  HOME  BLOCK  ADDRESS 
POINT  AT  FIRST  FILE  NAME  BLOCK 
SAVE  MAPPING 

SAVE  LISTHEAD 

GET  ADDRESS  OF  FIRST  BLOCK 

IF  NOT  END  OF  LIST  BRANCH 

ELSE  -  ERROR 

RETURN 

SAVE  UNMAPPED  BLOCK  ADDRESS 

STORE  ADDRESS  OF  BLOCK 

GET  ACCESS  TO  BUFFER 

GET  MAPPED  ADDRESS  TO  BUFFER 

SAVE  HAPPED  ADDRESS 

COPY  ADDRESS  OF  LOCAL  FILE  BLOCK 

POINT  TO  FILESPEC  DATA  OF  CURRENT  BLOCK 

POINT  TO  FILESPACE  DATA  OF  LOCAL  BLOCK 

SET  UP  FIELD  COUNT 
CHECK  FOR  FIELD  EQUALITY 
IF  NO  MATCH  -  BRANCH 

IF  MATCH  -  COPY  UNMAPPED  ADDRESS 

RESTORE  MAPPING 
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PAGE  3 

CREF   OA.OO 


CF2i 
ERR! 


SYMBOL   VALUE 


S$$BAS 

S.ADO 

S.CIR 

S.COST 

S.DEV 

S.DIA 

S.OPA 

S.DPC 

S.DUM 

S.FLAG 

S.FLG 

S.HAD 

S.HST 

S.LEN 

S.LENG 

S.LNK 

S.LOA 

S.NMST 

S.OWNR 

S.PSS 

S.SEC 

S.TER 

UICBUF 

UISZ 

X$SMC3 

ZF.COU 

ZF.DDM 

ZF.DIA 

ZF.DLC 

ZF.DVP 

ZF.INI 

ZF.KMX 

ZF.LLC 

ZF.LMC 

ZF.MAN 

ZF.MFL 

ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSY 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN 

Z.LLN 

Z.MAP 

Z.NA.M 


r  ****** 

000004 
000016 
000001 
000020 
0000A6 
000032 
000036 
000050 
000002 
000000 
000010 
000006 
OOOOOA 
000052 
000000 
000044 
000002 
000003 
000022 
000040 
000042 

3  ****** 
::  ****** 
=  ****** 

=  001000 

=:  000001 

=  004000 

=  000002 

=  100000 

=  040000 

=  000020 

=  000004 

=  000100 

=  020000 

=  000010 

=  000400 

=  000040 

=  002000 

=  010000 

=  000200 

=  000000 

=  i 00000 

=  140000 

000014 

000016 

000000 

000010 

=  000016 

000006 

000020 

000004 


GX 
GX 


REFERENCES 

6-80 
#6-68 
#6-68 
#6-70 
#6-68 
#6-68 
#6-68 
#6-68 
#6-68 
#6-68 
#6-70 
#6-68 
#6-68 
#6-70 
#6-68 
#6-68 
#6-68 
#6-70 
#6-70 
#6-68 
#6-68 
#6-68 

10-244 

12-394 

6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 
#6-69 


6-80 


12-349 


12-353 
•12-376 


12-345 


12-337 
12-341 
10-245 

6-69 


12-393 


6-69 
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ERROR  MESSAGES 


302 
303 
30^ 
305  000660 

!  LINE 

NAME  (SLT$DF) 

016700 

OOOOOOG 

S.NAME 

:M0V 

.PSTPT,RO 

306  00066A 

010701 

MOV 

PC,R1 

307  000666 

CALL 

$CAT5 

308  000672 

010167 

000000' 

MOV 

Rl.NAME        ; 

309  000676 

RETURN 

310 
311 
312 
313 
31^  000700 

•  CONTROLLER  NUMBER  (SLTSDF) 

116767 

00000. G 

000003' 

S.CTL: 

Move 

.PNUMB.CTL 

315  000706 

RETURN 

316 
317 
318 
319 
320  000710 

•  UNIT 

NUMBER 

SLT$DF) 

017700 

OOOOOOG 

S.UNT: 

MOV 

aSLTMA.RO 

3cl  0007U 

017701 

OOOOOOG 

MOV 

aSLTNM.RI 

322  000720 

001426 

BEQ 

40$ 

323  000722 

012002 

10$: 

MOV 

(fiO)+,R2 

32A  00072A 

325 

326  000726 

001422 

BEQ 

30$ 

126267 

000012 

000003' 

15$: 

CMPB 

L.CTL(R2),CTL   ; 

327  000 '^'i 

001016 

BNE 

30$ 

328  000736 

126267 

000013 

OOOOOOG 

CMPB 

L.UNT(R2),.PNUMB 

329  0007A^ 

001012 

BNE 

30$ 

330  0007^6 

116202 

000002 

M0V8 

L.DDM(R2),R2 

331  000752 

067702 

OOOOOOG 

ADD 

aPDVTA,R2 

332  000755 

333 

33A  000762 

016202 

OOOOOOG 

MOV 

.CBIAS(R2),R2 

026267 

OOOOOOr 

000000' 

20$: 

CMP 

Z.NAM(R2),NAME  ; 

335  000770 

001405 

BEQ 

50$ 

336  000772 

30$: 

SOB 

R1,10$ 

337  000776 

40$: 

EMSG$R 

XP 

338  001004 

014002 

50$: 

MOV 

-(R0),R2 

339 

340  001006 

010267 

OOOOOOG 

MOV 

R2,$SLTA 

341  001012 

005067 

OOOOOOG 

CLR 

STAN          ; 

342  001016 

056762 

OOOOOOG 

000000 

BIS 

MRKFL,L.FLG(R2)  ; 
#LF.BR0,L.FLG(R2) 

343  001024 

032762 

000400 

000000 

BIT 

344  001032 

001424 

BEQ 

55$           ; 
#LF.ENA,L.FLG(R2) 

345  001034 

032762 

002000 

000000 

BIT 

34f  001042 

001406 

BEQ 

52$ 

347  00104;, 

062702 

000022 

ADD 

#L.MPF,R2 

348  001050 

152712 

000100 

BISB 

#SF.EWA,(R2) 
$SLTA,r5       : 

349  001054 

016702 

OOOOOOG 

MOV 

350  001060 

032762 

000040 

000000 

52$: 

BIT 

*LF.SER,L.FLG(R2) 

351  001066 

001406 

BEQ 

55$ 

352  001070 

062702 

000022 

ADD 

#L.MPF,R2 

353  001074 

354 

355  001100 

152712 

000001 

BISB 

*SF.SER,(R2) 

016702 

OOOOOOG 

MOV 

$SLTA,R2       : 
#LF.MFL,L.FL6(R2) 

356  001104 

032762 

004000 

000000 

55$: 

BIT 

357  001112 

001003 

BNE 

60$          ; 

358  001'14 

042762 

002000 

000000 

BIC 

#LF.ENA,L.FLG(R25 

Page  10 


GET  TPARS  POINTER 
ALLOW  "."  AS  CHARACTER 
CONVERT  TO  RAD50 
SAVE  LINE  (DDM)  NAME 


SAVE  NUMBER 


GET  SLT  MAPPING  TABLE  ADDRESS 
GET  NUMBER  OF  SLT'S 
IF  ZERO,  LINE  NOT  FOUND  I 
GET  NEXT  SLT 
:  IF  EMPTY,  SKIP  IT 

CONTROLLER  NUMBER  MATCH  ? 
IF  NE,  NO 

;  UNIT  NUMBER  MATCH  ? 
IF  NE,  NO 
GET  DDM  PDV  INDEX 
PLUS  PDV  TABLE  ADDRESS 
GET  PDV  ADDRESS 

DO  NAMES  MATCH  ? 

IF  EQ,  YES 

LOOP  <SLT  COUNT>  TIMES 

ERROR  -  LINE  NOT  IN  SYSTEM 

PICK  UP  SLT  ADDRESS 

SAVE  IT 

INITIALIZE  STATIONS  FOR  THIS  LINE 

UPDATE  MARK-FOR-LOAD  STATUS 

;  BROADCAST  LINE  ? 

IF  NOT  -  BRANCH 

;  IS  LINE  ENABLED  ? 

IF  NOT  -  BRANCH 

FOINT  TO  FIRST  TRIB  FLAG 

ENABLE  ETHERNET  CIRCUIT 

RESTORE  SLT  ADDRESS 

;  SERVICE  DISABLE  ? 

IF  NOT  -  BRANCH 

POINT  TO  EXTENSION 

SET  SERVICE  DISABLE 

RESTORE  SLT  ADDRESS 

;  IS  LINE  MARKED-FOR-LOAD  ? 

IF  NE,  YES  ..  OKAY 

;  ELSE,  MAKE  SURE  ENABLE  ISN'T  SET 


CF, 
DA 


li    9 

CF2AC6  -   CONFIG  FILE   ACTION  ROU  MACRO  V05.03b   Saturday   29-Jun-85   00:11     Page   10-1 


^ 


I_ 


L  10 

CF2AC7  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.0?b  Saturday  29-Jun-85  00:12 
DATA  SECTION 


131  000202 

132  000204 
133 

134  000206 

135  000212 

136  000216 

137  000222 

138  000226 

139  000232 

140  000234 

141  000236 

142  000240 

145  000242 
144  000244 
145 

146  000246 

147  000252 
148 

149  000256 

150  000262 

151  000266 

152  000272 

153  000276 

154  000300 

155  000302 

156  000304 

157  000306 

158  000310 

159  000312 

160  000316 
161 


005302 
000742 

016700 
012701 

062701 
042701 
006201 
006201 
006201 
006201 
006201 
006201 

060167 
060167 

016700 
012701 

062701 
006201 
006201 
006201 
006201 
006201 
006201 
060167 
060167 


OOOOOOG 
000046 

000077 
000077 


OOOOOOG 
OOOOOOG 

OOOOOOG 
000124 

000077 


OOOOOOG 
OOOOOOG 


1$: 


DEC 
BR 

MOV 

MOV 

CALL 

ADD 

BIC 

ASR 

ASR 

ASR 

ASR 

ASR 

ASR 

ADD 
ADD 

MOV 

MOV 

CALL 

ADD 

ASR 

ASR 

ASR 

ASR 

ASR 

ASR 

ADD 

ADD 


162  000322 

C16700 

OOOOOOG 

163  000326 

012701 

000050 

164  000332 

165  000336 

062701 

000077 

166  000342 

042701 

000077 

167  000346 

006201 

168  000350 

006201 

169  000352 

006201 

170  000354 

006201 

171  000356 

006201 

172  000360 

006201 

173  000362 

060167 

OOOOOOG 

174  000366 

060167 

OOOOOOG 

175 
176 
177  000372 

032777 

OOOOOOG  OOOOOOG 

178  000400 

001002 

179  000402 

005267 

OOOOOOG 

180  000406 

C16701 

OOOOOOG 

.S: 

181  000412 

001105 

182  000414 

005000 

183  000416 

012702 

OOOOOOG 

184  000422 

005767 

OOOOOOG 

185  000426 

001005 

186  000430 

187  000^.36 

005712 

5$: 

R2 
3$ 

XPTLLN.RO 

#T$LLEN,l<1 

$MUL 

#77, R1 

#77, Rl 

R1 

Rl 

R1 

Rl 

"1 
R1 

R1,.N0MAP 
Rl,. FUDGE 

ECLLLN,RO 
#L.LNG,R1 
$MUL 
#77, Rl 
Rl 

R] 
Rl 
Rl 

Rl 

Rl 

Rl,. ALLOC 

Rl,. FUDGE 


Page  6-1 

;  SET  FLAG  FOR  SECOND  ADJACENCY 
;  CONTINUE 

STORE  NUMBER  OF  XPT  CIRCIUTS 
STORE  COUNTER  BLOCK  SIZE 
CALCULATE  TOTAL  AMOUNT 
CALCULATE  BLOCKS  NEEDED 


CF 
T; 


MOV 

ECLNOD,RO 

MOV 

#E$NLEN,R1 

CALL 

$MUL 

ADD 

#77, Rl         ; 

11^ 

#77, Rl 

Rl 

ASR 

Rl 

ASR 

Rl 

ASR 

Rl 

ASR 

Rl 

ASR 

Rl 

ADD 

R1,.N0MAP      ; 

ADD 

Rl,. FUDGE 

.IF  DF 

R$$11M 

BIT 

#fE.EXT,aFMASK  . 

BNE 

2$ 

INC 

.UMRFL 

MOV 

.PCB.Rl 

BNE 

90$ 

CLR 

RO 

MOV 

#.PNAM1,R2 

TST 

.PNAM2 

BNE 

5$ 

EMSGSR 

XC 

TST 

(R2) 

ADD  TO  TOTAL  OF  NON  UMR  MAPPED  POOL. 
ADD  TO  TOTAL  POOL-CRDB'S+SDB'S) 

COPY  NUMBER  OF  MAX  LOGICAL  LINKS 
GET  SIZE  OF  LOGICAL  LINK 
CALCULATE  TOTAL  SIZE 
ROUND  UP  TO  NEXT  BLOCK 
CONVERT  TO  BLOCKS 


ADJUST  BYTE  POOL  SIZE 

ADJUST  PARTITION  SIZE  -  (RDB+SDB'S) 

COPY  ECL  NODE  COUNTERS  VALUE 
GET  NODE  COUNTER  SIZE 
CALCULATE  TOTAL  BYTES 
ROUND  UP  TO  NEXT  BLOCK 

CONVERT  TO  BLOCKS 


ADJUST  NON  UMR  BLOCK  POOL 
ADJUST  POOL  SIZE 


IS  THIS  REALLY  AN  11/70  ? 

IF  NE,  YES 

DISABLE  UMR  ALLOCATION 

WAS  FIRST  PARTITION  FOUND  ? 

IF  NE,  YES 

INDICATE  NO  ERROR  YET 

POINT  AT  FIRST  NAME 

WAS  SECOND  NAME  SPECIFIED  ? 

IF  NE,  YES 

ERROR  -  PARTITION  NOT  IN  SYSTEM 

WAS  FIRST  NAME  SPECIFIED  ? 
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CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CERR 

-   ****** 

GX 

5-85 

CFLIN 

=   ****** 

GX 

5-85 

CIRMUL 

~       ****** 

GX 

6-119 

CIRNAM 

=   ****** 

GX 

6-106 

10-328 

CIRNUM 

~       ****** 

GX 

6-113 

CIRUNT 

=   ****** 

GX 

6-115 

DECPT 

-       ****** 

GX 

8-228 

OSSER 

000032 

8-229 

ENDHEX 

-   ****** 

GX 

9-269 

ENDPA5 

r  ****** 

GX 

9-296 

FMT8 

=  ****** 

GX 

5-85 

FM.8 

=  000000 

#5-85 

FPDV 

000656 

R 

6-108 

#10-350 

FSLT 

000724 

R 

6-116 

#11-387 

F.NXT 

000000 

#5-59 

F.USE 

000002 

#5-59 

F.VAR 

000003 

#5-59 

HEXINO 

000604 

R 

8-159 

8-167 

9-285 

HEXSTR 

=  ****** 

GX 

9-267 

9-272 

9-283 

HRDADD 

000074 

RG 

#8-156 

iSSAS 

:=  ****** 

5-61 

K5AR5 

~     ****** 

GX 

8-194 

8-245 

LET 

=  000100 

#5-78 

9-309 

LF.ACT 

=  100000 

#5-62 

LF.BRO 

=  000400 

#5-62 

LF.BWT 

=  000007 

#5-62 

LF.ENA 

=  002000 

#5-62 

LF.LP8 

=  001000 

#5-62 

LF.MDC 

=  000100 

#5-62 

LF.MFL 

=  004000 

#5-62 

LF.MTP 

=  000020 

#5-62 

LF.PAC 

=  0002C0 

#5-62 

LF.RDY 

=  040000 

#5-62 

LF.REA 

=  010000 

#5-62 

LF.SER 

=  000040 

#5-62 

LF.TIM 

=  000010 

#5-62 

LF.UNL 

=  020000 

#5-62 

LF.X2P 

=  000000 

#5-62 

LN.CLO 

=  000000 

#5-62 

LN.DUM 

=  000005 

#5-62 

LN.LOA 

=  000004 

#5-62 

LN.LOO 

=  000003 

#5-62 

LN.OAU 

=  000003 

#5-62 

LN.OFF 

=  000001 

#5-62 

LN.ON 

=  000000 

#5-62 

LN.OOP 

^   000004 

#5-62 

LN.OPE 

=  000001 

#5-62 

LN.REF 

=  000002 

#5-62 

LN.SER 

=  000002 

#5-62 

LN.STA 

r  000017 

#5-62 

LN.SU8 

=  000360 

#5-62 

LN.TRI 

=  000006 

.?5-62 

9-287 


#9-307 


ruFATFn   RV      MAfRn      ON   ?q-lllN-RS    AT    00:1? 
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K  12 


CF,^AC9  -  CONFIG  FIlE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85 
ACTION  ROUTINES  FOR  PAR$DF 


00:1 


3  Page  7-3 


248  0OOA62 

2A9  00046A 

250  C00A7" 

251 

252  OO-i^? 

253 

254  000500 

255 

256 

257 

258  000502 

259  000506 
260 

261 


103403 
026700 
101403 


OOOOOOG 


005267  OOOOOOG 


BCS 
CMP 
BLOS 

30$ 

.NTPSZ 

40$ 

RO 

30$: 

EMSG$R 

XF 

40$: 

RETURN 
.ENDC 

P. NONE 

.IF  DF 
:INC 
RETURN 
.ENDC 

M$$MGE 
.UMRFL 

IF  CS,  N-U-M  AREA  >  PARTITION  '. '. 
ENOUGH  LEFT  FOR  RDB/SDS  ? 
IF  LOS,  YES 

NON  UMR  POOL  LARGER  THAN  PARTITION 


DISABLE  UfR   ALLOCATION 


M  13 


rnkictr    cnc    ArrinM    Dn.  i    MflrDn    uO^    fT^h    C^it.trHav    ?Q- lun-RS    OO-^'^       Pahp    R 


Cf2AC9     CREATED  BV  MACRO  ON  29-JUN-85  AI  00:15 
SYMBOL  CROSS  REFERENCE 


L  U 

PAGE  3 

CREF   04.00 


SYMBOL   VALUE 


SF.ACI 

SF.CIR 

SF.DEV 

SF.DIA 

SF.DPA 

SF.DPC 

SF.DUM 

SF.ENA 

SF.MAD 

SF.HST 

SF.LOA 

SF.LPS 

SF.MFi. 

SF.PAC 

SF.PH3 

SE.PSS 

SF.REA 

SF.SEC 

SF.SER 

SF.SVC 

SF.TER 

SF.UNL 

STRADD 

STRPT 

STRSIZ 

SYNERR 

S.ADD 

3.CIR 

5. COST 

5.DEV 

S.DIA 

S.DPA 

S.DPC 

S.DUM 

S.FLAG 

S.FLG 

S.HAD 

S.HST 

S.LEN 

S.LENG 

S.LNK 

S.LOA 

".NMST 

5.0WNR 

S.PSS 

S.SEC 

S.TER 

XPfiR 

KPTDF 

XPTLLN 

X$$MfB 

ZF.COU 


000200 
000010 
000020 
004000 
000100 
000200 
010000 
000100 
000004 
000002 
002000 
000004 
000040 
000020 
020000 
000040 
000010 
000400 
000001 
000002 
001000 
000040 


****** 


GX 
GX 
GX 
GX 


000004 
000016 
000001 
000020 
000046 
000032 
000036 
000050 
000002 
000000 
000010 
000006 
000004 
000052 
000000 
0000^.4 
000002 
000003 
000022 
000040 
000042 
001026  RG 
000U2  R 
r  ......  GX 

::  *♦♦«** 

=  001000 


REFERENCES 

#6-66 
#6-64 
#6-64 
#6-64 
#6-64 
#6-64 
#6-64 
#6-66 
#6-64 
#6-64 
#6-64 
#6-66 
#6-66 
#6-66 
#6-64 
#6-64 
#6-66 
#6-64 
#6-66 
#6-66 
#6-64 
#6-66 

8-276 
•8-281 

8-275 
•  7-96 
#6-64 
#6-64 
#6-66 
#6-64 
#6-64 
#6-64 
#6-64 
#6-64 
#6-64 
#6-66 
#6-64 
#6-64 
#6-66 
#6-64 
#6-64 
#6-64 
#6-66 
#6-66 
#6-64 
#6-64 
#6-64 
#9-380 

7-87 
•9-380 

6-65 
#6-65 


8-299 
•8-312 
•3-279 
•  7-99 


•8-282 


8-297 


8-307 


•8-309 


•8-313 


6-65 


^QC  AT  An . 1 7 


n  u 


CF^DEf  -  CONFIG  FILE  ftCFlON  ROU  MACRO  V05.03b  Saturday  29-Jun-85 
Symbol  table 


k  15 

00:1 


4  Page  8-2 


A$$CHH= 

A$$CPS= 

A$$PRI= 

A$tTRP= 

CFGBF  = 

CFGSZ  = 

C$SC<P= 

C$$ORE= 

C$$RSH= 

DECDF 

DECDF1 

OEC<W 

DECPT  = 

DECST 

DELF 

DELU 

DSAMXC 

DtAMXH 

D$ANN 

DSBRPR 

OSSRTM 

D$DELF 

DSDELU 

DSEND  = 

D$FNB 

DSHIOR 

DSHOST 

DSINAC 

OSINCT 

.  AB5. 

SSTATE 

$KTAB 

SKSTR 


COOGOO 

000000 

000000 

000000 

««»*••  GX 

•♦••••  GX 

000000 

OOOAOO 

177564 

OOOOOOR 

OOOOHR 

OOOOOORG 

»••♦**  GX 

OOOOOORG 

000256RG 

000306RG 

000072 

000074 

000000 

000102 

000100 

00004  5 

0000A6 

000104 

000034 

000024 

000022 

000044 

000042 

000104 
000462 
000116 
000002 
000007 


DSIPL 
DtLID 
DSLNAM 
DSLNUM 
D$LST 
DSMAXC 
DSMAXH 
DSMAXV 
DtMLL 
002  DSMNOD 

002  D$NA 

003  DSNBEA 
DSNBRA 

002  D$NEND= 
D$NLN 
D$NN 
DSOUTT 
DSRETF 
DSRNN 
DSRTMR 
DSSEG 
0$SER 
DSSQRL 
D$$BUG= 
D$$ISK= 
0$$L11= 
[)$$yNC  = 
D$$VNM= 
ECLLNK 


000051 
000020 
000006 
000014 
000047 
000064 
000066 
000070 
000040 
000041 
000062 
000056 
000054 
000054 
000030 
000060 
000043 
000050 
000002 
000076 
000036 
000032 
000052 
177514 
000000 
000001 
000000 
000000 
000052RG 


Errors  detected: 


000 
001 
002 
003 
004 
0 


(RU,I,G8L,A8S,0VR> 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CQN) 


'♦  Assembler  statistics 


0 

0 

11923  words  (  47  Pages) 

14440  Words   (  55  Pages) 

RSX-llM/PLuS 


E$$XPR= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

GtlWRD- 

INAC 

INCT 

IPL 

1$$RAR= 

I$$RDN= 

K$$CNT=: 

K$$CSR^ 

K$$LDC= 

K$$TPS= 

LDSLP  = 

LST 

L$$ASG= 

L$$DRV= 

L$$pn  = 

L$$nR= 

M$$CRB= 

M$$CRX= 

M$$FCS= 

l«l$$MGE  = 

M$$NET= 

M$$OVR= 

NODCT 

N$$ACC= 


000000 

000001 

000000 

000000 

000000 

000000 

000226RG 

000146RG 

000336RG 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

000366RG 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

OOOnORG 

000001 


work  file  reads 
Work  fi'le  writes 
Size  ot  work  t  i le 
Size  of  core  pool 
Operating  system 

f-acsed  time:  00:00:34.01 
SV:CF2DEC.v2,['32,i34]CF2DEC/CR/-SP=SY:ri.1]RSXMCM.SML/ML,[130, 


N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$M0V= 

N$$NCr= 

N$$PEM= 

OUTT 

P$$P45= 

P$$WRD= 

Q$$OPT= 

RETF 

R$$DER= 

R$tKl1= 

R$$SND= 

R$$11M^ 

SEG 

SYNERR= 

S$$WRG= 

S$$VSZ= 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 

$ALPHA= 

SANV  = 

$8LANK= 

$DIGIT= 

$DNUM8= 


000001 

000001 

000001 

000001 

000010 

000001 

000001 

0001 76RG 

000000 

000000 

000010 

000416RG 

000000 

000001 

000000 

000000 

000446RG 

»**t«t  GX 

000000 
007600 
000000 
000000 
001000 
000000 
000022 
000020 
000006 
000024 
000014 


$EOS 

SERRXO 

$ERRXP= 

$ERRXQ=: 

$ERRXR= 

$ERRXS= 

$ERRXT= 

$ERRXU= 

$ERRXW= 

$ERRXX= 

$ERRXY= 

$ERR1T= 

$EXIT  = 

SFAIL  = 

SLAMDA= 

$NUMBR= 

SQDEC 

$RAD5C= 

$STRNG= 

$SUBXP= 

$$LINX= 

$$NODC= 

$$$FLG= 

$$$KEY= 

$$$STA= 

$$$TMP= 

.PNUMB= 

.TPARS= 


=  000012 


***♦»»  GX 
GX 
GX 
GX 
GX 
GX 

******  GX 


****** 
****** 
****** 
****** 
****** 


****** 
******  GX 
******  GX 
******  GX 
000000 

vim 

000000 

000002 

OOOOOORG 

000016 

000004 

000010 

******  GX 

**\***  GX 

177777 

000000 

000000 

OOOOOOR 

******  GX 

******  GX 


lO]NEUie/ML,[15C,10]RSXMCM/PA:1,[1?2,10]CF2DEC 


004 


N  15 


CF2uMfi  CREATED   Bv      MACRO      ON  29-JUN-85   AT   00:14 

SYMBOL    CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

ALOCB 

Z       ♦•**•* 

GX 

5-92 

BUFijMP 

--  172554 

#5-64 

CMODE 

=  140000 

#5-64 

DEACB 

Z       **•**• 

GX 

5-167 

FE.EXT 

--   **•*•» 

GX 

5-86 

FMASH 

=  «  4*  *** 

GX 

5-86 

I$$AS 

=  »♦•♦♦* 

5-60 

5-64 

K I  SARD 

=  172340 

#5-64 

KISAR6 

=  172354 

#5-64 

MPAR 

=  172100 

#5-64 

MPCSR 

=  177746 

#5-64 

M$$MGE 

=  000000 

5-64 

5-8L 

M.BFVH 

=   ♦»*«** 

GX 

•5-111 

6-185 

M.SFVL 

r  ****** 

GX 

•5-110 

6-184 

M.LGTH 

=  ****** 

GX 

5-91 

5-165 

M.UMRA 

-  ****** 

GX 

5-147 

6-186 

M.UMRN 

=  ♦*«*«* 

GX 

•5-105 

6-188 

PIRQ 

=  177772 

#5-64 

PMODE 

=  030000 

#5-64 

PRO 

=  000000 

#5-64 

PR1 

=  000040 

#5-64 

PR2 

=  000100 

#5-64 

PR3 

=  000140 

#5-64 

PR4 

=  000200 

#5-64 

PR5 

=  000240 

#5-64 

PR6 

=  000300 

#5-64 

PR7 

=  000340 

#5-64 

PS 

=  177776 

#5-64 

P.3LK.S 

-   ****** 

GX 

5-99 

P.REL 

r  ****** 

GX 

5-106 

R$$MPL 

-  ****** 

5-64 

5-64 

R$$11D 

-  ****** 

5-64 

R$$11M 

=  000000 

5-84 

6-182 

5WR 

=  177570 

#5-64 

TPS 

=  177564 

#5-64 

UBMPR 

-  170200 

#5-64 

5-148 

UISARO 

=  177640 

#5-64 

UISARI 

=  177642 

#5-64 

IJMRLD 

000244 

R 

5-151 

#6-183 

SASUMR 

-   ****** 

GX 

5-128 

SERRXL 

=   ****** 

GX 

5-156 

SERRXM 

r  ****** 

GX 

5-168 

SSA'.'RG 

-  ****** 

GX 

5-98 

SUMRAL 

000000 

RG 

#5-85 

.ALLOC 

r  ****** 

GX 

5-100 

.BASEB 

=  uoooo 

#5-64 

.NOMAP 

~    ****** 

GX 

5-101 

5-107 

.PUMR 

-  ****** 

GX 

•5-150 

.JMRBA 

r  ****** 

GX 

•5-146 

.JMRFL 

-  »♦**♦* 

GX 

5-88 

L  16 

PAGE    1 

CREF       04.00 


6-182 


5-64 


5-115 


5-138 


5-157 


7-229 


M  16 


•  ^  !lE":D"':fgx3p 


M  1 


CCCCCCCC   F 

FFFFFFFFF 

GG6GGGGG 

XX      XX 

333333 

PPPPPPPP 

CCCCCCCC   F 

FFrFFfFFF 

GGGGGGGG 

XX      XX 

333333 

PPPPPPPP 

fir, 

XX      XX 

33     33 

PP     PP 

nn 

XX      XX 

"   11 

PP     PP 

m 

XX   XX 

33 

PP     PP 

fifi 

XX   XX 

33 

PP     PP 

FFFFFFF 

nci 

XX 

33 

PPPPPPPP 

FFFFFFF 

GG 

XX 

33 

PPPPPPPP 

GG 

GGGGGG 

XX   XX 

33 

PP 

GG 

GGGGGG 

XX   XX 

33 

PP 

GG 

GG 

XX      XX 

33     33 

PP 

GG 

GG 

XX      XX 

33     33 

PP 

CCCCCCCC   F 

GGGGGG 

XX      XX 

333333 

PP 

CCCCCCCC   F 

G6GGGG 

XX      XX 

333333 

PP 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLLLLLLLL 

LLLl^UUL 


CFGX" 

SVMBC 

SYMBt 

$QX3F 
$RAD' 
SRONL 
SSTRf 
$SUB) 
$X3C/ 
$X3Dt 
$X5Di 
$X3Mf 
$X3Ml 
$$$F1 
$$$<! 
.PNJ' 
.PNUI 
.TPAI 


ss 
ss 
ss 

ss 


5SSS55SS 

SSS5SSSS 


TTTTl 
TTTTl 


rTTTT 
TTTTT 


SSSSS5 
SSSSSS 


SS3SSSSS 
SSSS55SS 


SS 

ss 
ss 

ss 


;nfig 


N  1 

.E  3CA.N  ACTIO  MACRO  .OS. 05b  Saturday  29-Jun-85  00:09 


CFGX 


cfgx5p    created  b*  macro  on  29-jun-85  at  00:09 
svmbol  cross  reference 


10-133 


W     2 

PAGE   2 

CREF        OA.OO 


CF2/ 
COU» 


SYMBOL 

VALUE 

REFERENCES 

tQX3P 

000000 

Rr, 

#9-11! 

6RAD50 

=   000016 

#10-153 

SRONLV 

~       *  t  •  *  *  * 

10-135 

10 

-153 

tSTRNG 

=  OOOOOA 

#10-153 

SSUBXP 

=  000010 

#10-133 

$X5CAL 

~     •»**«• 

GX 

11-219 

$X3DBS 

—     ****** 

GX 

•11-183 

11 

-1V1 

$X3DWS 

z       ****** 

GX 

♦11-202 

11 

-210 

$X3MBS 

-    ****** 

GX 

»11-195 

$X3MWS 

=     ****** 

GX 

•11-212 

$$$FLG 

=   177777 

#10-133 

$$S<EV 

=  177777 

#10-153 

.PNUMB 

=   ,»«.«» 

GX 

11-229 

11 

-251 

.PNLIMH 

r      *»♦ * ♦ t 

GX 

11-227 

.TPARS 

=     ...».« 

GX 

9-119 

CFGX3P 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:09 


PAGE   3 


N     2 


CF2 
mil 


CF2M1  - 
COUNTER 

525 
326 
327 
328 
329 
330 
331 
332 
333 
33A 
335 
336 
337 
338 
339 
3^0 
3A1 
3A2 
343 
3A4 


M  3 

INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:09  Page  11 
'■  '.  ■<  rTION  ROUTINE 

.S8TTL   COUNTER  TIMER  ACTION  ROUTINE 


cf; 

ERF 


0007K 
0007U 
000720 
000722 
000730 
000732 

000740 
000746 
000750 
000756 

000760 
000764 


005767 
001004 
016767 


022767 
002404 
066767 


OOOOOOG 
OOOOOOG  OOOOOOG 

101$: 
000041  OOOOOOG  S.8RA: 
OOOOOOG  OOOOOOG 


COUNTER  TIMER  VALUE 
b.CTIM: 


062716  000002 


101$: 


TST 

BNE 

MOV 

RETURN 

EMSG$R 

CMP 
BLT 
ADD 

RETURN 

ADD 
RETURN 


.PNUMH 

101$ 

.PNUMB,$CTIM 

YN 

#33.,.PNUMB 

101$ 

.PNUMB.NBRA 


#2,(SP) 


LEGAL  COUNTER  TIMER  VALUE 

BR  IF  NO 

STORE  COUNTER  TIMER  VALUE 

ILLEGAL  COUNTER  TIMER  VALUE 

LEGAL  MAX  LIMIT  ? 

IF  NOT  -  BRANCH 

ADJUST  TOTAL  OF  BROADCAST  ROUTER  ADJ. 


REJECT  PARAMETER 


N     3 

CF2AC1    -   INITIAL   CONFIG  IRE   SC   MACRO  V05.03b   Saturday  29-Jun-85   00:09 
niiiric   -  Fi^T  RPMntF  wnnF  i  !<;t  PRnrFS=;iNi, 
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CF 


n   It 

CF2AC2  -  CONFIG  FILE   ACTION  ROU  MACRO  V05.03b   Saturday  29-Jun-85  00:10 
ERROR   MESSAGES 


168 

169 

170 

171   000174 

172 

173 

,7^ 

175 

176  000202 

177 

178  000210 

179  0002U 

180  000216 

181  000222 
182 

183  000224 
184 

185  000230 

186  000234 

187  000240 

188  000242 

189  000254 

190  000256 

191  000262 

192  000264 

193  000266 

194  000272 

195  000274 

196  000302 

197  000310 

198  000316 

199  000324 

200  000332 

201  000336 

202  000340 

203  000342 

204  000344 

205  000346 

206  000350 

207  000352 

208  000356 

209  000360 

210  000366 

211  000370 

212  000372 

213  000374 

214  000400 

215  000404 
216 

217  000406 

218  000410 
219 

220 
221 

222  000412 

223  000420 
224 


ERROR  CONDITIONS 
101$:   EMSGSR  'Z 


•*  NUMBER  OF  COPIES 


116767  OOOOOOG  000006'  O.CPV: 
OOOOOOG 
000001 G 


005767 
001076 
105767 
001075 


012701     000012 


103006 

000453 

010002 
010046 

012600 
116760 
016760 
016760 
116760 
116760 
016700 
010003 
010301 
011000 
001411 
010005 
010046 

012600 
126760 
101564 
010246 
010146 


105404 


10$: 


000000'  000002 
000002'  000006 
000004'  000010 
000001 '  000003 
000006'  000004 
OOOOOOG 


14$: 


000000'  000002  15$: 
18$: 

20$: 
30$: 


.ENABL 
MOVB 

TST 
BNE 
TSTB 
BNE 


O.END::  MOV 


SWSTK$ 

CALL 

BCC 

RETC 

BR 

SAVMAP 

MOV 

MOV 

CALL 

MOV 

Move 

MOV 

MOV 

MOVB 

M0V8 

MOV 

MOV 

MOV 

MOV 

BEQ 

MOV 

MOV 

CALL 

MOV 

CMP8 

BHI 

MOV 

MOV 

CALL 

RESMAP 

RETURN 

BCS 

RETURN 


LS8 
.PNUMB,MXCP 

.PNUMH 
101$ 
.PNUMB+1 
101$ 

#0.LEN,R1 

30$ 

$XAL0C 

10$ 

RO 

20$ 

R0,R2 

RO,-(SP) 

$CEACX 

(SP)+,RO 

TYPE,O.TYP(RO) 

ONAME,0.NAM(R0) 

0NAME+2,0.NAM+2 

FLAG,O.FLG(R0) 

MXCP,O.MXC(RO) 

OBJHD.RO 

R0,R5 

R3,R1 

(R0),R0 

18$ 

R0,R5 

RO,-(SP) 

$CEACX 

(SP)+,RO 

TYPE.O.TYPCRO) 

14$ 

R2,-(SP) 

R1,-(SP) 

$LINKX 


111$ 


Page  8-1 


ILLEGAL  FLAGS  WORD 


GET  NUMBER  OF  COPIES 


CF2 
TP^ 


IS 

IT 

A  WORD 

VALUE 

IF 

NF 

NO 

IS 

IT 

A  BYTE 

VALUE 

IF 

NE 

NO 

ERROR  CONDITIONS 


l01$: 
111$: 


EMSG$R  YZ 
EMSGSR  YY 


;  GET  LENGTH  OF  AN  OBJECT  BLOCK 

ENTER  KERNEL  MODE 

ATTEMPT  TO  ALLOCATE  BLOCK 

BR  IF  SUCCESS 

ELSE  SET  USER  C-BIT 

AND  EXIT 

SAVE  CURRENT  MAPPING 

SAVE  BUFFER  ADDRESS 

SET  BUFFER  ADDRESS 

GET  ACCESS  TO  THE  BLOCK 

GET  MAPPED  ADDRESS  FOR  BLOCK 

STORE  THE  OBJECT  TYPE  NUMBER 
.   STORE  THE  OBJECT  NAME 
(RO)  ;*  ... 

»  STORE  THE  FLAGS  BYTE 

»  COPY  THE  MAXIMUM  NUMBER  OF  COPIES  TO  SPAWN 

»  GET  ADDRESS  OF  BEGINNING  OF  LIST 

*  SAVE  ADDRESS  OF  PREVIOUS  BLOCK 

*  SAVE  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK 

*  GET  NEXT  BLOCK  IN  LIST 

*  IF  EQ,  AT  END  OF  LIST 

*  SAVE  UNMAPPED  ADDRESS 

*  SET  BLOCK  ADDRESS 

»  GET  ACCESS  TO  BLOCK 

»  GET  MAPPED  ADDRESS  OF  BLOCK 

*  INSERT  OBJECT  TABLE  ENTRY  HERE  ? 

*  BR  IF  NO 

*  GET  ADDRESS  OF  BLOCK  TO  LINK 

*  GET  ADDRESS  OF  PREVIOUS  BLOCK  IN  LIST 

*  LINK  BLOCK  INTO  LIST 

*  RESTORE  PREVIOUS  MAPPING 

»  RETURN  TO  USER  MODE  AND  TO  CALLER 

BR  IF  UNABLE  TO  ALLOCATE  BLOCK 


ILLEGAL  NUMBER  OF  COPIES 
OBJECT  BLOCK  ALLOCATION  FAILURE 
LET  NTLUNL  DE-ALLOCATE 


N     I, 
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CFi 
ERf 


212 
213 
214 
215 
216 

•  ROUSDf  ACTION 

ROUTINES 

218  000276 
219 

016767 

OOOOOOG 

OOOOOOG 

R.ADDR: 

:|V|0V 

.PNUMB,.NN 

STORE  THE  MAXIMUM  NUMBER  OF  NODES 
ANY  16-BIT  NUMBER  LEGAL 

220  000304 
221 

222  000306 

223  000314 

224  000322 

225  000324 
226 

227  000326 
228 

229  000334 

230  000342 

231  000350 

232  000352 
233 

234  000354 
235 

RETURN 

016767 
022767 
103401 

OOOOOOG 
001776 

OOOOOOG 
OOOOOOG 

R.COST: 

:MOV 
CMP 
BLO 
RETURN 

.PNUMB,.MAXC 

#1022.,.PNUM8 

101$ 

STORE  THE  MAXIMUM  COST 
VALUE  IN  RANGE  ? 
IF  LO,  NO 

101$: 

EMSG$R 

YK 

ILLEGAL  COST 

016767 
022767 
103401 

OOOOOOG 
000036 

OOOOOOG 
OOOOOOG 

R.HOP:: 

MOV 
CMP 
BLO 
RETURN 

.PNUMB,.MAXH 

#30.,.MAXH 

101$ 

GET  THE  MAXIMUM  NUMBER  OF  HOPS  ALLOWED 
VALUE  IN  RANGE  ? 
IF  LO,  NO 

101$: 

EMSG$R 

YL 

ILLEGAL  HOP 

236 

237  000362 

238  000366 

239  000370 

240  000376 
2'.1 

242  000400 
243 

005767 
001004 
016767 

OOOOOOG 
OOOOOOG 

OOOOOOG 

R.RTM:: 

TST 
BNE 
MOV 
RETURN 

.PNUMH 

101$ 

.PNUMB,.R0UTM 

LEGAL  ROUTING  TIMER  INTERVAL  VALUE? 

BR  IF  NO 

GET  ROUTING  TIMER  INTERVAL  VALUE 

101$: 

EMSG$R 

YW 

ILLEGAL  ROUTING  TIMER  INTERVAL  VALUE 

244 

245  000406 

246  000412 

247  000414 

248  000420 

249  000422 
250 

251  000424 

252  000432 
253 

254  000434 

255  000442 
256 

257  000444 

005767 
001004 
005767 
001405 
000410 

OOOOOOG 
OOOOOOG 

R.MAXA 

:TST 
BNE 

in 

BR 

.NN 

10$ 

.PNUMB 

20$ 

101$ 

•  ROUTING  NODE  ? 

■  IF  YES  -  BRANCH 

■  IF  NO  -  VALUE  MUST  BE  ZERO 

•  IF  LEGAL  -  BRANCH 
■ELSE  -  REPORT  ERROR 

022767 
1034C4 

000077 

OOOOOOG 

10$: 

CMP 
BLO 

#63.,. PNUMB 
101$ 

•  C  'ECK  FOR  HIGH  LIMIT 

•  I,  OUT  Of   RANGE  ■  BRANCH 

016767 

OOOOOOG 

OOOOOOG 

20$: 

MOV 
RETURN 

.  PNUMB,. NA 

•  GEI  NUMBER  OF  AREAS  IN  NETWORK 

101$: 

EMSG$R 

YM 

;  ILLEGAL  MAX  AREA  VALUE 
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CF2/ 
MACf 


96 
97 
98 
99 

100 
101 
102 
103 
10A  000015 

105  000052 

106  000120 

107  000206 
108 

109 
110 
111 
112  OOOOCO 


.SBTTL  ERROR  MESSAGES 


;  ERROR  MESSAGES 

.ENABL 
.NLIST 

LC 
BEX 

NTLERS 
NTLERS 
NTLERS 
NTLERS 

,E1, 
,E2, 
,E3, 
,E4, 

.LIST 
.DSABL 
.EVEN 
.PSECT 

SEX 

LC 

,CEPR,RTSPC,,<IUegal  event  class> 
,CERR,RTSPC,  ,<UlegaL  event  type  mask  word> 
,CERR,RTSPC,,<Euent  filter  control  block  allocation  failure> 
,CERR,RTSPC,,<Too  many  event  type  mask  words> 
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131 

132 

133 

134 

135 

136 

137 

138 

139 

HO 

1A1 

K2 

U3 

KA 

1A5  000116 

U6  000120 

K7  000122 

K8  00012A 

1A9  000126 

150 

151  000130 

152  000132 
153 

15A  000134 
155  000136 
156 

157  OOOUO 

158  0001A2 
159 

160  000144 

161  000146 

162  000150 

163  000152 
164 

165  000154 

166  000156 
167 

168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 


121021 
001015 
005004 
112004 
001002 

005305 
000771 

122021 
001006 

005304 
001374 

005305 
001363 
000241 
000401 

000261 


000160  010046 


184  000^62 

185  000164 

186  000166 

187  000 '70 


105020 
005301 
001375 
0126O0 


.SBTTL   CMPSTR  -  COMPARE  FILE  NAME  BLOCK  FIELDS 


INPUTS 
OUTPUTS 


R0,R1  ADDRESS  OF  FILE  BLOCKS  TO  BE  MATCHED 


C  CLEAR,  MATrH 
C  SET,   NO  .1ATCH 


CMPSTR: 

5$! 

CMPB(R0),(R1)+ 
BNE     15$ 
CLR     R4 
MOVB    (R0)+,R4 
BNE     10$ 

MATCH  ON  FIELD  SIZE 
IF  NOT  -  BRANCH 
INIT  BYTE  COUNT  • 

•  GET  FILED  SIZE 

•  IF  FILELD  LENGTH  -  BRANCH 

DEC 
BR 

R5 
CMPSTR 

•  COUNT  ONE  LESS  FIELD 

•  CHECK  NEXT  FIELD 

10$: 

CMPB 
BNE 

(fiO)+,(R1)t 
15$ 

;  MATCH  ? 

;  IF  NOT  -  BRANCH 

DEC 
BNE 

R4 
10$ 

;  COUNT  ONE  LESS  CHARACTER 
;  IF  MORE  -  BRANCH 

DEC 
BNE 
CLC 
BR 

R5 
CMPSTR 

20$ 

;  COUNT  ONE  LESS  FIELD 
;  IF  MORE  BRANCH 
;  INDICATE  BLOCK  MATCH 
;  CONTINUE 

15$: 
20$: 

SEC 
RETURN 

;  INDICATE  NO  MATCH 

;  INIBUF  -  INITIALIZE  BUFFER 

•  INPUTS  - 

RO  -  BUFFER  ADDRESS 
Rl  -  BYTE  COUNT 

;  OUTPUTS  - 

BUFFER  INIT 
RO  PRESERVED 

INIBUF 

MOV 

RO,-(SP) 

;  SAVE  BUFFER  ADDRESS 

10$: 

CLR8 
DEC 
BNE 
MOV 

(R0)  + 

Rl 

10$ 

(SP)+,RO 

;  CLEAR  BYTE 

;  COUNT  ONE  LESS  BYTE 

;  IF  MORE  -  BRANCH 

;  RESTORE  BUFFER  ADDRESS 

CF2, 

SYMI 

SYMI 

Z.P 
Z.S 

$CE. 
$ER 

$HE 
$LI 
$XA 
.FLI 
.FLI 
.FL 
.FL 
.FL 
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CREf        OA.OO 


CF2. 
ERRi 


SYMBOL 

VALUE 

REFERENCES 

Z.PCB 

000012 

#6-69 

Z.SCH 

000007 

#6-69 

SCEAC  ■ 

******  r,\ 

7-1H 

11-285 

SERRF. 

000000  R 

#6-80 

12-363 

SHEADR 

=  «*»***  GX 

7-109 

11-278 

SLINKX 

=  ******  GX 

11-313 

SXALOC 

=  ******  GX 

11-275 

.FLBKO 

000502  RG 

#12-337 

.FLBK1 

000520  RG 

#12-3^1 

.FLBK2 

000536  RG 

#12-3A5 

.FLB<3 

0OO55A  RG 

#12-349 

.FLBK4 

000572  RG 

#12-353 

12-369 


12-374 
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CF 
DA 


359  001122 

360 

361 

362 

363 

36'.  00112^ 

365  001130 

366  001132 

367  001136 

368  001  HO 

369  001 1AA 

370  001150 

371  001152 

372  001154 

373  0C1156 

374  001162 

375  001170 

376  001176 

377  001204 

378  001212 

379  001214 

380  001222 
381 

382 
383 

384  001224 


60$: 


RETURN 


016700 
001435 
105760 
001431 
016701 
005267 
006301 
006301 
060001 
062701 
142761 
142761 
156761 
032760 
001003 
142761 


OOOOOOG 

000014 

OOOOOOG 
OOOOOOG 


000022 

000100  000000 
000040  000000 
OOOOOOG  000000 
004000  000000 

000100  000000 


;  STATION  FLAGS 

X.FLG:: 

MOV 

$SLTA,'<0 

BEQ 

101$ 

TST8 

L.NSTA(RO) 

BEQ 

10$ 

MOV 

STAN,nl 

INC 

STAM 

ASL 

R1 

ASL 

Ri 

ADD 

r<0,R1 

ADD 

*L.MPF,R1 

BICB 

#SF.ENA,S.FLG(R1) 

BICB 

#SF.MFL,S.FLG(R1) 

BIS8 

PiRKFL,S.FLG(Rl) 

BIT 

#LF.MFL,L.FLG(R0) 

BNE 

10$ 

BICB 

#SF.ENA,S.FLG(R1) 

10$: 

RETURN 

;  ERROR 

CONDITIONS 

i01$: 

EMSG$R 

VM 

GET  SLT  ADDRESS 

IF  EO,  NO  PREVIOUS  SLT$DF  .'  I 

IS  THIS  LINE  A  SLAVE  ? 

IF  EQ,  yES  ..  NO  FLAGS  BYTE 

GET  THE  STATION  NUMBER 

SET  FOR  NEXT  STATION 

CONVERT  STATION  NUMBER  TO  2  WORD  INDEX 

GET  START  OF  STATION  TABLES 

CLEAR  SETTABLE  BITS 

SET  FLAG  (  TS 

IS  THE  Lli  MARKED  FOR  LOAD  ? 

IF  NE,  YES  ..  OKAY 

ELSE.  MAKE  SURE  WE  DON'T  ENABLE  LINE 


STATION  NOT  IN  SYSTEM 
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188  000^40 

189  000442 

190  000446 

191  000452 

192  000456 

193  000462 

194  000466 

195  000470 

196  000472 

197  000500 

198  000502 

199  000506 

200  000510 

201  000516 
202 

203 
204 

205  000520 

206  000526 

207  000530 

208  000536 
209 

210 
211 

212  000540 

213  000542 

214  000546 

215  000552 

216  000554 

217  000562 

218  000564 

219  000570 

220  000572 

221  000576 

222  000600 

223  000602 

224  000604 

225  000606 

226  000612 
in  000614 
225 

229  000622 

230 

231 

232 

233 

234 

235 

236 

237 

238 

23v 

240 

241 

242 

24  3 

24^ 


001004 
012722 
012712 
012702 

016701 
011101 
001004 
012766 
00C436 
026112 
001367 
026162 
001363 


032761 
001004 
012766 
000417 


010105 
016701 

103004 
012766 
000405 

103402 
010566 

005700 
001401 

010167 
001003 


063147 
047574 
OOOOOOG 

OOOOOOG 


8$: 
10$: 


20$: 
OOOOOOG  000002 
OOOOOOG       30$: 
000002G  000002 

OOOOOOG  OOOOOOG 
OOOOOOG  000002 


OOOOOOG 
OOOOOOG  000002 

000004 
OOOOOOG 


40$: 


50$: 


60$: 
70$: 


80$: 


90$: 


91$: 


92$: 


BNE  as 

MOV  #*RP00,(R2)t 

MOV  #"RL...(R2) 

MOV  #.PNAM2,R2 

SWSTK$  70$ 

MOV  PARHD.RI 

MOV  (R1),R1 

BNE  30$ 

MOV  #$ERRXC,2(SP) 

BR  60$ 

CMP  P.N/'"(H1),(R2) 

BNE  20$  , 

CMP  P.NAMt2(R1),2(R2) 

BNE  20$ 

.IF  NDF  R$$MPL 


IF  NE,  rES 
ELSE  DEFAULT 


TO  "POOL. 


POINT  AT  SECOND  NAME 

>  ENTER  KERNEL  MODE 

»  POINT  AT  PARTITION  LIST 

>  GET  NEXT  PCS  IN  LIST 

>  IF  NE,  NOT  AT  END  OF  LIST 

t  ERROR  -  PARTITION  NOT  FOUND 

y 

»  CHECK  FOR  RIGHT  NAME 

»  TWO  WORDS 


BIT 
BNE 
MOV 
BR 

.ENDC 

MOV 

MOV 

CALL 

BCC 

MOV 

BR 

CALL 

BCS 

MOV 

RETURN 

TST 

BEQ 

CALL 

MOV 

BNE 

EMSG$R 


TSTB 

BEQ 

MOV 

MOVB 

MOV 

ASL 

MOV 

ADD 

SUB 

MOV 

CALL 

SOB 


#PS.SYS,P.STAT(R1) 
40$ 

#$ERRXE,2(SP) 
60$ 


R1,R5 

PLGTH,R1 

aALOCB 

50$ 

#$ERRXJ,2(SP) 

60$ 

CRSU8 

60$ 

R5,4(SP) 

RO 
80$ 

a(R0)t 

R1,.PCB 

90$ 

XK 


.IF  DF   R$$MPL 


aNCPU 

93$ 

R3,-(SP) 

aNCPU, R3 

R3,R0 

RO 

K6TA8,<6TMP 

R0,K6TMP 

#2,K6TMP 

aK6TMP,R0 

$UMRAL 

R3,91$ 


;*  IS  IT  SYSTEM-CONTROLLED  ? 

IF  NE,  YES 

ERROR  -  NOT  SYSTEM-CONTROLLED  PARTITION 


*  COPY  MAIN  PCB  ADDRESS 

•  SUB-PCB  LENGTH 

*  TRY  TO  ALLOCATE 

•  IF  CC,  SUCCESS 

*  ERROR  -   SUB-PCB  ALLOCATION  FAILURE 
* 

»   CREATE   SUB-PARTITION 

*  IF  CS  FRROR 

♦  RETURN  SUB-PCB  ADDRESS  IN  USER  R1 

•  BACK  TO  USER  MODE 

DID  ERROR  OCCUR  IN  KERNEL  MODE  ? 

IF  EQ,  NO 

GO  PRINT  ERROR  MESSAGE 

WAS  SUB-PCB  CREATED  ? 

IF  NE,  YES 

PARTITION  TOO  FRAGMENTED 


IS  THIS  A  MULTI-PROCESSOR  SYSTEM 

IF  EQ,  NO 

SAVE  R3 

ASSUME  AT  MOST  177  CPU'S 

COPY  CPU  NUMBER 

CONVERT  TO  A  WORD  INDEX 

STORE  $K6TAB  VALUE 

GET  ADDRESS  OF  BIAS  FOR  THIS  CPU 

GET  BIAS 

ALLOCATE   UMR'S   FOR   R3'S   CPU 

REPEAT  <CPU  NUMBER>  TIMES 


CF 
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5 
6 

7 

8 
9 

10 
11 
-.2 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
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DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 
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DECnet-1lM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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CREF       OA.OO 


SYMBOL      VALUE 


L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DlS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

NSSVCT 

PAS 

PDVNM 

PDVTA 

RTSPC 

RUT  ID 

R$$11M 

R$$11S 

SERADD 

SERALL 

SERBEG 

SERCR 

SERCUR 

SERDCT 

SERDEV 

SERDMP 

SEREND 

SERfIN 

SFRFLG 

jERHST 

SERIMI 

SERNUD 

SERPAS 

SERSLN 

SERSLT 

5ERTMP 

SF.ACT 

SF.CiR 

SF.DEV 

SF.DIA 

SF.DPA 

SF.DPC 

SF.DUM 

SF.ENA 

SF.HAD 

SF.HST 


000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 
=  000022 

000022 

000020 

00001A 

000021 

000013 
=  ****** 

U00460  RG 

:  «*♦**♦   GX 
r  .».».♦   GX 

=  ******  GX 
=  »*♦♦** 

=  000000 
=  **  T*** 
I  »«»**♦  GX 

000162  R 
I  ******  GX 

000632  RG 
=   **»♦»*     GX 

-  »♦**♦*  GX 

r  ******   GX 

I  »*»«»*  GX 

OOOUA  RG 
=  ..***.  GX 

-  »»***•     GX 
=  **,.♦.  GX 

000056  RG 
=  ******  GX 
=  ,,*,**  GX 

000000  RG 
r  *.«*.*     GX 

r  ****** 

=  000200 

=  000010 

=  000020 

=  004000 

=  000100 

=  000200 

--  010000 

=  000100 

=  000004 

=  000002 


GX 


REFERENCES 

#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 

8-191 
#9-265 

10-352 

10-351 

5-85 

5-61 

5-61 

5-61 

8-158 

8-178 

7-135 
#10-328 
*8-196 

8-226 

8-218 

8-224 
#8-178 

7-137 

8-209 

8-211 
#7-135 

8-210 

8-219 
#6-105 
*6-118 

8-170 
#5-62 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-62 
#5-60 
#5-60 


11-403 
11-401 


11-405 


10-363 


8-213 
#8-186 


8-225 


8-220 
»6-119 


8-214 


8-215 


-222  8-223  9-282 

-216  •11-408 
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265 

264 
265 

FILE 

-  STORE 

FILE  NAME  IN  FILBUF 

266 
267 

INPUTS  - 

268 

STRADD  -  CURRENT 

STRING  ADDRESS 

269 

STRSIZ  -  STRING  SIZE 

2^0 

OUTPUTS  - 

271 

FILE  NAME  STORED 

IN  FILBUF 

272 
273 
274  000510 

- 

012^02 

OOOOOOG 

RE:: 

MOV 

*F1L8UF,R2 

GET  FILE  NAME  BUFFER  ADDRESS 

275  000514 

116722 

OOOOOOG 

MOVB 

STRSIZ, (R2)+ 

STORE  LENGTH  OF  STRING 

276  000520 

277 

278  000524 

016700 

OOOOOOG 

MOV 

STRADD, RO 

GET  ADDRESS  OF  STRING 

112022 

$: 

Move 

(R0)+,(R2)+ 

COPY  STRING  INTO  BUFFER 

279  000526 

005367 

OOOOOOG 

DEC 

STRSIZ 

COUNT  ONE  LESS  CHARACTER 

280  000532 

n01574 

BNE 

1$ 

IF  MORE  -  BRANCH 

281  000554 

^^,7 

OOOOOOG 

OOOOOOG 

MOV 

#FN6UFF,STRPT 

RESET  BUFFER  ADDRESS 

282  000542 

"" 

OOOOOOG 

CLR 

STRSIZ 

INIT  STRING  SIZE 

283 

284  000546 

RETURN 

285 

286 

+ 

287 

•  EXT  ■ 

-  STORE  FILE  EXTENSION 

288 

289 

•  INPUTS  - 

290 

STRADD 

-  STRING  ADDRESS 

291 

STRSIZ 

-  STRING  SIZE 

292 
293 

;•  OUTPUTS  - 

294 

FIL8UF 

CONTAINS  FILE  EXTENSION 

295 
296 
297  000550 

;- 

022767 

000005 

OOOOOOG 

EXT:: 

CMP 

*EXTN, STRSIZ 

CHECK  FOR  LEGAL  SIZE 

298  000556 

100452 

BMI 

10$ 

IF  TOO  LARGE  -  BRANCH 

299  000560 

016700 

OOOOOOG 

MOV 

STRADD, RO 

GET  STRING  ADDRESS 

500  000564 

005002 

CLR 

R2 

INIT  REG  FOR  FILENAME  SIZE 

501  000566 

116702 

OOOOOOG 

MOVB 

FILBUF, R2 

GET  SIZE  OF  FILE  NAME 

502  000572 

012701 

OOOOOOG 

MOV 

#FIL8UF,R1 

GET  FILE  NAME  BUFFER  ADDRESS 

303  000576 

005201 

INC 

R1 

SKIP  SIZE  BYTE 

504  000600 

060102 

ADD 

R1,R2 

CALCULATE  STARTING  ADDR.  OF  EXTENSION 

505  000602 

112722 

000056 

MOVB 

#'.,(R2)t 

•  INSERT  DOT 

506  000606 

005267 

OOOOOOG 

INC 

FILBUF 

•  BUMP  BYTE  COUNT 

507  000612 

066767 

OOOOOOG 

OOOOOOG 

ADD 

STRSIZ, FILBUF 

■  ADJUST  FILE  NAME  SIZE 

508  000620 

112022 

5$: 

MOVB 

(R0)t,(R2)+ 

■  COPY  FILE  EXTENSION 

509  000622 

005367 

OOOOOOG 

DEC 

STRSIZ 

■  COUNT  ONE  LESS  BYTE 

510  000626 

311 

512  000650 

001374 

BNE 

5$ 

•  IF  MORE  -  BRANCH 

012767 

OOOOOOG 

OOOOOOG 

MOV 

#FN6UFF,STRPT 

■  RESET  BUFFER  POINTER 

515  000656 

314 

315  000642 

316 

317  000644 

005067 

OOOOOOG 

CLR 

STRSIZ 

;  INIT  STRING  SIZE 

RETURN 

062716 

000002 

10$: 

ADD 

#2,(SP) 

;  SYNTAX  ERROR 

518  000650 
319 

RETURN 

-cdatq   -   rnhicir.   c  1 1  F    AfTiriM   Dnii   MATRn   wOS    OXh    <;3tnrHAv   ?9- 


N  13 

i-RS   00:13     PflQP   8-1 


L 


C^^AfQ  CREATED  BY     MACRO     ON  29-JUN-85   AT   00;15 

SYMBOL    CROSS   "EfERENCE 

SYMBOL      VALUE  REFERENCES 


n  u 


PAGE   ^ 

CRff       OA.OO 


ZF.DOM 

■-  000001 

#6-65 

ZF.DIA 

=  00400C 

#6-65 

zf.dlc 

=  000002 

#6-65 

ZF.DVP 

=  100000 

#6-65 

ZF.INI 

=  040000 

#6-65 

ZF.KMX 

=  000020 

#6-65 

zf.llc 

=  OOOOOA 

#6-65 

zf.lmc 

=  000100 

#6-65 

ZF.MAN 

=  020000 

#6-65 

ZF.MFL 

=  000010 

#6-65 

ZF.MTM 

=  000400 

#6-65 

ZF.MUX 

=  000040 

#6-65 

ZF.PSE 

=  002000 

#6-65 

ZF.SLI 

=  010000 

#6-65 

ZF.TIM 

=  000200 

#6-65 

ZF.X3P 

=  000000 

#6-65 

ZS.ASN 

=  100000 

#6-65 

ZS.BSY 

=  140000 

#6-65 

Z.AVL 

000014 

#6-65 

Z.DAT 

000016 

#6-65 

Z.DSP 

000000 

#6-65 

Z.FLG 

000010 

#6-65 

Z.LEN 

=  000016 

#6-65 

Z.LLN 

000006 

#6-65 

Z.MAP 

000020 

#6-65 

Z.NAM 

000004 

#6-65 

Z.PCB 

000012 

#6-65 

Z.SCH 

000007 

#6-65 

SAlpha 

=  000022 

#10-398 

$ANY 

=  000020 

#10-398 

sblank 

=  000006 

#10-398 

$CAT5 

=      »♦♦*♦* 

nx 

7-204 

SDIGIT 

=  000024 

#10-398 

SDNUMB 

=  000014 

#10-398 

SEOS 

=  000012 

#10-398 

SERRXA 

r  ***♦**■ 

GX 

7-140 

SERRXB 

-  ****** 

GX 

7-147 

$ERRXD 

r   ♦*♦*♦* 

GX 

7-172 

SERRXF 

r  ****** 

GX 

7-252 

SERRU 

-  ****** 

GX 

7-103 

SEXIT 

=  000000 

#10-398 

$fail 

=  177777 

#10-398 

$GPRM 

r  »«•*** 

10-398 

$L  AMD'S 

=  000000 

#10-398 

tNUMBR 

=  000002 

#10-398 

SQBRA 

000000 

«G 

#7-84 

SQMLMf 

000014 

RG 

#7-90 

SQXPT 

000006 

RG 

#7-87 

SRAD5C 

=  000016 

#10-398 

tRONLV 

-  ****** 

10-398 

SSTRNG 

=  000004 

#10-398 

$5oSXP 

=  000010 

#10-398 

6-65 


7-207 


9-362 


10-393 


10-398 


CF 

5Y 

SY 

CF 
CF 
DE 
DE 
DE 

DE 
DE 
DE 
01 
D1 
D! 
D1 
D1 
Dl 
D1 
Dl 
Dl 
Dl 
Dl 
E( 
U 
V 
If 
L! 
N( 
01 
Rf 
SI 
S' 

s< 
$/ 

$! 

$1 
SI 
$1 
$! 
$1 
SI 
SI 
SI 
SI 
Si 
Si 

Si 

S 

s 
s 
s 
s 
s 
$ 


rDCATcn  Dv   MAfDn   nM  ?Q-ll!W-«S  AT  nn-13 


PATF  S 


N  U 


u. 


L 


rf2DEC 


CREATED  B'  MACRO  ON  29-JUN-85  AT  00:U 


SVUBCI  CROSS  REFERENCE 


SYMBOL   VALUE 


CFGBF 
CFGSZ 
DECDF 
DECKW 
DECPT 

DEC5T 

DELF 

DELW 

DSDELF 

D$DELW 

DSINAC 

DSINCT 

DflPL 

DSLST 

DSMLL 

DSMNOD 

DSOUTT 

DtRETF 

D$SEG 

ECLLNK 

INAC 

INCT 

IPV 

LST 

NODCT 

OUTT 

RETF 

SEG 

SrNERR 

SALPHA 

$ANV 

SBLANK 

SDiGIT 

JDNUMB 

$EOS 

SERRXO 

SERRXP 

SERRXQ 

SERRXR 

SERRXS 

SERRXT 

SERRXU 

tERRXW 

SERRXX 

SERRXV 

$ERRi' 

SEXir 

tFAIL 

$GPRM 

SlAMDA 

SNuMBR 


r  *  t  *  *  t  * 


GX 
GX 

000000  R 
000000  HG 
••»•«•  GX 

000000  PG 

000256  RG 

000306  RG 

OOWAS 

000046 

00C0A4 

0OC0I12 

000)51 

000K7 

OOODAO 

OOOOAl 

0000A3 

000050 

000036 

000052  RG 

000226  RG 

00OU6  RG 

000336  RG 

000366  RG 

00011 0  RG 

000176  RG 

000^;  16  RG 

000A46  RG 

»»..».  GX 

000022 

000020 

000006 

00002A 

OOOOK 

000012 

•••••t  GX 

......  GX 

......   GX 

......   GX 

......   GX 

......   GX 

......  GX 

......  GX 

■  ......  GX 

■  ......   GX 

......  GX 

■  000000 
:    177777 

*  t  t  *  ♦  * 

:  000000 

■  000002 


fl  15 

PAGE   1 

CREF       04.00 


REFERENCES 

6-66 

6-65 

6-62 

6-6A 

7-86 

7-162 
#8-177 
*7-126 
#7-134 
•7-129 
♦7-137 
»7-121 
♦7-105 

♦  7-U5 
♦7-154 

♦  7-87 

♦  7-96 
♦7-113 
♦7-163 
♦7-169 
#7-84 
#7-118 
#7-102 
#7-142 
#7-151 
#7-93 
#7-110 
#7-160 
#7-168 
•6-67 
#8-177 
#8-177 
#8-177 
#8-177 
#8-177 
#8-177 

7-91 

7-100 

7-132 

7-140 

7-148 

7-157 

7-108 

7-124 

7-166 

7-116 

6-74 
#8-177 
#8-177 

8-177 
#8-177 
#8-177 


#8-177 
7-95 
7-168 


7-104 


7-112 


7-120 


7-128 


7-136 


7-144 


7-153 


C^ 
C 
El 
Nl 
Rl 
SI 


♦6-70 


rDCATCh     DV 


iM-R";  AT  nn-u 


PAGF    2 


N  15 


M  16 

CF2uMf(  CREATED  Bv     MACRO     ON  ?')-jUN-85   AT   00:U  PAGE   2 

MACRO  CROSS   RE^BRENCE  CREf        OA.OO 

MACRO  NAME  REFERENCES 

fALL  5-90  5-92  5-112  5-128  5-166  6-183 

CALLR 

EMSGtR 

NHWDFS 

RETURN  -    .  -      - 

SwSTKt  5-90  5-112  5-166  6-183 


5-90 

5-92 

5-112 

5-167 

#5-58 

5-156 

5-168 

#5-62 

5-64 

5-95 

5-134 

6-195 

5-90 

5-112 

5-166 

N  1 

rF(;x3P  -  CONFin  fIlE  scan  ACTIO  MACRO  v'05.05b  Saturday  29-Jun-85  00:09 
'at'e  0*  contents 

S-  55  MACRO  DEFINITIONS 

t-  62  CONSTANT  DEFINITIONS 

^2  LOCAL  DATA 

e-  85  ERROR  MESSAGES 

9-  '00  $QX3P  -  LOOK  FOR  X5P$DF  MACRO 

10-  129  X5P$DF  STATE  TABLE 

n-  T76  x3P$Df  ACTION  ROUTINES 


CFGX 

MACRl 

MACRI 

CALL 
DBGTl 
EMSG' 
ISTA 
MTRAI 
NTLE1 
RETU 
STAT 


IRAN 


CFGX3P  CREATED  BY     MACRO 

MACRO   CROSS  REFERENCE 


MACRO   NiAME 

CALL 

DBGTPS 

EMSGtR 

ISTATt 

MTRANt 

NTLERS 

RETURN 

STATES 

TRANS 


REFERENCES 

9-119 
#10-133 
#5-60 
#5-60 
#10-133 
#5-60 

9-123 
#5-60 
#10-164 
#5-60 
#10-165 


11-181 

#10-169 

9-127 

10-133 

8-91 

11-184 

10-137 

#10-167 

#10-138 

#10-168 


N-85  AT 

00 

:09     PAGE 
CREF 

N  2 

3 

04.00 

11-189 

11-200 

11-208 

11-185 

11-195 

11-196 

11-204 

11-214 

11-215 

11-237 

8-92 

11-194 
#10-140 
#10-171 
#10-141 
#10-169 

8-93 

11-203 
#10-143 
#10-174 
#10-144 
#10-172 

8-94 

11-213 
#10-146 

#10-147 

8-95 
11-233 
#10-149 

#10-150 

11-236 
#10-152 

#10-153 

11-244 
#10-155 

#10-156 

#10-158 
#10-159 

CF2i 
QUIl 


#10-161 
#10-162 


N  3 

CF2AC1  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:09 
QUICK  -  FAST  REMOTE  NODE  LIST  PROCESSlNb 
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CF 
ERI 


346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 

362  000766 

363  000772 

364  000774 

365  000776 
366 

367  001000 

368  001002 

369  001010 

370  001012 

371  001014 

372  001020 
3^3 

374  001026 

575 

376 


016700 
001002 
000261 


010001 
026767 
103771 
000241 
010267 
016767 


000001 


OOOOOOG 


000006'  OOOOOOG 


OOOOOOG 
000006'  OOOOOOG 


.SBTTL  QUICK  -  FAST  REMOTE  NODE  LIST  PROCESSING 

h 

QUICK  -  FAST  REMOTE  NODE  LIST  PROCESSING 

INPUTS: 

SLSTRM  -  LAST  REMOTE  NODE  BLOCK  POINTER 

R2     -  UNMAPPED  ADDRESS  OF  CURRENT  REMOTE  NODE  BLOCK 

OUTPUTS: 

C  -  CLEAR,  LINK  REMOTE  NODE  BLOCK  AT  END  OF  LIST 
C  -  SET,  REMOTE  NODE  LIST  SEARCH  NEEDED 
SLSTRM, kSTAD  UPDATED 


GET  LAST  REMOTE  NODE  POINTER 
IF  VALID  -  BRANCH 
INDICATE  FAILURE 


QUICK: 

MOV 

$LSTR^ 

,R0 

BNE 

10$ 

5$: 

SEC 
RETURN 

10$: 

MOV 

R0,R1 

CMP 

RADDR, 

SLSTAD 

BLO 

5$ 

CLC 

MOV 

R2,$LSTRM 

MOV 

RADDR 

$L5TAD 

RETURN 

.END 

SAVE  LAST  REMOTE  LIST  ADDRESS 
DOES  BLOCK  GO  AT  END  OF  LIST 
IF  NO  -  BRANCH 
IF  YES  -  INDICATE  SUCCESS 
UPDATE  NEW  END  OF  LIST  POINTER 
UPDATE  HIGHEST  NODE  ADDRESS 


N     4 

Cf2AC2  -  CONFIG  FILE   ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85   00:10     Page  8-2 
ERROR  MESSAGES 


cf; 

TP/ 


225 
226 
227 
228 


000001 


.DSABL      LS8 
.END 


CF2AC3  -  MTLCF2   ACTION 
TPARS   ACTION  ROUTINES   F 


N  5 

ROUTINES  MACRO  VC^.Oib  Saturday  29-,)un-85  00:10 
OR  R0U$DF 


Page  10 


259 
260 
261 
262 

■  ROU$DF  ACTION 

ROUTINES 

263 
264 

265  000452 

266  000456 

267  000460 

268  000464 

269  000466 
270 

271  000470 

272  000476 
273 

274  000500 

275  000506 
276 

277  000510 
278 

279  000516 

280  000524 
281 

282  000526 

283  000534 
284 

285  000536 

286 

287 

288  000544 

289  000552 
290 

291  000554 

292  000562 
293 

294  000564 

005767 
001004 
005767 
001405 
000410 

OOOOOOG 
OOOOOOG 

R.BEA:: 

TST 

BEQ 

BR 

.NN 

10$ 

.PNUMB 

20$ 

101$ 

022767 
103404 

002000 

OOOOOOG 

10$: 

CMP 
BLO 

#1024.,. PNUMB 
101$ 

016767 

OOOOOOG 

OOOOOOG 

20$: 

MOV 
RETURN 

.PNUMB,.NBEA 

101$: 

EMSG$R 

YO 

022767 
103404 

000036 

OOOOOOG 

K.AMXH: 

:CMP 
BLO 

#30... PNUMB 
101$ 

016767 

OOOOOOG 

OOOOOOG 

MOV 
RETURN 

. PNUMB,. AMAXH 

101$: 

EMSG$R 

yo 

022767 
103404 

002000 

OOOOOOG 

R.AMXC: 

:CMP 
BLO 

#1024.,. PNUMB 
101$ 

016767 

OOOOOOG 

OOOOOOG 

20$: 

MOV 
RETURN 

. PNUMB,. AMAXC 

101$: 

EMSG$R 

VP 

cf; 

FL" 


ROUTING  NODE  ? 

IF  YES  -  BRANCH 

IF  NO  -  THIS  VALUE  MUST  BE  ZERO 

IF  LEGAL  -  BRANCH 

ELSE  -  REPORT  ERROR 

check  against  high  LIMIT 
IF  OUT  OF  RANGE  -  BRANCH 

COPY  NUMBER  OF  BROADCAST  ENDNODE  ADJACENCIES 

ILLEGAL  BROADCAST  ENDNODE  ADJACENCY  PARAMETER 

CHECK  AGAINST  HIGH  LIMIT 
IF  OUT  OF  RANGE  -  BRANCH 

COPY  VALUE  OF  AREA  MAX  HOPS 

ILLEGAL  AREA  MAX  HOP  PARAMETER 

CHECK  AGAINST  HIG,:  LIMIT 
IF  OUT  OF  RANGE  -  BRANCH 

COPY  AREA  MAX  COST  PARAMETER 
ILLEGAL  AREA  MAX  COST  VALUE 


N  6 

CF2AC4  -  CONHG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:11 
FLTDFt  ACTION  ROUTINES  FOR  EVENT  CLASS  AND  TYPE 
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CF2, 
CMP 


114 
115 
116 
117 
118 
119 
120 
121 
122 

123  000000 

124  OOOOOA 

125  000006 

126  000012 

127  000016 

128  000020 

129  000024 

130  000030 

131  000034 
132 

133 

134 

135  000050 

136 

137 

138 

139  000052 

140 

141 

142 

U3 

144 

145 

146 

147  000060 

148  000064 

149  000066 

150  000074 

151  000076 

152  000104 

153  000112 
154 

155 
156 
157 

158  000114 

159  000122 


.SSTTL   FLTDFS  ACTION  ROUTINES  FOR  EVENT  CLASS  AND  TYPE 


E.NUM  -  PROCESS  EVENT  CLASS  NUMBER 


005767 
001 022 
016700 
022700 
103415 
010067 
005067 
012700 
010067 
000004 


OOOOOOG 

OOOOOOG 
077700 

000000' 
000002' 
000004' 
000014' 


E.NUM: : 

TST 

.PNUMH 

BNE 

101$ 

MOV 

.PNUMB,RO 

CMP 

#77700, RO 

BLO 

101$ 

MOV 

RO, CLASS 

CLR 

FLAG 

MOV 

#EVENT,RO 

MOV 

RO,STRADD 

.REPT 

4 

CLR 

(R0)  + 

.ENDR 

RETURN 

•  ERROR 

CONDITIONS 

101$: 

EMSGSR 

El 

SPECIFIED  VALUE  A  WORD  VALUE? 

BR  IF  NO 

GET  SPECIFIED  VALUE 

LEGAL  VALUE? 

BR  IF  NO 

SAVE  CLASS 

START  OFF  WITH  NO  DESTINATIONS  DEFINED 

GET  ADDRESS  OF  EVENT  TYPE  MASKS 

SAVE  IT 

CLEAR  EVENT    TYPE   MASKS 


ILLEGAL   EVENT   CLASS 


E.MSK  -  PROCESS   EVENT    TYPE  MASK 


005767 
001013 
022767 
001412 
016777 
062767 


OOOOOOG 

000014'  000014' 

OOOOOOG  000014' 

000002  000014' 


E.MSK::  TST 
BNE 
CMP 
BEQ 
MOV 
ADD 
RETURN 


.PNUMH 

101$ 

#EVENT+10,STRADD 

102$ 

.PNUMB,aSTRADD 

#2,STRADD 


ERROR  CONDITIONS 


101$: 
102$: 


EMSG$R 
EMSG$R 


E2 
E4 


LEGAL  MASK? 

BR  IF  NO 

MORE  THAN  4  EVENT  TYPE  MASK  WORDS? 

BR  IF  YES 

SAVE  THE  MASK 

POINT  TO  NEXT  WORD  IN  AREA 


ILLEGAL  MASK  WORD 

TOO  MANY  EVENT  TYPE  MASK  WORDS 


N  7 

CF2AC5  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:11 
fMPSTR  -  COMPARF  FILE  NAME  BLOCK  FIELDS 


Page  8-1 


188 

189  000172 


RETURN 


CF2 
MAC 
MAC 
CAL 


DHB 
EMS 
FNB 
NTL 
PDV 
RET 
RET 
SER 
SLT 

sus 


CF2AC5     CREATED  BY  CACRO  ON  29-JUN-85  AT  00:11 
MACRO  CROSS  REFERENCE 


N  8 


"lACRO  NAME 

REFERENCES 

CALL 

7-101 

7-lU 

7-122 

11-306 

11-313 

12-356 

12-399 

DHBDF$ 

#5-58 

6-66 

EMSGSR 

#5-58 

12-363 

FNBDF$ 

#5-58 

6-67 

NTLERS 

#5-58 

6-80 

PDVDFS 

#5-59 

6-69 

RETC 

#5-58 

7-109 

11-278 

RETURN 

7-128 

8-166 

8-189 

SERDFt 

#5-58 

6-68 

SLTDf; 

#5-59 

6-70 

SWSTHS 

7-101 

n-273 

12-366 

10-233 


PAGE  5 

CREF   OA.OO 

10-243 
12-360 

10-247 
12-366 

10-25? 
12-369 

11-273 
12-374 

11-275 
12-391 

11-285 
12-395 

CF2 
ERR 


9-214 


10-257 


11-316 


12-382 


12-401 


N  9 

CF2AC6  -  CONFIG  FRE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:11 
ERROR  MESSAGES 
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CF 
DA 


386 
387 
388 

389  001232 

390  001236 

391  001 2A0 

392  001246 

393  001250 

394  001256 

395  001260 

396  001262 
397 

398 


105767 
001011 
126727 
101005 
116777 
002401 


000001 


000001 G 

OOmoOG  000007 
OOOOOOG  OOOOOOG 


L.LGST  -  SET 

L 

LOST: 

:TSTB 
BNE 
CHPB 
BHI 
MOVB 
BLT 
RETURN 

101$: 

EHSGSR 

LOGGING   STATE   ACTION  ROUTINE    (LOGSST) 


.PNUMB+I 

101$ 

.PNUMB,*7 

101$ 

.PNUMB.aLGSTT 

101$ 

Li 


IS  SPECIFIED  VALUE  A 
BR  IF  NO  -  ERROR 
LEGAL  VALUES  ARE  0-7 
BR  IF  ILLEGAL  VALUE 
SAVE  IT 
BR  IF  ILLEGAL  VALUE 


BYTE  VALUE? 


.END 


N  10 

CF2AC7  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:12 
DATA  SECTION 


2A5 

246 

247 

248 

249 

250 

251  000622 

252 

253 

254 

255 

256 

257 

258  000622 

259  000630 

260  000632 

261  000636 

262  000640 

263  000644 
264 

265 
266 

267  000644 

268  000650 

269  000656 

270  000660 

271  000666 

272  000672 

273  000676 

274  000704 

275  000710 

276  000714 

277  000720 
278 

279  000724 

280  000730 

281  000734 
282 

283 
284 
285 
286 
287 
288 
^89 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 


93$: 


931$: 


032777     OOOOOOG  OOOOOOG 

001403 

005767  OOOOOOG 

001002 

005267  OOOOOOG 


931$: 
933$: 


032777  OOOOOOG  OOOOOOG  94$: 

001..- 

O'J/0  177774  OOOOOOG 

005061  OOOOOOG 

010161  000002G 

062761  OOOOOOG  000002G 

016100  OOOOOOG        95$: 

010067  OOOOOOG 


016622  000006 
016612  000010 


100$: 


10$: 


15$: 


MOV 

CLR 
BR 


ENDC 


.IF  Dr 
BIT 
BNE 
INC 

.IFF 

BIT 

BEQ 

TjT 

BNE 

INC 


.ENDC 

CALL 

BIT 

BEQ 

MOV 

CLR 

MOV 

ADD 

MOV 

MOV 

SWSTK$ 

CALL 

MOV 
MOV 
RETURN 

.IFF 

MOV 

TST 

BNE 

MOV 

MOV 

MOV 

ADD 

BU 

BEQ 

BIS 

CRRG$S 

BCS 

MOV 

MAP$S 

BCS 

MOV 

MOV 


(SP)',R3 

R2 

94$ 


R$$MPL 

#HF.UBM,SHFMSK 

931$ 

.UMRFL 


#FE.EXT,aFMASK; 

931$ 

$UMRPT 

933: 

.UMRFL 


Page  6-3 

RESTORE  R3 

ZERO  THE  UHR  BLOCK  ADDRE: 

AND  CONTINUE 


DOES  THIS  SVSTEM  HAVE  UMR'S? 

BR  IF  YES 

ELSE  INDICATE  NO  UMRS 


Extended  memory  system? 

Br  ' f  no 

Are  UMR's  present? 

Br  if  yes 

Indicate  no  UMRs 


CI 


$UMRAL 

#FE.PLA,aFMASK 

95$ 

#*C<3>,P.PR0(R1) 

P.ATT(RI) 

R1,P.ATTt2(R1) 

#P.ATT,P.ATT+2(R 

P.REL(R1),R0 

R0..HOME 

106$ 

$MAPX 

6(SP;,(R2)+ 
10(SP),(R2) 


;    DF   R$$11M 

#.PNAM1,R2 

(R2J 

10$ 

#"RP00,(R2) 

#*RL..,2(R2) 

.NTPSZ,.P0SIZ 

.FUDGE, .POSIZ 

*LS.TOP,$FUNC 

15$ 

#RS.HLD,.PORDBtR 

*.PORDB 

101$ 

.RGID,.WRGID 

*.WDB 

10?$ 

R3,-(SP) 

R4,-(SP) 


ALLOCATE  AND  LOAD  UMR'S 
IS  THIS  A  PLAS  SYSTEM  ? 
NO  .. 

;  YES  ..  ALLOW  ONLY  SYSTEM  READ/WRITE  ACCESS 
AND  INITIALIZE  ATTACHMENT  LISTHEAD 

)  ; 
GET  HOME  BLOCK  BIAS 
SAVE  IT 

*  ENTER  KERNEL  MODE 

*  MAP  TO  THE  HOME  BLOCK 

*  REMEMBER  -  $MAPX  ADDS  1  WORD  TO  STACK 

*  STORE  NTPOOL  PCB  ADDRESS 

*  AND  UMR  BLOCK  ADDRESS 

*  BACK  TO  USER  MODE  AND  THEN  TO  CA..LER 


POINT  TO  REGION  NAME 

WAS  A  REGION  NAME  SPECIFIED? 

IF  NE,  YES 

USE  DEFAULT  NAME 

SEfsiZE  OF  BUFFER  AREA 
ADD  IN  FUDGE  FACTOR  TO  POOL  SIZE 
TOP-DOWN  LOADING  REQUIRED? 
BR  IF  NO 
GSTS  ;  SET  TOP-DOWN  LOADING  FLAG 
CREATE  REGION  FOR  NETWORK  POOL 
IF  CS,  FAILURE 

SET  UP  REGION  ID  FOR  MAPPING 
MAP  TO  THE  REGION 
IF  CS,  FAILURE 
GET  2  FREE  REGISTERS 


N  11 

Cf2AC8  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:12 
MACRO  DEFINITIONS 


Puge  5 


45 
46 
47 
48 
49 
50 
SI 
•)2 
53 
54 
55 
56 
57 

58  000000 

59  000000 

60  000000 

61  000000 

62  000000 
63 

64 
65 
66 
67 
68 
69 
70 
71 
12 
73 
74 
75 
76 

n 

78 
79 
80 
81 
82 
83 

84  000000 

85  000000 
86 

87  000000 


.SBTTL  MACRO  DEFINITIONS 


LOCAL  MACROS 


.MCALL  EMSG$R,NTLER$, RE TC, FNBDFS, DHBDFS, SERDFS 
.MCALL  PDVDFS, SLTDFS 


DEFINE  DECNET  HOME  BLOCK  OFFSETS 

DEFINE  FILE  NAME  BLOCK  OFFSETS 

DEFINE  SERVICE  BLOCK  OFFSETS 

DEFINE  PDV  OFFSETS 


000100 


;  OFFSET  VALUES 

DHBDFS 
FNBDFS 
SERDFS 
PDVDFS 
SLTDFS 

.MACRO 

MOV 

.ENDM 

SAVMAP 
SKSAR5,-(SP) 

.MACRO 

MOV 

.ENDM 

RESMAP 
(SP)+,aKSAR5 

•  + 

;  LOCAL 

EQUIVS 

LET 

=  100 

DEFINE  SLT  OFFSETS 


HEX  LETTER  DIGIT 


LOCAL  ERROR  MESSAGES 

.°SECT      DATA 
NTLERS     ,SS,8,CERR,RTSPC,CFLIN,<Ser\/ice  block   allocation   failure> 

.PSECT 


CF2AC8     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:12 
SYMBOL  CROSS  REFERENCE 


N  12 

PAGE  3 

CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

SF.LOA 

=  002000 

#5-60 

SF.LPB 

=  OOOOOA 

#5-62 

SF.MFL 

=  000040 

#5-62 

SF.PAC 

=  000020 

#5-62 

SF.PH3 

=  020000 

#5-60 

SF.PSi) 

=  OOOOAO 

#5-60 

SF.REA 

=  000010 

#5-62 

SF.SEC 

=  000400 

#5-60 

SF.SER 

=  000001 

#5-62 

SF.SVC 

=  000002 

#5-62 

SF.TER 

=  001000 

#5-60 

SF.UNL 

=  OOOOAO 

#5-62 

sltma 

=  «**«.*  GX 

11-391 

SLTNM 

=  ♦****.  GX 

11-396 

S$$BAS 

=  ****** 

5-85 

5-85 

S.ADD 

000004 

#5-60 

♦8-210 

S.CIR 

000016 

#5-60 

.8-216 

S.COST 

000001 

#5-62 

S.DEV 

000020 

#5-60 

»8-218 

S.DIA 

000046 

#5-60 

S.DPA 

000032 

#5-6C 

*8-224 

»8-225 

S.DPC 

000036 

#5-60 

*8-226 

S.DUM 

000050 

#5-60 

S.FLAG 

000002 

#5-60 

»8-209 

S.FLG 

000000 

#5-62 

S.HAD 

000010 

#5-60 

*8-213 

«8-214 

*8-215 

5.HST 

000006 

#5-60 

•8-211 

b.LEN 

000004 

#5-62 

S.LENG 

000052 

#5-60 

8-187 

8-20^ 

S.LNK 

000000 

#5-60 

S.LOA 

000044 

#5-60 

S.NMST 

0000O2 

#5-62 

5.0WNR 

000003 

#5-62 

5.PSS 

000022 

#5-60 

*8-219 

*8-220 

*8-222 

S.SEC 

000040 

#5-60 

S.TER 

000042 

#5-60 

X$$MCB 

r  ****** 

5-61 

5-61 

ZF.COU 

=  001000 

#5-61 

ZF.DDM 

=  000001 

#5-61 

7F.DIA 

=  004000 

#5-61 

ZF.DLC 

=  000002 

#5-61 

ZF.DV° 

=  100000 

#5-61 

ZF.INI 

=  040000 

#5-61 

ZF.KMX 

=  000020 

#5-61 

ZF.LLC 

=  000004 

#5-6- 

ZF.LMC 

=  000100 

#5-6- 

ZF.MAN 

=  020000 

#5-61 

ZF.MFL 

=  000010 

#5-61 

ZF.MTM 

=  000400 

#5-61 

ZF.MUX 

-  000040 

#5-61 

ZF.PSE 

=  002000 

#5-61 

ZF.SLI 

=  010000 

#5-61 

N  13 

Cf2Ar9  -   CONFIG  FILE   ACTION  ROU  MACRO  V05.03b  Saturday   29-Jun-8b   00:13 

ACTION   ROUTINES   FOR    PARSDF 

320 
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L 


CF2/\C9  CREATED  BV     MACRO     ON  29-JUN-85   AT   00:15 

SYMBOL    CROSS   REFERENCE 


PAGE   5 

CREf        0^.00 


SYMBOL 

VALUE 

REffcRENCES 

$$$FLG 

; 

177777 

#10-398 

tttKEY 

= 

177777 

#10-398 

.BRAD 

- 

* t* t *  * 

fix 

•9-389 

.FUDGE 

:; 

****** 

GX 

•7-216 

•7-218 

7-255 

.NAMBF 

- 

***♦♦♦ 

fix 

7-191 

7-202 

.NOMAP 

- 

****** 

GX 

•7-226 

•7-228 

7-2'i7 

.NTPSZ 

- 

****** 

GX 

7-168 

7-234 

7-2^.9 

.PCS 

r 

*♦♦**♦ 

GX 

•7-151 

7-159 

7-238 

.PNAMl 

r 

****** 

GX 

7-117 

.PNAM2 

z 

****** 

GX 

7-188 

. PNUMB 

- 

****** 

GX 

7-216 

7-226 

9-554 

9-357 

9-540 

9-345 

9-367 

9-372 

9-380 

9-583 

9-386 

9-589 

.PNUMH 

= 

****** 

GX 

9-368 

.PSTCN 

= 

****** 

GX 

7-196 

.PSTPT 

= 

****** 

GX 

7-195 

9-361 

.TPARS 

- 

****** 

GX 

7-97 

.UMRFL 

= 

****** 

GX 

•7-258 

S( 

%'. 

V 

$1 
$1 
%< 


9-549 


9-552 


9-558 


CF20Bi  CREATED  B*     MACRO     ON  ?9-JON-85   AT   00:U 

SYMBOL    CROSS  REFERENCE 


N  15 

PAGE  2 

CREF       0^.00 


SYMBOL 

VALUE 

REFERENCES 

tQDEC 

000000 

RG 

#6-62 

SRADSO 

=  000016 

#8-177 

SRONLY 

r     *•«*** 

8-177 

8-177 

8-177 

SSTRNG 

=  OOOOOA 

#8-177 

SSUBXP 

=  000010 

#8-177 

$$LINX 

-    ****•« 

GX 

•7-88 

$$NODC 

~    ****** 

GX 

»7-97 

$$$FLG 

=   177777 

#8-177 

$$$tCEY 

=   177777 

#8-177 

PNUMB 

r      *  ♦  t  *** 

GX 

7-84 

7-87 

7-88 

7-93 

7-96 

7-97 

7-102 

7-105 

7-110 

7-113 

7-118 

7-121 

7-126 

7-129 

7-134 

7-137 

7-K2 

7-145 

7-151 

7-154 

7-160 

7-163 

7-169 

.TPARS 

r      ****** 

GX 

6-68 

J 


B 

C 
D 
E 
f 
G 
H 
I 
J 
K 
L 
M 
U 
B 
r 

6 
E 
F 
G 
H 
1 
J 
K 
L 

N 
B 

C 
D 
E 
c 

G 
H 
I 
J 
< 
L 
M 
N 
B 
C 
0 
E 
F 
G 
H 
i 
J 
K 

'^ 
N 
B 
C 
D 
£ 
F 
G 
H 
I 


CFGX3P 


CF2AC1 


CF2AC2 


CF2AC3 


M  5 


CF2AC^ 


CF2AC5 


CF2AC6 


F 

10 

f 

10 

R 

10 

H 

I 

10 

J 
K 

18 

1 

10 

M 

10 

N 

10 

R 

n 

C 

11 

n 

11 

F 

11 

F 

11 

G 

11 

H 

11 

.1 

11 

K 

11 

1 

11 

M 

11 

N 

11 

R 

V 

r 

12 

D 

12 

F 

12 

r 

12 

fi 

12 

H 

12 

I 

12 

J 

12 

K 

12 

1 

12 

M 

12 

N 

12 

R 

H 

r 

1^ 

D 

M 

F 

M 

F 

11 

G 

1^ 

H 

H 

I 

1^ 

J 

U 

K 

T, 

1 

T, 

M 

T, 

N 

U 

R 

U 

r 

u 

0 

u 

F 

1/, 

F 

u 

G 

H 

H 

U 

I 

H 

.1 

14 

K 

U 

L 

K 

CF2AC7 


CF2AC8 


CF2AC9 


M  U 
N  14 
B  15 
C  15 
D  15 
E  15 
F  15 
G  15 
H  15 
I  15 
J  15 
K  15 
L  15 
M  15 
N  15 
B  16 
C  16 
D  16 
E  16 
F  16 
G  16 
H  16 
I  16 
J  16 
K  16 
L  16 
M  16 


CF2DEC 


CF2UMR 


••FILE'MD* 

•CFPCUG 

CCCCCCCC 

FFFFFFFff-F 

pppppppp 

CCCCCCCC 

FFFFFF^FFF 

pppppppp 

CC 

pp    pp 

cc 

pp    pp 

CC 

pp    pp 

cc 

pp    pp 

cc 

FFFFFFFF 

pppppppp 

cc 

FFFFFFFF 

pppppppp 

cc 

pp 

cc 

pp 

cc 

pp 

cc 

pp 

CCCCCCCC 

pp 

CCCCCCCC 

pp 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

LL 

ss 

LL 

SS 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLULL 

SSSSSSSS 

B  1 


CC 
CC 
CC 
CC 

cc 

CC 

cc 
cc 
cc 
cc 


CCCCCCCC 
CCCCCCCC 


CCCCCCCC 
CCCCCCCC 


uu 
uu 
uu 

JU 

uu 
uu 

UU 

uu 

UU 

uu 
uu 

uu 


uu 
uu 
uu 
uu 
uu 

Liu 

uu 
uu 
uu 
uu 
uu 
uu 


uuuuuuuuuu 
uuuuuuuuuu 


GGGGGGGG 
GGGGGGGG 

GG 

GG 

GG 

GG 

GG 

GG 

GG  GGGGGG 

GG  GGGGGG 

GG     GG 

GG     GG 
GGGGGG 
GGGGGG 


C  1 
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CHKCUG  -   CHECK   FOR   UNIQUE    CUG   NAME 


520 
321 
322 
323 
32-; 
325 
326 
327 
328 
329 
33C 
^31 
332 
533 
334 

335  000646 

336  000652 
337 

338  000656 

339  000662 
3A0  000666 

341  000670 

342  000672 

343  000674 

344  000700 

345  000702 

346  000710 

347  000712 

348  000716 
3'.9  000722 

350  000724 

351  000730 

352  000732 

353  000734 
554  000736 

355  000740 

356  000752 

357  000756 
358 


017700 
062700 


011000 
001430 
010046 

012600 
026067 
001366 
012702 
012701 
010003 
062703 
122123 
001355 
005302 
005374 


000001 


OOOOOOG 
000010 


.SBTTL   CHKCUG  -  CHECK  FOR  UNIQUE  CUG  NAME 


CHKCUG  -  CHECK  FOR  UNIQUE  CUG  NAME 

INPUTS: 

CUGNAM  -  SPECIFIED  CUG  NAME 

OUTPUTS: 

CARRY  CLEAR  -  SPECIFIED  CUG  NAME  IS  UNIQUE 
CARRY  SET  -  SPECIFIED  CUG  NAME  IS  NOT  UNIQUE 
RO  DESTROYED 


000012  OOOOOOG 

OOOOOOG 
000000' 

000002 


CHKCUG: 

MOV 

aPSIPT.RO 

ARD 

#H$CUG,RO 

SWSTK$ 

30$ 

SAVMAP 

10$: 

MOV 

(RO),RO 

BEQ 

25$ 

MOV 

RO,-(SP) 

CALL 

$CEACX 

MOV 

(SP)+,RO 

CMP 

G$DTE(RO),DTEDES 

BNE 

10$ 

MOV 

#CUNMMX,R2 

MOV 

*CUC.NAH,R1 

MOV 

R0,R5 

ADD 

*G$NAM,R3 

20$: 

CMPB 

(R1)t,(R3)+ 

BNE 

10$ 

DEC 

R2 

BGI 

20$ 

RETC 

RO 

25$: 

RESMAP 

50$: 

RFTURN 
.END 

GET  ADDRESS  OF  PSI  HOME  BLOCK 
POINT  TO  CUG  LISTHEAD 

ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

GET  ADDRESS  OF  NEXT  BLOCK  IN  LI:T 

BR  IF  END  OF  LIST  (NAME  IS  UNIQUE) 

SET  UP  FOR  CONVERSION 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

SAME  DTE  AS  NEW  BLOCK? 

NO,  SO  DON'T  CHECK  NAME 

GET  LENGTH  OF  CUG  NAME 

POINT  TO  CUGNAM 

POINT  TO  CUG  NAME  BLOCK 

POINT  TO  CUG  NAME 

IS  THE  NAME  UNIQUE? 

BR  IF  YES 

MORE  TO  CHECK? 

BR  IF  YES 

ELSE    ERROR   -   SET. USER   C-8IT 

RESTORE   PREVIOUS  MAPPING 

RETURN   TO  USER   STATE 
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CFPDSA  -  INITIAL  CONFIG 
DSCSDF  STATE  TABLES 

165 
16A 
165 
166 
167 

168  000060 

169  000060 
170 

171  000060 

172  000060 

173  000060 
17A 

175  000060 

176  000060 
177 

178  000060 

179  000060 
180 

181  000060 

182  000060 

183  000060 
184 
185  000060 


B  3 

FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:15  Page  10 


CI 

Ml 


.SBTTL 

DSCSDF  STATE  TABLES 

■  DSCSDF 

STATES 
TRANS 

DSCDF 
)£DSCSDF%.,,1,SYNERR 

STATES 
TRANS 
TRANS 

lEND.SEXIT 
SSTRNG,,DCMSK 

;  CALL  MASn 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

CALVAL 
SSTRNG.END.DCVAL 

;  CALL  VALU 

STATES 
TRANS 
TRANS 

END 
SEOS.SEXIT 
<';>,SEXIT 

STATES 


CFPOSA  -   INITIAL  CONFIG  f!LE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:15     Page  11 


.  TATC     T  ADI  PC 


B  4 

CFPDST  -  INITIAL  CONFIG  FILr  SC  MACRO  V05.05b  Saturday  29-jun-85  0C;16  Page  5 
MAC!<U  DEFINITIONS 


55 

56 

57 

58 

59 

60 

61 

62 

63  000000 

6A  000000 

65 

66 

67 

68 

69 

70 

71 

72 

73 

7A 


.SBTTL  MACRO  DEFINITIONS 

LIBRARY  MACROS 

.MCALL  RETC,EMSG$R,DSrDF$,SAVRG,RESR&,PHBDF$,NTLfR$ 
.MCALL   ISTATS, STATES, TRANS 


DSTDFS 
PHBDFS 

LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MOV     aKSAR5,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV     (SP)  +  ,5)KSAR5 

.ENDM 


DESTINATION  DESCRIPTOR  BLOCK  OFFSETS 
PSI  HOME  BLOCK  OFFSETS 


SAVE  APR  5 


RESTORE  APR5 


C  4 
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?ymbol   table 
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ALLDST 

OOnOAR 

DS.X29= 

******  GX 

rlF$GWY= 

000010 

.$$ASG= 

000000 

V$$CTR= 

001000 

A$$CHK= 

000000 

D$ACL 

000027 

HFIH0S= 

000004 

'i$DRV= 

000000 

X$$DBT= 

000000 

A$SCPS= 

OOOoOO 

DSCUGL 

000023 

HF$XDF= 

000020 

.^$P11= 

000001 

$ALPHA= 

000022 

A$$PRI= 

000000 

DSCUGN 

000022 

HSCUG 

000010 

L$$11R= 

000000 

$ANY  = 

000020 

A$tTRP= 

000000 

DSDATL 

000030 

HSDST 

000012 

M$$CRB= 

000124 

$BLANK= 

000006 

BIAS  = 

000002 

DSDSL 

00C022 

h$P"' 

C00014 

M$$CRX= 

000000 

SCATS  = 

*♦**»♦  GX 

CEPR  = 

***»«»  GX 

DtDST 

000010 

H$i  J 

000000 

M$$FCS^ 

000000 

SCEACX= 

«*«♦**  GX 

CF&BF  = 

♦***«♦  GX 

DSDTEL 

000031 

HSGLEN 

000104 

M$$MGE= 

000000 

SDIGIT= 

000024 

CFGSZ  = 

»**«♦»  GX 

OSFLEN 

000032 

HSGLT 

000044 

M$$NET-- 

000000 

SDNUMB= 

000014 

CFLIN  = 

******  GX 

DSGLEN 

000032 

HSGNAM 

000050 

M$$OVR= 

000000 

SEOS  = 

000012 

CriKDSN 

001012R 

DSGVBL 

000032 

H$GNnL= 

000020 

N$$ACC= 

000001 

SERRM7 

000204R 

cuNmx= 

*»♦*«♦  GX 

DSLNK 

000000 

HSGPT 

000046 

N$$BUF= 

000001 

SFRRn9 

000236R 

C$$CKP= 

000000 

OSNAM 

000004 

HSHITS 

000J34 

N$$LDV= 

0000O1 

SERRN4 

OOOOOOR 

C$$ORE= 

000400 

DSNOD 

000010 

HSHLEN 

000044 

N$$MCP= 

000001 

SERRN5 

000032R 

C$tRSH= 

17756A 

DSOBJ 

000003 

HSLBDA 

000070 

N$$MLL= 

000001 

SERRN6 

000062R 

DSACUG= 

******  GX 

DSPAL 

000026 

HSLBDN 

000072 

N$$MOV= 

000010 

$ERRN7 

00011  OR 

DSARCT= 

*.***»  GX 

DSPRI 

000002 

HSLDTE 

000002 

N$$NCT= 

000001 

SERR1T= 

******  GX 

DSASHI- 

******  GX 

DSPRL 

000024 

H$LEN 

000042 

N$$PEI*I= 

OOO^'OI 

SERR6M 

000132R 

DSASLO= 

******  GX 

DSSHI 

000020 

HSLOTS 

000032 

PSIPT  = 

**•■,**   GX 

SEXIT  = 

000000 

DSCMCT= 

******  GX 

DSSLO 

000016 

H$NETW 

000024 

P$$P4  5= 

OOuOOO 

SFAIL  = 

177777 

DSCVCT= 

,♦***»  GX 

DSUSL 

000025 

HSNML  = 

000006 

P$$WRD= 

000000 

SHEADR= 

*»**♦♦  GX 

DSFLG  = 

******  GX 

DSVBL 

000032 

HSNPT 

000022 

Q$$OPT= 

000010 

$LAMDA= 

000000 

DSNAM 

OuJj  '^R 

D$$8UG= 

177514 

HSPTB 

000020 

RTSPC  = 

******  GX 

SLIN<X= 

******  GX 

DSNAMX= 

OOOOOt 

D$$ISK= 

000000 

HSPVC 

000006 

R$RO   = 

000002 

SNUMBR= 

000002 

DSNM 

000024,. 

002 

D$$L11= 

000001 

HSRDTE 

000004 

R$R1   = 

000004 

SQDST 

000314RG 

DSOBJ 

000536R 

D$$yNC= 

000000 

HSRNW 

000042 

R$R2  = 

000006 

SRAD50= 

000016 

DSP'^I 

000530R 

D$$YNM= 

000000 

HSSVC 

000036 

R$R3  = 

000010 

SSTRNG= 

000004 

DSTDF 

OOOOOOR 

002 

END 

000062R 

002  HSTRB 

000016 

R$R4  = 

000012 

SSUBXP= 

000010 

DSTENO 

000664RG 

E$$XPR= 

000000 

HSXAVL 

000100 

R$R5  = 

000014 

$XAL0C= 

******  GX 

DSTINS 

001370R 

FMTIO  = 

******  GX 

HSXBIA 

000074 

R$$DER= 

000000 

SSSFLG= 

]77777 

D3T<MX= 

000006 

FMT6  = 

******  GX 

H$X29C 

000040 

R$$K11= 

000001 

$SSKEY= 

000002 

DSTKW 

OOOOOORG 

003 

FM.10  = 

000000 

I$$RAfi= 

000000 

R$$SND^ 

000000 

SSSR  = 

000010 

[)STNAM= 

******  GX 

FM.8   = 

000000 

I$$RDN= 

000000 

R$$11M= 

000000 

SSSSTA= 

000000 

0STOBJ= 

******  GX 

F$$LVL= 

00000' 

HSAR5  = 

******  GX 

SPACE  = 

000040 

iSSTMP= 

000013R 

DSTPRI= 

******  GX 

G$$TPP= 

000000 

K$$CNT= 

177546 

SYNERR= 

******  r,x 

.FNUMB= 

******  GX 

DSTSK 

000606R 

G$$TSS= 

000000 

K$$CSR= 

177546 

S$$WRG= 

000000 

.PNUMH= 

******  GX 

DSTST 

OOOOOORG 

002 

G$$TT<= 

GOOOOO 

K$$LDC= 

000000 

S$$YSZ= 

007600 

.PSTCN= 

******  GX 

OSTTSK= 

******  GX 

G$$WRD= 

000000 

K$$TPS= 

000074 

T$$KMG= 

000000 

.PSTPT= 

******  GX 

OSTi/AR  = 

**.,*•  GX 

HC$DLM= 

U00002 

LDSLP  = 

000000 

T$$MIN= 

000000 

.TPARS= 

****.«  GX 

DS.X25= 

******  GX 

.  A8S. 

000104 
001456 

000 
001 

(PW,I,GBL,ABS,0VR) 
(RW,1,LCL,REL,C0N) 

SSIATE 

000072 

002 

(RW,D,LCL,REL,CON) 

SKTAB 

000006 

003 

(RW,D,LC!.,REL,C0N) 

IKS'R 

000017 

004 

(RW,D,LCL,REL,CON) 

ETors 

detected: 

0 

•••  Assetibler  sta 

istic 

s 

'Wo  r  k   f 

ile  reads 

0 

iJorK   ti'Le  writes 

0 

Si?e  of 

work  file 

14023  Words 

;  55  Panes) 

Size  0 

core  OPol 

15496  Words 

{  59  Pages) 

Operating  system 

RSX- 

11M/PLU; 

00:00:^3.30 


CF 
TP 


004 
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CFPDTE  -  INITIAL  CONFIG  FILE 
TPARS  STATE  TABLES 

165 

166 

167 

168  000052 

169 

170 

171 

172  000052 

173  00CU52 
174 

175  000052 

176  000052 
T7 

178  000052 

179  000052 

180  000052 
181 

182  C_0052 

183  000052 

•iS  000052 
186  00OC52 
187 

188  000052 

189  000052 
190 

191  000052 

192  000052 
193 

19A  000052 
195  000052 
196 

197  000052 

198  000052 

199  000052 
200 

'fi-  000052 
^02  000052 
203  000052 
20A 

205  000052 

206  000052 

207  000052 
208 

209  000052 

210  000052 
211 

212  000052 
21?  000052 
21A  000C52 


B  6 

SC  MACRO  V05.03b  Saturday  29-Jun-85  00:17  Page  10 

.SeTTL   TPARS  STATE  TABLES 
TPARS  STATE  TABLES 

ISTATS  OTEST,DTEKW 

DTESDF 

STATES  DTEDF 
TRANS   XC'ESDFX,,,1,SyNERR 


STATES 
TRANS 

$CIGIT,,DTEAST 

SIATES 
TRANS 
TRANS 

DTEAD 
SDIGIT,DTEAD,DTEDIG 
<',>,,DTEAEN 

STATES 
TRANS 

ILINID 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUM8R,,HSHTBL 

STATES 
TRANS 

<'  -> 

STATES 
TRANS 

$NUMbR,,C(JTTlM 

STATES 
TRANS 
TRANS 

IEND,SEXIT,DTEEMD 
<'  ,> 

START  OF  DTE  ADDRESS 


DTE  ADDRESS 

END  OF  OTE  /ADDRESS 


LINE-ID 


HASH  TAt'-E  SIZE 


COUNTER  TIMER  VALUE 


STATES 

TRANS  "0N",DTENy,,DE.0^!,DTEFL6 

TRANS  "0FF'',DTENW,,DE.0FF,DTEFLG 

STATES  DTENW 

TRANS  :end,sexit,dteend 

TRANS  <',> 

STATES 

TRANS  $STRNG,,DTENET 

STATES  END 
TRANS        SEOS.SEXIT 
TRANS        ^';>,SEXIT 


STATE 


NETUOR'.  NAME  PARAMETER 
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SYMBOL    CROSS   REFERENCE 
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PAGE   2 

CREF       OA.OO 


SYMBOl 

ULbE 

REFERENCES 

LF.TIM 

=   00001C 

#5-67 

LF.UNL 

=   020000 

#5-67 

LF.X2P 

=  000000 

#5-67 

LlNCTL 

=   **»♦♦♦     GX 

17-502 

LINNAM 

=    «*»***      (3x 

17-48<3 

LINUNT 

=   «*♦*.*      GX 

17-50A 

LLCTA 

=   *♦»..»     GX 

15-587 

LNKEND 

=    »♦-,♦«•      GX 

15-A09 

LNSOFF 

=   000001 

15-395 

LNtON 

=  OOOOCO 

15-398 

LN.CLO 

=  000000 

#5-67 

LN.DUM 

=  000005 

#5-67 

LN.LOA 

=  OOOOOA 

#5-67 

l^I.LOO 

=  000003 

#5-67 

LN.OAU 

=  000003 

#5-67 

LN.OFF 

=  000001 

#5-67 

LN.ON 

=  000000 

#5-67 

LN.OOP 

=   OOOOOA 

#5-67 

LN.OPE 

=  000001 

#5-67 

LN.REF 

=  000002 

#5-67 

LN.SER 

=  000002 

#5-67 

LN.STA 

=  000017 

#5-67 

LN.SUB 

=  000360 

#5-67 

LN.TRI 

=  000006 

#5-67 

LSCHTB 

000030 

•15-A04 

LSCTEN 

000032 

♦15-405 

LSCTIM 

GCGOAO 

•15-591 

LSD  TEA 

000020 

15-369 

LSDTEL 

000017 

*1 5-375 

LSLEN 

000122 

15-350 

LSLLCH 

000016 

►15-390 

LtNETW 

00011A 

15-378 

LSNMST 

00''iC03 

*15-595 

LSOMST 

000002 

•15-599 

LSSLNI 

000004 

•15-385 

LSTCLZ 

0OOOA4 

•15-394 

L.COST 

000015 

«'5-67 

L.CTL 

000012 

#5-67 

L.CVA 

177776 

#5-67 

;  .DDM 

000002 

#5-67 

L.DDS 

000004 

#5-67 

L.DLC 

ooooor 

#5-67 

L.DLM 

000006 

#5-67 

L.DLS 

OOOOIO 

#5-67 

L.F.G 

000000 

#5-67 

L.<ReA 

000016 

#5-67 

L.LEN 

=  000022 

#5-67 

L.MPF 

000022 

#5-67 

L.NM5' 

000020 

#5-67 

L.N'STA 

oooou 

#5-67 

L.OvJNR 

000021 

#5-67 

L.LiNT 

nC00:5 

#5-67 

16-455 
15-401 


•15-598 


17-502 
17-500 


17-509 


17-504 


15-599 


CFPDTE 
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PSMSOF  4CTI0N  ROUTINES 


210 

.SBTTL 

PSN$D'"  ACTION 

211 
212 
213 
214 
215  000052 

;  NETWORK  NAME 

C05777 

OOOOOOG 

PSNNM: 

TST 

aPSiPT 

216  0000-^6 

001032 

BNE 

101$ 

217  000060 

016700 

OOOOOOG 

MOV 

.PSTCN,RO 

218  000064 

012732 

000006 

MOV 

#fNA™x,P2 

219  OOCVO 

020002 

CMP 

R0,R2 

220  000072 

101C27 

BHI 

221  000074 

012^01 

000000' 

MOV 

#PSNNAM,R1 

222  000100 

SAVRG 

<R''> 

223  000102 

112721 

000040 

10$: 

M0V8 

#SPACE,(R1)+ 

224  000106 

005302 

DEC 

R2 

225  000110 

003374 

BGl 

10$ 

226  000112 

RESRG 

<R1> 

227  000114 

016702 

OOOOOOG 

MOV 

.PSTPT,R2 

223  000120 

112221 

20$: 

MOVB 

(R2)t,(R1)+ 

229  000122 

005300 

DEC 

RO 

230  000124 

003375 

BGT 

20$ 

231  000126 

005067 

0C0006' 

CLR 

PSNFLG 

232  000132 

005067 

000010' 

CLR 

PSNLO 

233  000136 

005067 

000012' 

CLR 

PSNHI 

23''  000142 

RETURN 

235 

236 

;  ERROR 

MESSAGES 

237 

238  000144 

101$: 

EMSGSR 

PI 

239  000152 

102$: 

EMSG$R 

P2 

240 

241 

242 
243 
244  000160 

;  NUMBER  OF  PORTS 

005767 

OOOOOOG 

PORT: 

rsT 

.PNUMH 

245  000164 

001011 

BNE 

101$ 

246  000166 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

247  000172 

003406 

BLE 

101$ 

248  C0U174 

020027 

000400 

CMP 

R0,#P0RTMX 

249  000200 

101003 

BHI 

101$ 

250  000202 

0;0067 

OOOOOOG 

MOv 

RO.PORTNO 

251  OC0206 

RETURN 

252 

253 

254 

255  000210 

;  ERROR 

MESSAGES 

^01$: 

EMSG$R 

P3 

256 

257 

258 

;  FLAGS 

WORD 

259 

260  000216 

005767 

OOOOOOG 

PSNFG: 

TST 

.PNUMH 

261  000222 

001004 

BNE 

101$ 

262  C00224 

0:6767 

OOOOOOG  000006 

MOV 

.PNUMB, PSNFLG 

263  00023? 

RETURN 

264 

265 

■  ERRORS 

266 

HAVE  WE  ALREADY  FOUND  A  PSN$DF? 

BR  IF  VES  -  ERROR 

GET  NUMBER  OF  CHARACTERS  IN  NAME 

GET  MAXIMUM  ALLOWABLE  CHARACTERS 

IS  THIS  A  VALID  COUNT 

BR  IF  NO 

POINT  TO  TEMPORARY  LOCATION  FOR  NAME 

SAVE  ADDRESS  OF  TEMPORARY  LOCATION 

INITIALIZE  NAME  TO  BLANKS 

MORE  TO  INITIALIZE? 

BR  IF  YES 

RETRIEVE  ADDRESS  OF  TEMPORARY  NAME 

GET  START  OF  SPECIFIED  NAME 

STORE  SPECIFIED  NAME 

MORE  TO  STORE? 

BR  IF  YES 

INITIALIZE  FLAGS  WORD 

CLEAR  LOW  SUBADDRESS  VALUE 

CLEAR  HIGH  SUBADDRESS  VAI UE 


ERROR 
ERROR 


ILLEGAL  OCCURENCE  OF  PSN$DF 
ILLEGAL  NETWORK  NAME 


IS  THIS  A  SINGLE  WORD  VALUE? 

BR  IF  NO  -  ERROR 

GET  PORT  NUMBER 

BR  IF  ILLEGAL  PORT  NUMBER 

IS  THIS  A  LEGAL  PORT  NUMBER? 

BR  IF  NO  -  ERROR 

SAVE  PORT  NUMBER 


ERROR 


ILLEGAL  NUMBER  OF  PORTS 


IS  THIS  A  DOUBLE  WORD  v'ALUE? 
BR  IF  YES  -  ERROR 
SAVE  FLAGS  WORD 
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CFPPVC    -    INJI 
LOCAL    SYMBOL 

97 

98 

99 
100 
101 
102 
103 
10^ 
105 
106 
107 
108 
109 
110 
111 
112 
113 
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TIAL  CONFIG  HLE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:18  Page  6 
DEFINITIONS 


.SBTTL   LOCAL  SYMBOL  DEFINITIONS 


000040 
000006 


000C02 
OOOOOA 
000006 
000010 
000012 
00001 A 


LOCAL  SYMBOL  DEFINlTIOiiS 

SPACE  =  40 
PVNAMX  =  6 


;  ASCII  SPA, - 

;  MAXIMUM  LENGTH  OF  CIRCUIT  ID 


SAVED  REGISTER  OFFSETS  ON  STACK  FOR  SWSTK$ 


R$RO  =  2 
R$R1  =  4 
R$R2  =  6 
R$R3  =  10 
R$R4  =  12 
R$R5  =  K 


SAVED  RO 
SAVED  R1 
SAVED  R2 
SAVED  R3 
SAVED  M 
SAVED  R5 
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FNDHSH   -   <:\m   HASH    TABLE    ENTRY 


599 
600 
601 
602 
603 
60A 
605 
606 
607 
608 
609 
610 
611 
612 
613 
6K 

615  001316 

616  001322 

617  001326 

618  001332 

619  001 53A 

620  001336 

621  001 3A2 

622  001 3A6 

623  001350 
62A   001352 

625  001354 

626  001356 

627  001360 

628  00136/. 

629  001370 

630  001372 

631  001374 

632  OOKOO 

633  OOU02 

634  001A04 

635  001406 

636  C01410 

637  001414 

638  001420 

639  001424 


.SBTTL  FNDHSH  -  FIND  HASH  TABLE  ENTRY 


FNDHSH  -  FIND  HASH  TABLE  ENTRY 


LOGICAL  CHANNEL  NUMBER 
PORT  NUMBER 


INPUTS: 

PVCLCN 

PVCPRT 
OUTPUTS: 

CARRY  CLEAR  -  TABLE  ENTRY  AVAILABLE  AND  SET  UP  WITH  LCN/PORT 

CARRY  SET  -  NO  ENTRIES  AVAILABLE 

R0,R1,R2  DESTROYED 

MAPPING  PRESERVED 


016746  OOOOOOG 


005726 
005002 
016700 
0167C1 
005401 
040100 
010001 
006  500 
006300 
066700 
005760 
001407 
005202 
026^02 
103407 
060201 
010100 
000755 
016720 
116710 


000002' 
OOOOOOG 


OOOOOOG 
000002 


OOOOOOG 


000002' 
000022' 


FNDHSH: 


10$: 


20$: 
30$: 


MOV 

DTEDES,-(SP) 

CALL 

$CEACX 

TST 

(SP)  + 

CLR 

R2 

MOV 

PVCLCN, RO 

MUV 

HSHSZ.RI 

NEG 

R1 

BIG 

R1,R0 

MOV 

R0,R1 

ASL 

RO 

ASL 

RO 

ADD 

HSHADD.RO 

TST 

2(R0) 

BEQ 

20$ 

INC 

R2 

CMP 

HSHSZ,R2 

BLO 

30$ 

ADD 

R2,R1 

MOV 

RI.RO 

BR 

10$ 

MOV 

PVCLCN, (RO)t 

MOVE 

PVCPRT, (RO) 

RESMAP 

RETURN 

SAVE  MAPPING 

GET  UNMAPPED  DTE  DESCRIPTOR 

MAP  TO  LOCAL  DTE  (AND  ALSO  HASH  TABLE) 

CLEAN  STACK 

INITIAL  OFFSET  FOR  HASH  TABLE  INSERTION 

GET  LOGICAL  CHANNEL  NUMBER 

GET  NUMBER  OF  ENTRIES  IN  HASH  TABLE 

GET  MASK  FOR  HIGH  BITS 

COMPUTE  ENTRY  NUMBER  (MODULO  TABLE  SIZE) 

SAVE  ENTRY  NUMBER 

MULTIPLY  BY  4  TO  DETERMINE  OFFSET 

...  INTO  HASH  TABLE 

DETERMINE  ENTRY  ADDRESS  IN  HASH  TABLE 

IS  THIS  ENTRY  AVAILABLE? 

BR  IF  YES  (CLEARS  CARRY) 

ELSE,  COLLISION  -  UPDATE  OFFSET 

ANY  ENIRIES  AVAILABLE? 

BR  IF  NO  (SETS  CARRY) 

CALCULATE  ENTRY  NUMBER  +  OFFSET 

SAVE  ENTRY  NUMBER  +  OFFSET 

FIND  NEXT  AVAILABLE  ENTRY 

STORE  LOGICAL  CHANNEL  NUMBER  IN  HASH  TABLE 

STORE  PORT  NUMBFR  IN  LOW  BYTE  OF  HASH  TABLE 

RESTORE  MAPPING 


fFPPvr  -  INITIAI  rONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun- 
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LOCAL  SYMBOL  DEFINITIONS 


77 
78 
79 
80 
81 
82 
83 


.SBTTL   LOCAL  SYMBOL  DEFINITIONS 


000006 
OOOOAO 


LOCAL  SYMBOI  DEFINITIONS 

RDTEMX  =  6 
SPACE  =  ^0 


MAXIMUM  LENGTH  OF  REMOTE  DTE  NAME 
ASCII  SPACE  CHARACTER 
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Table  ot  contents 


s- 

S? 

6- 

h': 

/- 

K9 

H- 

11  SI 

9- 

no 

MACRO  DEFINITIONS 
LOCAL  DATA  STORAGE  AND 
L00<  FOR  X29$DF  MACRO 
TPARS  STATE  TABLES 
X29$DF  ACTION  ROUTINES 


ERROR  MESSAGES 
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3 

5 
6 
7 

8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
Al 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
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.TITLE   CFPX3P  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  CO  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FUR.vlISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
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OTHFR  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  B*"  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIi^D  P'.  DIGITAL. 


MODULE  DESCRIPTION; 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00 


31-MAR-81 
DECNET-11M/S  V3.0 
DECNET-llM-PLUS  VI. 0 


3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  VI .1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSA  Vl.O 
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CFPX5P     CREATED  BY 
MACRO  CROSS  REFERENCE 


MACRO  ON  29-JUN-85  AT  00:20 


PAGE 
CREF 


E  14 

OA.OO 


MACRO  NAME 

REFERENCES 

CALL 

8-130 

11-208 

li-220 

11-235 

11-247 

12-287 

12-288 

12-296 

CHNDFS 

#5-60 

5-62 

DBGTPS 

#9-147 

#10-189 

#10-199 

DTEDFS 
EMSGiR 

#5-60 
#5-60 

5-63 
8-139 

11-215 

11-229 

11-250 

11-242 

11-256 

11-257 

12-321 

12-322 

ISTATS 

#5-60 

9-147 

MTRANS 

#9-147 

NTLERS 

#5-60 

7-99 

RESMAP 

#5-72 

12-313 

RETC 

#5-60 

12-290 

RETURN 

8-134 

11-211 

11-225 

11-23. 

11-252 

12-273 

12-314 

12-317 

SAVMAP 
STATES 

#5-68 
#5-60 
#10-184 

12-294 

9-152 

#10-187 

#9-155 
#10-191 

#9-158 
#10-197 

#9-161 
#10-201 

#9-164 

#9-167 

#9-170 

#9-173 

10-181 

SWSTKS 
TRANS 

12-287 
#5-60 

#9-153 

#9-156 

#9-159 

#9-162 

#9-165 

#9-168 

#9-171 

#9-174 

#10-182 

#10-185 

#10-188 

#10-189 

#10-192 

#10-198 

#10-199 

tF  II  F»«in*«CTRin 
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B  15 

ELTIHE  -  CALCULATE  ELAPSED  UME  MACRO  V05.03b  Saturday  29-Jun-85  17:42 
Table  ot  contents 


5-   57 


ELTIME  -  CALCULATE  ELAPSED  TIME 


C  15 

rAiniiATF   Fi  APSFH   TIME   MACRn  vOS.O^b   Saturday  29-Jun-85   17:42     Pace  4 
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SREADX   -   READ    INTO  EXTENDED  MEMORY 
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000060 
00006A 
000072 
000076 
000102 
000106 
000110 


151 
152 
153 
154 
155 
•■56 
57 
158 
159 
160 
161 
162 
163 
164 
165 
166 

167  000060 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 

179  000112 

180  000116 

181  000122 
182 

"  000124 
000130 
000134 
000140 

187  000144 

188 

189  000150 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 


SREADX 
INPUTS 


.SBTTL  SREADX  -  READ  INTO  EXTENDED  MEMORY 
-  READ  A  LOGICAL  BLOCK  INTO  EXTENDED  MEMORY 


RO=BUFFER  BIAS 


OUTPUTS: 


NOTE 


IREADX: 


183 
184 
185 

If 


052766 
016701 
062701 
011167 
010011 


012700 
005500 


016701 
062701 
016711 
050066 


OOOOOOG  000020 
OOOOOOG 
000002 
000000' 


020000 


10$: 


OOOOOOG 
000002 
000000' 
000020 


20$: 


C-BIT^SUCCESS/FA!LURE 
R0=DESTR0YED 

(RSXllM  ONLY) 

THIS  ROUTINE  USES  APR1  TO  MAP  THE  BUFFER  AREA.  INTERRUPTS  MUST  BE 
DISABLED  WHILE  THE  QIO  IS  ISSUED  TO  PREVENT  A  TASK  SWITCH  WHICH  WOULD 
RESTORE  THE  ORIGINAL  (INCORRECT)  CONTENTS  OF  APRl . 


.IF  DF   R$$11M  &  M$$MGE 


SWSTKS 

BIS 

MOV 

ADD 

MOV 

MOV 

RETURN 

MOV 

CALL 

ADC 

SWSTK$ 

M0\' 

ADD 

MOV 

BIS 

RETURN 

.ENDC 

.IF  DF 

MOV 

MOV 

CALL 

MOV 

CALL 

ROR 

CALL 

CMP 

ASL 

RETURN 

.ENDC 


10$ 

#PR7,20(SP) 

USARO.Rl 

*2,R1 

(R1),UISAV 

RO,(fil) 


*20000,R0 

$READ 

RO 

20$ 

USARO.Rl 

#2,R1 

UISAV,(R1) 

R0,20(SP) 


R$$11D  :  I$$AS 

*77406,-(SP) 

R0,-(SP) 

..SPD3 

*60000,RO 

$READ 

4(SP) 

..SPD3 

fSP)+,(SP)t 

(SP) 


ENTER  SYSTEM  STATE 
RETURN  TO  USER  STATE  WITH  INTERRUPTS  DISABLD 
GET  UISARO  VALUE 
GET  USER  APRl  ADDRESS 
SAVE  CURRENT  APRl 
SET  UP  TRANSFER  BIAS 


SET  NEW  BUFFER  ADDRESS 

SAVE  C-BIT 

ENTER  SYSTEM  STATE 
GET  USER  APRO  ADDRESS 
GET  USER  APRl  ADDRESS 
RESTORE  OLD  APRl  CONTENTS 
RESTORE  USER  MODE  PSW  ON  NEXT  RETURN 


SET  NEW  PDR  VALUE  -  4K  READ/WRITE 
SET  NEW  PAR  VALUE 
CHANGE  MAPPING  IN  HEADER 
SET  NEW  BUFFER  ADDRESS 

SAVE  C-BIT 
RESTORE  MAPPING 
PURGE  STACK 
RESTORE  C-BIT 


/r.     DniITt     MAfOn     \/n^     n7K     ^ati 
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C  1 

CfPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:15 
Tab'-e  of  contents 

MACRO  DEFINITIONS 

LOCAL  SYMBOL  DEFINITIONS 

LOCAL  DATA 

ERROR  MESSAGES 

LOOK  FOR  CUGSDF  MACRO 

CUGtDF  STATE  TABLES 

CUGSDF  ACTION  ROUTINES 

CHKCUG  -  CHECK  FOR  UNIQUE  CUG  NAME 


!;- 

s? 

h- 

'■A 

HI 

H- 

4^ 

g- 

ni 

10- 

1A0 

11- 

1  /i 

u- 

320 
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Symbol  table 
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AtiCHK-- 

000000 

D$$YNC= 

000000 

HSGPT 

000046 

M$$CRX= 

000000 

A$$CFS= 

000000 

D$$YNM= 

000000 

HSHITS 

000034 

M$$FC.S  = 

000000 

A$$PRI= 

000000 

END 

000050R 

003  HSHLEN 

000044 

M$$MGE= 

000000 

AtSTRP= 

000000 

E$$XPRi 

000000 

HSLBDA 

000070 

M$$NET= 

000000 

CtRR  = 

».«t».  GX 

EMTIO  = 

******  GX 

HSLBDN 

000072 

M$$0VR= 

000000 

CFGBF  = 

»*«»«■»  GX 

FHT8  = 

******  GX 

HSLDTE 

000002 

NEXT  = 

****** 

GX 

CFGSZ  = 

•*«♦♦*  GX 

FM.10  = 

000000 

H$LEN 

000042 

N$$ACC= 

000001 

CFLIN  = 

.»«♦*•  GX 

FM.8  = 

000000 

HSLOTS 

000032 

N$$8UF= 

000001 

CHKCUG 

0O06'i6R 

F$$LVL= 

000001 

HSNETW 

000024 

N$$LDV= 

000001 

COUNT  = 

»**»♦♦  GX 

GF$BUG= 

000001 

HSNML  = 

000006 

N$$MCP= 

000001 

CUEND 

0OOAO6R 

GSCUG 

000010 

H$NPT 

000022 

N$$MLL= 

000001 

tUFG 

J00364R 

GSDTE 

000012 

HSPTS 

000020 

N$$M0V^ 

000010 

CUGDF 

OOOOOOR 

003 

GSFLG 

oooou 

H$PVC 

000006 

N$$NCTi 

000001 

CUGDIG 

000174R 

G$GNAM 

000016 

HSRDTE 

000004 

N$$PEM= 

000001 

CUGEND= 

OOOOIIR 

002 

G$lEN 

000016 

HSRNW 

000042 

PCKBCD= 

****** 

GX 

CUGFLG 

OOOOUR 

002 

GILNK 

000000 

HSSVC 

000036 

PSIPT  = 

****** 

GX 

CUG<W 

OOOOOORG 

004 

G$NAM 

000002 

H$TRB 

000016 

P$$P45= 

000000 

CUGNAM 

OOOOOOR 

002 

GSNML 

000015 

HSXAVL 

000100 

P$$WRD= 

000000 

CUGNL^J= 

OOOOOA 

G$$TPP= 

000000 

HSXBIA 

000074 

Q$$0?T= 

000010 

C'JGNUM 

000006R 

002 

G$$TSS= 

000000 

H$X29C 

000040 

RTSPC  = 

****** 

GX 

CUGPC< 

000012R 

002 

G$$TTK= 

000000 

I$$RAR= 

000000 

R$$DER= 

000000 

CUGST 

OOOOOORG 

003 

G$tWRD= 

000000 

I$$RDN= 

000000 

R$$K11= 

000001 

CUNAM 

000052R 

HF$DLM= 

000002 

KSAR5  = 

******  GX 

R$$SND^ 

000000 

CUNBEN 

000220R 

HF$GWY= 

000010 

K$$CNT= 

177546 

R$$11M= 

000000 

CUNBST 

0001 36R 

HF$H0S= 

000004 

K$$CSR= 

177546 

SPACE  = 

000040 

ruNMMX= 

******  GX 

HF$XDF= 

000020 

KSSLDi 

000000 

STRNXT= 

****** 

GX 

CUNXT 

000020R 

003 

H$CUG 

000010 

K$$TPS= 

000074 

SYNERR= 

****** 

GX 

CS$CICP= 

000000 

H$DST 

000012 

LD$LP  = 

000000 

S$$URG= 

000000 

r$$ORE= 

OOOAOO 

H$[>29 

000014 

LNKEND= 

******  GX 

S$$YS2= 

007600 

r?SRSH= 

177564 

H$FLG 

oocooo 

L$$ASG= 

000000 

T$$KMG= 

000000 

DicDES= 

*»**».  GX 

HSGLEN 

000104 

L$$DRV= 

000000 

T$$MIN= 

000000 

D$$BUG= 

1775K 

H$GLT 

000044 

L$$P11= 

000001 

V$$CTR= 

001000 

0$$I5<= 

000000 

HSGNAM 

000050 

L$$11R= 

000000 

X$$DBT= 

000000 

DS$L11= 

000001 

'l$GNML  = 

000020 

M$$CR8= 

000124 

.  ABS. 

00010A 
000760 

000 
001 

'RW,I,GBL,ASS,0VR) 
(RW,I,LCL,REL,C0N) 

DATA 

000162 

002 

(RW,D,LCL,REL,C0N) 

SSTATE 

000060 

003 

(RW,D,LCL,REL,C0N) 

SKTAB 

000002 

004 

(RW,D,LCL,RFL,CON) 

SKSTR 

000007 

005 

CRW,D,LCL,REL,CON* 

$ALPHA= 

$ANY  = 

$BLANK= 

ICEACX= 

$DIGIT= 

$DNUMB= 

$EOS  = 

SERRMI 

$ERRN2 

$ERRN3 

$ERRP4 

$ERR1T= 

$EX]T  = 

$FAIL  = 

$HEADR= 

$LAMDA= 

$NUMBR= 

$OCUG 

$RAD50= 

$SAVRO= 

$STRNG= 

$SUBXP= 

$XALOC= 

$$$FLG= 

$$$KEY= 

$$$R  = 

$$$STA= 

$$$TMP= 

.PNUMB= 

.PNUMH= 

.PSTCN= 

.PSTPT= 

.TPARS= 


000022 

000020 

000006 

******  GX 

000024 

000014 

000012 

00011  OR 

000016R 

000040R 

000064R 

******  GX 

000000 

177777 

******  GX 

000000 

000002 

OOOOOORG 

000016 

*  1  ,-  *  *  * 

000004 
000010 
******  GX 

000000 
000010 
000000 
OOOOOOR 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 


GX 


Errors  detected:     0 

♦'♦  Assembler   statistics 

Work      file      reads:    0 

Work      fUe   writes:    0 

Size  of   work    tile:    '3410  Words      '   53  Pages) 

Size  of   core  pooi:    '<^^^Z  '.'.'crds      (   55   Pages) 

Operating      system:    RSX-llM/PLUS 
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002 
002 
002 
002 


005 


CFPCUG 
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V 
L( 


187 

188 

.SBTTL 

DSA$DF  ACTION 

189 
190 
191 
192 
193  000060 

•  START 

OF  REMOTE  DTE  ADDRESS 

012700 

OOOOOOG 

DARDST: 

MOV 

#DARMLN,RO 

194  r0006A 

012701 

OOOOOOG 

MOV 

*DSARDT,R1 

195  000070 

105021 

10$: 

CLR8 

(R1)  + 

196  000072 

005300 

DEC 

■^o 

197  OOOO'A 

003375 

BGT 

10$ 

198  000076 

105C67 

OOOOOOG 

CLRB 

COUNT 

199  000102 

012767 

OOOOOOG  OOOOOOG 

HOV 

#DSARDT,NEXT 

200  000110 

CALL 

STRNXT 

201  OOOIIA 

RETURN 

202 
203 
204 
205 
206  000116 

';  PROCESS  REMOTE  DTE  DIGIT 

026727 

OOOOOOG  OOOOOOG 

DARDMO: 

CMP 

NE)(T,#DARDEN 

207  0001 2A 

101003 

BHi 

101$ 

208  000126 

CALL 

STRNXT 

209  00013? 

RETURN 

210 

211 
212 
215  000134 

;  ERRORS 

101$: 

EMSGJR 

N8 

214 
215 
216 

;  END  OF  REMOTE 

DTE  ADDRESS 

217 

• 

218  000142 

C04567 

OOOOOOG 

DARDND: 

JSR 

R5,$SAVRG 

219  000146 

012700 

OOOOOOC 

MOV 

*<DAfiMLN/2>tl 

220  000152 

012704 

OOOOOOG 

MOV 

#DSARDT,R4 

221  000156 

012705 

OOOOOOG 

MOV 

#DSARDP,R5 

222  000162 

CALL 

PCKBCD 

223  000166 

116767 

OOOOOOG  OOOOOOG 

MOVB 

COUNT, DSA':CT 

224  000174 

RETURN 

.RO 


GET  lENGTH  OF  REMOTE  DTE  ADDRESS 

GET  ADDRESS  OF  START  OF  BUFFER 

INITIALIZE  BUFFER 

MORE  TO  INITIALIZE? 

BR  IF  rES 

INITIALIZE  DIGIT  COUNT 

START  AT  BEGINNING  OF  BUFFER 

STORE  CHARACTER 


IS  ADDRESS  TOO  LONG? 
BR  IF  YES 
STORE  CHARACTER 


ILLEGAL  REMOTE  DTE  ADDRESS 


SAVE  R3-R5 

GET  LENGTH  OF  PACKED  ADDRESS 

POINT  TO  NUMBER  TO  CONVERT 

POINT  TO  STORAGE  FOR  PACKED  NUMBER 

PACK  REMOTE  DTE  ADDRESS  IN  BCD 

STORE  NUMBER  OF  DIGITS  IN  DTE  ADDRESS 
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CfPDST  - 

INITIAL  CONFIG  TILE  SC  lACRO 

LOCAL  SYMBOL 

DEriNITIOKS 

76 

77 

78 

79 

80 

81 

82 

-  OOOOAO 

83 

000006 

8A 

000036 

85 

86 

87 

88 

000002 

8Q 

000004 

90 

000006 

91 

000010 

9? 

000012 

93 

OOOOU 

94 

95 

000000 

96 

97 

000002 

98 

C  4 


.SeCTL  LOCAL  SYMBOL  DEriNITIONS 


LOCAL  SYMBOL  DEFINITIONS 


CF 
Sy 

5Y 


SPACE  =  40 
DSNAMX  =  6 
DSTKMX  =  6 


ASCII  SPACE 

MAXIMUM  LENGTH  OF  DESTINATION  NAME 

MAXIMUM  LENGTH  OF  OBJECT  TASK  NAME 


SAVED   fiEGISTER   OFFSETS   ON   STACK    FOR    SWSTKS 


R$RO 
R$R1 
R$R2 
R$R3 
R$R4 
R$R5 


2 

4 

6 

10 

12 

14 


3IAS  =  0 

.IF  OF  M$$MGE 

3IAS  =  2 

.ENDC 


SAVED  RO 

SAVED  R1 

SAVED  R2 

SAVED  R3 

SAVED  R4 

SAVED  R5 


;  SAVED  K1SAR6  MAPPING 
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Symbol  table 
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CFI 
LII 


C^PDSI 
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CF 


CFPDTE  - 

IN'TIAL 

CONfIG  FILE  SC  MACRO  VC 

LINE-ID 

SUBEXPRE' 

SION 

216 

^17 

^18 

219 

220 

221 

000052 

222 

000052 

223 

22A 

000052 

225 

000052 

226 

227 

000052 

228 

000052 

22y 

230 

000052 

231 

000052 

232 

000052 

233 

234 

000052 

235 

00005^ 

236 

237 

000052 

.SBTTL  LINE-ID  SUBEXPRESSION 


LINE-ID  SUBEXPRESSION 


STATES 
TRANS 

LlNiD 
SRAD50,,DEVNAM 

STATES 
TRANS 

<'-> 

STATES 
TRANS 

SNUf1BR,,DEVCTL 

STATES 
TRANS 
TRANS 

<'->,LINIDl 
SLAMDA.SEXIT 

STATES  LINID1 
TRANS   SNUM8R,SEXIT,DEVUNT 

STATES 


DEVICE  NAME 


CONTROLLER  NUMBER 


UNIT  NUMBER 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


NEXT 

NUI1DTE 

N$SVCT 

PCKBCD 

PSIPT 

RTSPC 

RtRO 

R$R1 

R$R2 

R$R3 

R$RA 

RSR5 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.iVC 

SF.UNL 

SLTMA 

SLTNM 

SPACE 

STRNXT 

SYNERR 

S$$BAS 

S.COST 


r  »»..tt    GX 

=  000020 

r  ****** 

=  ******  GX 

=  ******  GX 
=  *«*♦**  GX 
=  000002 
=  000004 
=  0C0006 
=  000010 
=  000012 
=  OOOOU 
=  000200 
^-  000 10C 
=  OOOOOA 
=  000040 
=  000020 

-  000010 

-  000001 
=  000002 
=  000040 

=    »***■** 

-  ****** 
=  000040 


GX 
GX 


GX 
GX 


****** 


00000' 


REFERENCES 

.12-250 
#6-87 

15-355 

12-273 

12-275 

8-12'. 
#6-92 
#6-93 
#6-94 
#6-95 
#6-96 
#6-97 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 

17-497 

17-496 
#6-84 

12-251 
^9-152 

8-124 

8-128 
#5-67 


12-257 
15-",2 
16-459 

15-406 
8-125 


»16-461 


12-,:59 
*9-155 
8-124 
8-129 


S.FLG 

000000 

#5-67 

S.LEN 

000004 

#5-67 

S.NMST 

000002 

#5-67 

S.OWNR 

000003 

#5-67 

ZTIME 

r  ****** 

(iX 

15-392 

SALPF'A 

=  000022 

#10-168 

SANY 

=  000020 

#10-168 

SBLANK 

=  000006 

#10-168 

$CEACX 

-   ****** 

GX 

15-361 

SDIGIT 

=  000024 

#10-168 

$D^JUMB 

=  000014 

#10-168 

$EOS 

=  000012 

#10-168 

SERROO 

000154 

R 

#8-127 

SERROP 

000214 

R 

/>8-128 

SFRROQ 

000266 

R 

#8-129 

$ERR03 

000036 

R 

#8-124 

$ERR04 

0C007: 

R 

#8-125 

$.£RR05 

=    ****** 

GX 

13-314 

SERRO? 

000120 

R 

#8-126 

SERRIT 

-        *  V**  *  * 

GX 

9-162 

iEXi'T 

=  000000 

#10-'68 

$FA!L 

=  177/77 

#10-168 

fr.PRM 

-   ****** 

10-168 

16-449 


i4-:?34 

15-420 
15-421 
12-264 
13-302 

15-419 


C  7 

PAGE  3 
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17-512 

16-439 
8-126 


.17-513 


8-12^ 


-128 


8-129 


8-125 
8-129 


8-125 


8-126 


8-126 


-127 


-127 


8-128 


15-418 


;fpdte 
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PSNIDF  ACTION  ROUTINES 


267  00023A 


i013 


EMSGSS  PA 


ERROR  -  ILLEGAL  FLAGS  WORD 
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LOCAL  DATA 
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115 

116 

117 

118 

UQ 

1?0 

121  000000 

122 

125 

12A 

125 

126 

127 

128  000000 

129  000002 

150  COOOOA 

151  000006 

152  000010 
155  000012 
15A  00001A 

155  000016 

156  000020 
157 

158  000022 

159  000025 
1A0  000024 
U:  000052 
1A2  000055 
K5  00005A 
1',A  000055 
145 

146 

147 

148 

149  000056 

150 


.SBTTL      LOCAL   DATA 


000001 


000 


000005 


•  LOCAL 

DATA 

.PSECT 
.NLISi 

DATA.D 
BEX 

■  LOCAL 

DATA  FOR  PVCSDF 

MACRO 

PRTADD 

.BLKW 

ADDRESS  OF  ENTRY  IN  PORT  TABLE 

^VCLCN 

.BLKU 

LOGICAL  CHANNEL  NUMBER 

PVCCTM 

.BLKW 

COUNTER  TIMER 

^VCPSZ 

.BLKW 

MAXIMUM  BLOCK  SIZE 

^VCUSZ 

.BLKU 

WINDOW  SIZE 

=VCOWN 

.BLKW 

OWNER  PROCESS 

)LMPDV 

.BLKW 

ADDRESS  OF  DLM  PDV 

)LMSLT 

.BLKW 

ADDRESS  OF  DLM  SLT 

FLAG: 

.BLKW 
PF.DLM 

=  1 

LOCAL  FLAGS  WORD 
PVC  IS  A  DLM  CIRCUIT 

PVCPRT 

.BLKB 

PORT  NUMBER  OF  FREE  ENTRY 

PVCFLG 

.BLKB 

PVC  FLAGS  BYTE 

PVCNAM 

.BLKB 

CIRCUIT  IDENTIFICATION 

DLMCTL 

.BLKB 

DLM'S  CONTROLLER  NUMBER 

DLMUNT 

.BVTE 

0 

DLM'S  UNIT  NUMBER  (ALWAYS  0,  MUST  BE  MTP) 

DLMSTA 

.BLKB 

DLM'S  STATION  NUMBER 

DLMIND 

.BLKB 

DLM'S  PDV  INDEX 

;  STA'- 

:    VALUE 

FOR  "DATA 

TRANSFER 

STATE"  FOR  XCB 

;  GLOB 

M    PATCHABLE  JUST 

IN 

CASE 

SP$P4::    .WORD 


VALUE    FOR   DATA    TRANSFER    STATE 
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lASX  -  BIAS  XPOOL  ADDRESS  FOR  APR6 


6A1 
642 
643 
644 
645 
646 
647 
548 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
'59 


.SBTTL  BIASX  -  BIAS  XPOOL  ADDRESS  FOR  APR6 

^ 
BIASX  -  BIAS  XPOOL  ADDRESS  FOR  APR6 

INPUTS: 

RO  =  ADDRESS  (POOL  OR  APRS) 

OUTPUTS: 

RO  =  ADDRESS  (POOL  OR  APR6) 


001426 

001426  029027  120000 

001432  103404 

001434  042700  160000 

001440  052700  140000 

001444 


3IASX: 

CMP  RO, #120000 

BLO  10$ 

BIC  *160000,R0 

BIS  *140000,RO 
101:    RETURN 


POOL  ADDRESS? 
YES,  LEAVE  AS  IS 
CLEAR  APR  BITS 
BIAS  FOR  APR6 
RETURN 


D  10 

rFPPvc   -   INITIAL   CONFIG   iILE   SC   MACRO  V05.05b   Saturday   29-Jun-85   00:18     Page  20 
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LOCAL  DATA 

35 

86 

87 

88  000000 

89 

90 

91 

92  000000 

95       000017 

9A  000006 

95  000C2A' 

96  0000?5 
97 


.SSTTL   LOCAL  DATA 

.NLIST  BEX 
.PSECT  DATVD 

;  LOCAL 

DATA  FOR  RDTSDF  MACRO 

RDTNAM: 

RDTE: 

RDTEP: 

.BLKB   6 

RDTLN  =  15. 

.BLKB   RDTLN 

RDTEN  =  .-1 

.BLKB   <RDTLNt1>/2 

.EVEN 

REMOTE  DTE  NAME 

REMOTE  DTE  ADDRESS 

END  OF  DTE  ADDRESS 

REMOTE  DTE  ADDRESS  IN  BCD 
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C! 


1 

2 
3 

u 
5 
6 

7 

8 
9 

10 
11 
12 
13 
u 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 


.TITLE   CFPX29  -  CONFIG  FILE  ACTION  ROUTINES 
.IDENT  /V05.00/ 

"OPrRIGHl  (C)  1981,  1982,  1983,  1985,  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAVNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNI-ER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  EE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
O^HER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  C0M^'1TMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES  FOR  X.29  SUPPORT 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING  GUEST  STAR 

IDENT  HISTORY: 

1.00  lO-JUL-81 

DECNET-11M  V3.1 
MODULE  CREATED 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLU5  VI. 1 

4.00     07-N0V-83 

DECNET-llM   V4.0 
DECNET-11M-PLUS   \/2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-P(us  V3.0 
DECnet-Micro/RSX  VI. 0 
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MACRO  DEFINHIONS 


55 
56 
57 
58 
5<) 
60 
61 

62  000000 

63  000000 
6^, 

65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 


.SBTTL  MACRO  DEFINITIONS 

LIBRARV  MACROS 

.MCALL  RE TC,EMSG$R,CHNDF$,DTEDF$,NTLER$, TRANS, STATES, I STAT$ 


CHNDFS 
DTEDFS 


LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MOV  aKSAR5,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV  (SP)+,aKSAR5 

.ENDM 


DEFINE  CHANNEL  TABLE  OFFSETS 
DEFINE  DTE  DESCRIPTOR  OFFSETS 


SAVE  APR  5 


RESTORE  APRS 


D  13 
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•f  !LE"ID'«CIB10 


c  u 


cccccccc 

TTTTTTTTTT 

BBBBBBBB 

III 

III 

000000 

cccccctc 

TTTTTTT 

I  I  1 

BBBB8B8B 

IJl 

III 

000000 

BB      BB 

00      00 

BB      BB 

00      00 

BB      BB 

00      00 

BB      BB 

00     00 

BBBBBBBB 

00      00 

BBBBBBBB 

00     00 

BB      88 

OD     00 

BB      BB 

03      00 

BB      BB 

ro    00 

88      BB 

00      00 

cccccccc 

BB8BBB8B 

III 

III 

000000 

cccccccc 

BBBBBBBB 

JJl 

III 

000000 

LL 

sssssss? 

rnTTTTTTT 

LL 

S5SSSSSS 

TTTTTTTTTT 

LL 

ss 

_L 

5S 

LL 

SS 

-L 

SS 

_L 

S5SSS3 

LL 

SSSSSS 

LL 

SS 

-L 

SS 

LL 

SS 

LL 

SS 

LILLLLLLLL 

SSSSSSSS 

LLLLLlLLLL 

SSSSSSSS 

CTRin   -    CFTAB   lOADING   ROUTINES 


D  K 
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FLTIME   -  CALCULATE   ELAPSED   UME   MACRO  V05.03b   Saturday  29-Jun-85   17:^2     Page  4 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
■'6 

n 

48 
49 
50 
51 
52 
53 
54 
55 


.TITLE  ELTIME  -  CALCULATE  ELAPSED  TIME 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1984,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAVNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  8E  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOrTWAR'"  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOUID  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUNES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 
NETWORK  MANAGEMENT 


CALC  JLATE  ELAPSED  TIME 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00 


2.00 

4.00 

4.01 
5.00 


14-DEC-79 
DECNET-IIM/S  V3.0 
DECNET-11M-PLUS  VI. 0 

16-APR-82 
DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

07-N0V-83 
DECNET-11M  V4.0 
DECNET-11M-,'"'  US  V2.0 


17-0CT-84 
Change  Symbol 


RJK 


for  Vectoring  Comm  Exec 


22-JUL-85 
DECnet-IIM/S  V4.2 
DECnet-11M-Ptu5  V3.0 
DECnet-Micro/RSX  VI. 0 


D  15 
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LBMO  -  LOGICAL  BLOCK    I/O  ROUT!   MACRO  V05.03b   Saturday   29-Jun-85 
$READ  -   READ   LOGICAL   BLOCK 


IS: 


Page  10 


208 
209 
210 
211 
212 
215 
2K 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 


.SBTTL  SREAD  -  READ  LOGICAL  BLOCK 

SREAD  -  READ  A  LOGICAL  BLOCK 

INPUTS: 

RO=BUFFER  ADDRESS 
$LLEN=BUfFER  LENGTH 
$L6N=L0G1CAL  BLOCK  MJM6ER 


OUTPUTS: 
C-E 


lT=SUCCESS/fAlLURE 


000152 
000152 
000156 
000164 
000166 
000172 
0001 7A 
000176 


010067  000030' 

103A0A 

105767   J00A4' 

100001 

000261 


000001 


iREAD: : 


10$: 


MOV 

DIRS 

BCS 

TSTB 

BPL 

SEC 

RETURN 


.END 


RO,$LBur 

ffLBNDPB 

10$ 

$I0S6 

10$ 


SET  BUFFER  ADDRESS 

READ  LOGICAL  BLOCK 

IF  CS,  DPB  ERROR 

UAS  I/O  SUCCESSFUL?  (CLEARS  C-BIT) 

IF  PL,  YES 

INDICATE  FAILURE 


D  16 
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1 

2 

? 

4 

5 

6 

7 

8 

9 

10 
11 
12 
15 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 


.TITLE 
.IDENT 


CFPCUG  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  31-MAR-81 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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CFPCUG  CREATED  BY     MACRO     ON  29-JUN-85  AI   00:15 

SYMBOL    CROSS   REFERENCE 


D     2 

PAGE   1 

CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CERR 

-    ****** 

GX 

8-101 

8-102 

8-103 

8-1 04 

CFGBF 

=    ****** 

GX 

9-127 

CFGSZ 

=    ****** 

GX 

9-126 

CFLIN 

=    ****** 

GX 

8-101 

8-102 

8-103 

8-104 

CHKCUG 

000646 

R 

13-267 

#14-335 

COUNT 

=  ****** 

GX 

♦  12-210 

12-229 

♦12-233 

12-236 

♦12- 

■244 

12-246 

cuen: 

000406 

R 

*13-267 

CUFG 

000364 

R 

#13-262 

CUGDF 

000000 

R 

9-123 

CUGDIG 

000174 

R 

#12-213 

CUGEND 

=  000011 

R 

#7-92 

12-218 

CUGFLG 

000014 

R 

#7-94 

♦11-195 

♦13-266 

♦13-271 

13- 

-303 

CUGKW 

000000 

RG 

9-125 

#10-142 

CUGNAM 

000000 

R 

#7-89 

11-185 

11-190 

13-289 

14- 

-348 

CUGNLN 

=  000004 

#7-90 

7-91 

7-93 

12-205 

12 

-251 

1^295 

CUGNUM 

000006 

R 

#7-91 
♦12-242 

12-206 
♦12-243 

12-211 
12-252 

12-231 

♦  12 

-231 

♦12-232 

CUGPCK 

000012 

R 

#7-93 

12-253 

13-296 

CUGST 

000000 

RG 

#10-142 

CUNAH 

000052 

R 

#11-182 

CUNBEN 

000220 

R 

#12-229 

CUNBST 

000136 

R 

#12-205 

CUNMMX 

=  ****** 

GX 

11-183 

11-186 

13-288 

14-347 

DTEOES 

=  ****** 

GX 

13-302 

14-345 

FMT10 

r    ****** 

GX 

8-101 

8-102 

8-103 

FMT8 

=    ****** 

GX 

8-104 

FM.10 

=  000000 

#8-101 

#8-102 

#8-103 

FM.8 

=  000000 

#8-104 

GFSBUG 

=  000001 

13-271 

G$CUG 

000010 

13-298 

GSDTE 

000012 

♦13-302 

14-345 

GSFLG 

000014 

♦13-303 

GSLEN 

000016 

13-274 

GSNAM 

000002 

13-291 

14-35C 

HSCUG 

000010 

13-305 

14-336 

KSARS 

=    ****** 

GX 

13-279 

13-307 

14-339 

14-356 

LNKEND 

=    ****** 

GX 

13-306 

NEXT 

=    ****** 

GX 

♦12-211 

12-218 

N$$VCT 

=    ****** 

13-277 

14-355 

PCKBCD 

r    ****** 

GX 

12-254 

PSIPT 

=    ****** 

GX 

13-304 

14-335 

RTSPC 

3       ****** 

GX 

8-101 

8-102 

8-103 

8-104 

SPACE 

=  000040 

#6-79 

11-187 

STRNXT 

=    ****** 

GX 

12-212 

12-220 

SYNERR 

r     ****** 

GX 

♦9-128 

♦9-131 

S$$BAS 

=    ****** 

8-101 

8-101 

8-102 

8-102 

8- 

103 

8-103 

SALPHA 

=  000022 

#10-142 

$ANY 

=  000020 

#10-142 

$BLAN< 

=  000006 

#10-142 

SCEACX 

-  ****** 

GX 

13-282 

14-343 

SDIGIT 

=  000024 

#10-142 

SDNuMB 

=  000014 

#10-142 

12-248 


13-269 


12-238 


12-240 


12-242 


8-104 


-104 


CFPCUG 


CREATED  BY     MACRO     ON  29-JUN-85  AT  00:15 
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DSAtDF  ACTION  ROUTINES 


Paje   12 


226 

227 
22S 
229  000176 

•  LOU  END  Of  SUBADDRESS  RAf 

DASSLO:  CALL 

CHKiB 

230  000202 

103405 

BCS 

101$ 

231  000204 

010167 

OOOOOOG 

MOV 

RI.JSASLO 

232  000210 

010167 

C^OOOOG 

MOV 

RI.DSASHI 

233  000214 

RETURN 

234 

235 
236 
237  000216 

•  ERRORS 

ioi$:   EMSGSR 

N9 

238 

239 
240 
241 
242 
243  000224 

;  START  OF  HIGH 

SUBADDRESS 

DASSHI:  CALL 

CHKS8 

244  000230 

103406 

BCS 

101$ 

245  000232 

020167 

OOOOOOG 

CMP 

RI.DSASLO 
10l$ 

246  000236 

002405 

BLT 

247  000240 

010167 

OOOOOOG 

■'OV 

RI.DSASHI 

248  000244 

RETURN 

249 

250 
251 
252  000246 

':   ERRORS 

ioi$:   EMSGSR 

MO 

253 
254 
255 
256 
257  000254 

;  ROuTINL  TO  CHECK  SUBADDR 

005767 

OOOOOOG 

CHKSB:   TST 

.PNUMH 

258  000260 

001010 

BNE 

20$ 

259  000262 

016701 

OOOOOOG 

MC" 

.PNUMB.. 1 

260  000266 

002405 

BLl 

20$ 

261  000270 

020127 

OOOOOOG 

CMP 

R1,#SUBAMX 
20i 

262  000274 

101002 

BHI 

263  000276 

000241 

CLC 

264  000300 

000401 

BR 

30$ 

265  000302 

000261 

20$:    SEC 

266  000304 

30$:    RETURN 

CHECK  SUBADDRESS 

BR  IF  ILLEGAL 

STORE  LOW  SUBADDRESS  RANGE 

DEFAULT  HIGH  SUBADDRESS  IF  OMITTED 


ILLEGAL  LOW  SUBADDRESS 


CHECK  SUBADDRESS 

BR  IF  ILLEGAL 

CHECK  RANGE  VALID 

BR  IF  ILLEGAL:  HIGH  LESS  HAN  LOW 

STORE  HIGH  END  OF  SUBADDRESS  RANGE 


ILLEGAL  HIGH  SUBADDRESS 


TOO  BIG? 

BR  IF  YES 

GET  SUBADDRESS 

BR  IF  ILLEGAL 

NUMBER  WITHIN  LEGAL  RANGE? 

BR  IF  ILLEGAL 

ELSE  SHOW  NO  ERROR 

RETURN 

FLAG  ERROR 
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ERROR  MESSAGES 


lOf 
101 
102 
103 
10^  000000 

105  000032 

106  000062 

107  000110 
u3  000132 

109  00020A 

110  000236 
111 

112 
113 
1U 
115 


.SBTTL  ERROR  MESSAGES 
.ENABL  LC 


0003U 


NTLERS 
NTLFRS 
NTLtRS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 

.DSABL 
.LIST 
.EVEN 
.PSECT 


,N4,10,CERR,RTSPC,CFLIN,<destination  name> 
,N5,10,CERR,RTSPC,CFLIN,<priority  number> 
,N6,10,CERR,RTSPC,CF1 IN,<obiect  number> 
,N7,10,CERR,RTSPC,CFL;N,<task  narie> 

,6M,10,CFRR,RTSPC,CFLIN,<caU  data  mask/value  combination> 
, M7, 1 0, C ERR, RTSPC, CFL I N,<desti nation  name> 
,M9,8,CERR,RTSPC,CFLIN,<Destination  block  allocation  failure> 

LC 
BEX 
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ri-\n    P\CTtr\[r 


(.i^PDST     CREATED  BV  MACRO  ON  29--JUN-85  AT  00:1c 
SYMBOL  CROSS  REFERENCE 


0  5 

PAGE  1 

CREF   DA. 00 


CF 
DT 


SYMBOL  VALUE 


ALLDST 

BIAS 

CERR 

CFGBF 

CFGSZ 

CFLIN 

CHKDSN 

CUNMMX 

DSACUG 

DSARCT 

DSASHI 

DSASLO 

D5CMCT 

DSCVCT 

OSFLG 

DSNAM 

DSNAMX 

DSOBJ 

05PRI 

DSTDF 

DSTEND 

DSTINS 

DSTKMX 

DSTKW 

DSTNAM 

OSTOBJ 

CSrPRi 

DSTS< 

OSTST 

DSTTSK 

DSTVAR 

DS.X29 

DSCUGN 

DSriATL 

D$DST 

DSOTEL 

DtFLEN 

DSNAM 

DSOBJ 

DSPRl 

DSSHI 

DSSLO 

DSVBL 

EMTIO 

FMT8 

FM.10 

FM.8 

HSDST 

HS029 

KSAR5 

MSSMGF 

^rTlCT 


GX 
3X 
GX 
GX 
GX 


001104  R 
000002 
♦*«*♦*  GX 
**♦♦*»  GX 
•«♦♦»♦  GX 
**»♦»♦  GX 
001012  R 
*»*»»♦  GX 
*A****  GX 
♦♦«»*»  GX 
****** 
****** 
****** 
****** 
****** 
000572  R 
000006 
000536  R 
000530  R 
000000  R 
00066A  RG 
001370  R 
000006 
000000  RG 
*-,***♦  GX 
******  GX 
******  GX 
000606  R 
000000  RG 
***«♦.  GX 
******  GX 
******  GX 
000022 
000030 
000010 
000031 
000032 
OOOOOA 
000003 
000002 
000020 
0C0016 
00:032 

**♦*♦♦ 
r  **♦♦♦* 

:  oooooc 

:  000000 
000012 

oooou 

**♦♦** 

■  cooooo 


GX 
GX 


GX 


REFERENCES 

13-303 
#6-95 

7-1 OA 

8-13A 

8-133 

7-1 OA 

13-291 

10-213 

10-21A 
*10-22A 
•10-221 
•10-220 
•10-222 
•10-223 
•8-130 
#10-199 
#6-83 
#11-2A1 
#11-236 

8-129 
#13-283 

15-413 
#6-8A 

8-132 

10-202 

11-241 

11-236 
#12-261 
#9-151 
•10-218 

13-294 

13-286 

15-393 
> 15-385 

15-376 
•15-381 

13-293 

14-335 
•15-387 
•15-386 
•15-391 
•  ■'5-390 

/  -3V9 

7-104 

7-110 
#7-104 
#7-110 

13-288 

13-290 

14-528 

6-96 

14-342 


#15-560 
#6-97 
7-105 


7-105 
#14-527 
15-395 
15-594 
15-381 
15-591 
15-390 
15-283 
13-285 
15-286 

10-200 


#16-431 
12-261 

#9-151 
14-356 
11-251 
15-586 


•10-219 
15-400 
16-453 


•15-588 
16-444 

7-105 

#7-105 

16-452 
16-455 
14-543 

15-365 


7-107 
7-107 


14-357 


7-106 
7-106 


15-582 
16-433 
10-204 


15-577 
15-587 
16-444 


12-264 


♦15-589 


7-106  7-107 

#7-106  #7-107 
16-455 

15-565  15-4i 


7-108 
7-108 


7-109 
7-109 


7-110 
7-110 


15-374 


15-588 


15-589 


7-108  7-109 

C7-108  #7-109 


CF,^DST 
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DTEtDF  ACTION  ROUTINES 


Page  12 


239 

240 

241 

242 

2A3  000052 

2W  000056 

245  000062 

246  000066 

247  000070 

248  000072 

249  000074 

250  000100 

251  0001 C6 

252  000112 
253 

254 
255 
256 

257  000114 

258  000122 

259  0U0124 

260  000130 
261 

262 

263 

264  000132 

265 

266 

267 

268 

269  000140 

270  000144 

271  000150 

272  000154 

273  000160 
274 

275  0OC164 

276  0U0170 

277  000174 

278  000200 

279  000204 

280  000206 

281  00C210 

282  000212 


005067 
012700 
012701 
105021 
005300 
003375 
105067 
012767 


026727 
101003 


OOOOOOG 

000017 

000000' 


.SBTTL  DTESDF  ACTION  ROUTINES 
START  OF  DTE  ADDRESS 
DTEAST: 


004567 
012700 
012704 
012705 


017700 
062700 
012701 
012702 
112021 
005302 
0C3375 


10$: 


OOOOOOG 
000000'  OOOOOOG 


OOOOOOG  000016' 


CLR 

DTEFLG 

l*IOV 

#DTEALN 

HU 

MOV 

#DTEADD 

R1 

CLRB 

(R1)  + 

DEC 

RO 

BGT 

10$ 

CLRB 

COUNT 

MOV 

#DTEADD 

NEXI 

CALL 

STRNXT 

RETURN 

PROCESS  DTE  ADDRESS  DIGIT 

DTEDIG:  CMP  NEXT,#DTEND 

BHI  101$ 

CALL  STRNXT 
RETURN 


ERRORS 
101$:   EMSG$R 


03 


OOOOOOG 
000010 
noOOOO' 
I.C0017' 


OOOOOOG 
000024 
000027' 
000006 


END  OF  DTE  ADDRESS 

DTEAEN:  JSR  R5,$SAVRG 

MOV  #'DTEALNtl>/2,R0 

MOV  »DTEADD,R4 

MOV  #DTEPCK,R5 

CALL  PCKSCD 

MOV  5lPSIPT,R0 

ADD  #H$NETW,RO 

MOV  #DTNTNM,R1 

MOV  #DTNMMX,R2 

10$:    M0V8  (R0)+,(R1)* 

DEC  R2 

BGT  10$ 
RETURN 


INITIALISE  FLAGS  (ON/OFF  BITS) 

GET  LENGTH  OF  DTE  ADDRESS 

GET  ADDRESS  OF  BUFFER 

INITIALIZE  BUFFER 

MORE  TO  INITIALIZE? 

BR  IF  YES 

INITIALIZE  DTE  DIGIT  COUNT 

START  STORING  AT  BEGINNING  OF  BUFFER 

STORE  CHARACTER 


IS  ADDRESS  TOO  MANY  CHARACTERS? 

BR  IF  YES 

STORE  NEXT  DIGIT 


CFl 

SY[ 

SYI 

SHI 
$L; 
$Nl 
$01 
$R, 
SRI 
$S, 
$S 
SSI 

$x 
$s 

SI 

.p 
.p 
.p 

p 

!t 


ILLEGAL  DTE  ADDRESS 


SAVE  R3-R5 

GET  LENGTH  OF  PACKED  ADDRESS 

GET  ADDRESS  OF  DTE  ADDRESS  BUFFER 

GET  ADDRESS  OF  PACKED  ADDRESS  BUFFER 

PACK  ADDRESS  IN  BCD  FORMAT 

POINT  TO  HOME  BLOCK 

POINT  TO  DEFAULT  NET  NAME 

POINT  TO  LOCAL  STORAGE  OF  NAME 

GET  SIZE  OF  NAME 

SET  UP  DEFAULT  FOR  CTE 

MORE  TO  SET  UP? 

YES,  SET  AWAY 

ELSE  COMPLETED 
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SYMBOL    CROSS   REFERENCE 
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D     7 

PAGE   k 

CREF       0^.00 


SYMBOL 

VALUE 

REFERENCES 

SHEADR 

- 

****** 

GX 

15-355 

16- 

A59 

SlAMDA 

~ 

000000 

#10-168 

SNUMBR 

~ 

000002 

#10-168 

SODTE 

000000 

RG 

#9-U7 

tRADSO 

~ 

000016 

#10-168 

SRONLY 

- 

****** 

10-168 

10- 

■168 

SSAVRG 

= 

****** 

GX 

12-269 

SSTRNG 

= 

OOOCO'. 

#10-168 

SSUBXP 

= 

000010 

#10-168 

SXALOC 

~ 

*  ■**** 

GX 

15-353 

$$$FLG 

- 

177777 

#10-168 

$i$KEY 

r 

177777 

#10-168 

. PNUMB 

- 

******* 

GX 

13-289 

1? 

-i09 

.PNUMH 

= 

****** 

GX 

13-287 

13 

-i(V 

.PSTCN 

- 

****** 

GX 

U-321 

.PSTPT 

- 

****** 

GX 

K-324 

.TPARS 

= 

**♦*♦* 

GX 

9-153 

10-168 
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PSNSDF  ACTION  ROUUNES 
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269 
27C 
271 
272 
273  0002A2 

•  LOU  END  OF  SU8ADDRESS  RANGE 

PSNSLO:  CALL 

CHKSUB 

27A  0002A6 

103410 

BCS 

101$ 

275  000250 

010167 

000010' 

MOV 

RI.PSNLO 

276  00025A 

010167 

000012' 

MOV 

RI.PSNHI 

277  000260 

05276^ 

000002  000006' 

BIS 

*HF$DLM,PSNFLG 

278  000266 

RETURN 

279 

• 

280 
281 
282  000270 

;  ERRORS 

101$:   EMSG$R 

D1 

283 
23A 
285 
286 
287  000276 

;  CHECK  FOR  VALID  SUBADDRESS  V 

005767 

OOOOOOG 

CHKSUB:  TST 

.PNUMH 

288  000302 

001010 

BNE 

10$ 

289  000304 

016701 

OOOOOCG 

MOV 

.PNUMB.Rl 

290  000310 

002405 

BLT 

10$ 

291  000312 

020127 

OOOOOOG 

CMP 

R1,#SUBAMX 

292  000316 

101002 

BHI 

10$ 

293  000320 

000241 

CLC 

294  000322 

000401 

BR 

20$ 

295  00032A 

000261 

10$:    SEC 

296  000326 

20$:    RETURN 

297 

CHECK  FOR  VALID  SUBADDRESS  VALUE 

BR  IF  INVALID  VALUE 

SAVE  SUBADDRESS  VALUE 

DEhAUlT  IF  HIGH  OMITTED 

INDICATE  SUBADDRESS  WAS  SPECIFIED 


INVALID  LOW  SUBADDRESS  VALUE 


LEGAL  VALUE 

BR  IF  ILLEGAL  VALUE 

GET  SUBADDRESS  VALUE 

BR  IF  ILLEGAL  VALUE 

LEGAL  VALUE? 

BR  IF  NO 

INDICATE  LEGAL  VALUE 

AND  EXIT 

INDICATE  ILLEGAL  VALUE 
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ERROR  MESSAGES 

155  .S8TTL  ERROR  MESSAGES 

154  .ENA8L  LC 

155  000040  NTLERS  ,N0,10,CERR,RTSPC,CFLIN,<circui  t  identi  f  icati'on> 
T^7  000100  NTLERS  ,N1 ,10,CERR,RTSPC,CFLJN,<process  owner  name> 

158  000134  NTLERS  ,N2,10,CERR,RTSPC,CFLIN,<f lags  byte  »/atue> 

159  000166  NTLERS  ,N3,8,CERR,RTSPC,CFLIN,<Resource  aUocation  failure> 
160 
-'61  .DSA8L  LC 

162  .EVEN 

163  .LIST  BEX 

164  000000  .PSECT 
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So^- 
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PVOLM  -  CHECK  FOR  DIM  PVC 


D  10 


661 

.SBTTL 

PVDLM  -  CHECK  FOR 

DLM  PVC 

662 

663 
664 
665 
666 
667 

+ 

PVDLM 

-  CHECK 

FOR  DIM  PVC 

INPUTS: 

668 

PVCNAM 

-  PROCESS  NAME  (ASCII) 

669 

670 

OUTPUTS: 

671 

DLMPDV 

-  DLM'S  PDV  ADDRESS 

672 

6?  3 

- 

674  001446 

012700 

000024' 

=VDlM: 

MOV 

^"VCNAM.RO 

POINT  TO  SPECIFIED  PROCESS  NAME 

675  001452 

CALL 

$CAT5 

CONVERT  TO  RAD50 

676  001456 

020127 

015355 

CMP 

R1,#*RDLM 

IS  THIS  DLM? 

677  001462 

001025 

BNE 

INVCIR         ; 

BR  IF  NO  -  ILLEGAL  CIRCUIT  ID 

678  001464 

679 

680  001466 

010102 

MOV 

R1,R2         ; 

GET  DLM'S  RAD50  PROCESS  NAME 

SUSTK$ 

20$ 

;  ENTER  SYSTEM  STATE 

681  001472 

CALL 

aPDVID 

;  GET  DLM'S  PDV  INDEX 

682  001476 

103006 

BCC 

10$ 

;  BR  IF  FOUND  IT 

683  001500 

RETC 

RO 

;  ELSE  SET  USER  C-BIT 

684  001512 

000406 

BR 

15$ 

;  AND  EXIT 

685  001514 

110267 

000035- 

10$: 

MOVB 

R2,DLMIND       ; 

;  SAVE  PDV  INDEX 

686  001520 

067702 

OOOOOOG 

ADD 

aPDVTA,R2 

;  POINT  TO  ENTRY  IN  PDV  VlCTOR  TABLE 

687  001524 

011267 

000014' 

MOV 

(R2),DLMFi;V 

;  SAVE  DLM'S  PDV  INDEX 

6S8  001530 

ZQQ 

690  001532 

15$: 

RETURN 

;  EXIT  SYSTEM  STATE 

103401 

?0$: 

BCS 

INVCIR 

BR  IF  DLM  NOT  In   SYSTEM 

691  001534 

RETURN 

692 

693 

694 

695  001536 

696 

697 

;  ERRORS 

INVCIR: 

EMSG$R 

NO 

ILLEGAL  CIRCUIT  ID 

•  PVCTL 

-  GET  CONTROLLER  NUMBER  FOR  DLM 

698 

699 

.ENA6L 

LSB 

700  001544 

116767 

OOOOOOG  000032' 

PVCTL: 

MOVB 

.PNUMB.DLMCTL 

SAVE  CONTROLLER  NUMBER 

701  001552 

000403 

BR 

10$ 

CHECK  FOR  VALIDITY 

702  001554 

116767 

OOOOOOG  000034' 

PVSTA: 

MOVB 

.PNUMB.DLMSTA 

SAVE  STATION  NUMBER 

703  001562 

005767 

OOOOOOG 

10$: 

TST 

.PNUMH 

LEGU  VALUE? 

704  001566 

001363 

BNE 

INVCIR 

BR  IF  NO  -  ERROR 

705  001570 

105767 

000001G 

TSTB 

.PNUMB*-1 

'  EGAL  VALUE? 

706  001574 

0015'^C 

BNE 

INVCIR 

BR  IF  NO 

707  001576 

RETURN 

708 

.DSA8L 

LSS 

709 

710 

000001 

.END 

CFPPVC  -  INITIAL  CONFIG  FILE  SC 
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ERROR  MESSAGES 
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99 

100 
101 
102 

103  000056 

104  000056 

105  000122 
106 

107 
108 
109 

no  000000 


.SBTTL  ERROR  MESSAGES 
.ENABL  LC 


NTLERS 
NTLERS 
NTLERS 

.DSA8L 
.LIST 
.EVEN 
.PSECT 


,L0,10,CERR,RTSPC,CFLIN,<reinote  dte  name> 
,Ll,10,CERR,RTSPC,CFLIN,<remote  dte  address> 
,L2,8,CERR,RTSPC,CFL]N,<Remote  dte  block  allocation  failure> 

LC 
BEX 


CFPRDT  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 


i  11 

00:1 
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CFPX29  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:20 
MACRO  DEFINITIONS 


52 
53 
% 
55 
56 
57 
58 

59  000000 

60  000000 
61 


Page  5 
S8TTL  MACRO  DEFINITIONS 


CF 
LC 


LIBRARr  MACROS 

.MCALL  EMSG$R,NTLER$,X29DF$,PHBDf$, I  STATS, STATES, TRANS 


X29DFS 
PH8DFS 


X.29  DATA  BLOCK  DEFINITIONS 
PSI  HOME  BLOCK  DEFINTIONS 


fFpypq  -  rnMFir;  fiif  ArTION  Rnii  MACRO  V05.03b  Saturday  29-Jun-85 


y: 
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r 
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LOCAL  SYMBOL  DEFINITIONS 


77 
78 
79 
80 
81 
82 


.S8TTL   LOCAL  SYMBOL  DEFINITIONS 


000001 


LOCAL  SYMBOL  DEFINITIONS 
CHNLMN  =  1. 


;  ilINIMUM  VALUE  FOR  CHANNEL  RANGE 
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1 
2 

7 

5 
6 
7 
8 
9 

10 
11 
-2 
13 

'h 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  CT8I0  -  CETAB  LOADING  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL   OUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WI'H  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  CETAB  LOADING  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

0ECNET-11M  V4.0 
DECNET-IIM-PLUS  V2.G 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF   ITS 


E  U 
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ELTIME 
ELTIMf 


57 
58 
59 
60 
61 
62 
63 
64 
6''- 
(6 
67 
68 
69 
70 
71 
72 
75 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
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CALCULATE  ELAPSED  TIME  MACRO  V05.03b  Saturday  29-Jun-85  17;A2  Page  5 
CALCULATE  ELAPSED  TIME 

.SBTTL  ELTI'IE  -  CALCULATE  ELAPSED  TIME 

•♦»  -  ELTIME  -  CALCULATE  ELAPSED  TIME 

INPUTS: 


OUTPUT: 


RO  =  START  TIME  GIVEN  IN  NUMBER  OF  2  SECOND  INTERVALS  SINCE  MIDNIGHT 

T: 
C-BIT  =  SUCCESS/FAILURE  ,^.,^„ 

RO  =  TIME  ELAPSED  FROM  START  TIME  TO  CURRENT  TIME.  RESULT  IS  AN  UNSIGNED 
16-8IT  INTEGER. 

ALL  OTHER  REGISTERS  PRESERVED. 


000000 

000000  0177A6  OOOOOOG 

000004  160016 

000006  103002 

000010  062716  124300 

OOOOU  000241 

000016  012600 

000020 


000001 


ELTIME: 

10$: 
20$: 


MOV 
SUB 
BCC 
ADD 
CLC 
MOV 
RETURN 


.END 


aZTlM2,-(SP) 

RO.CSP) 

lOi 

#43200. ,(SP) 

(SP)+,RO 


GET  TIME  IN  2  TICK  UNITS      ;  RJK01 

CALCULATE  ELAPSED  TIME 

IF  CC,  CURRENT  TIME  >  START  TIME 

ELSE,  ADD  24  HOURS  TO  RESULT 

DON'T  CORRUPT  THE  C-BIT! 

RESULT  RETURNED  IN  RO 
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Symbol  table 


^-1^1 


Page  10-1 


A$$CHK= 
AttCPS= 
A$$PR1= 
A$$TRP= 
C$$CKP= 
Ct$ORE= 
C$$RSH= 
D$$BUG--- 
D$$IS<= 
D$$L11= 
DS$YNC= 
D$$YNM= 
E$$XPR= 
F$$LVL= 
GS$TPP= 


000000 
000000 
000000 
000000 
000000 
000400 
177564 
1775U 
000000 
000001 
000000 
000000 
000000 
000001 
000000 


G$$TS5= 

G$$TTK= 

G$$WRD= 

IO.RLB= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LBNDP8 

LDSLP  = 

L$BHRB= 

L$$ASG= 

L$$DRV= 


000000 

000000 

000000 

»♦••*•  GX 

000000 

000000 

177546 

177546 

000000 

000074 

000014R 

000000 

»*»»»«  GX 

000000 

000000 


L$$P11= 
L$$11R= 
H$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
MSSOVR-- 
N$$ACC= 
N$$BUf= 
002  N$JLDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 


000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 


N$$NCr= 

N$$PEM= 

PR7   = 

P$$P45= 

P$$WRD= 

Q$$OPT= 

R$$DER= 

,^$$K11  = 

R$$SND= 

R$$11M= 

STAT 

S$$WRG= 

S$$YSZ= 

T$$KMG= 


000001 

000001 

******   GX 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

000002R 

000000 

007600 

000000 


r$$MiN= 

UISAV 
USARO  = 
V$$CTR= 
X$$D8T= 
$CLOPE 
$rLQST= 
$10SB 
$LBN 
$LBUF 
002  $LLEN 
$READ 
SREADX 
$RLBL 


000000 
OOOOOOR 
******  GX 

001000 

000000 

OOOOOORG 

******  GX 

000044RG 

000036RG 

000030RG 

000032RG 

OOOIS'.RG 

000060RG 

000026RG 


002 


002 
00? 
002 
002 


.  ABS.  OOOUOO 
000200 
DATA    000050 
Errors  detected: 


000 
001 
002 
0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


**♦  Assembler   statistics 

Work      file     reads:  0 

Work      file  writes:  0 

Size  of   Kork    file:  9100  Words      (   36  Pages) 

Size  of   core  pool:  14440  Words      (    55  Pages) 

Operating     system:  RSX-11M/PLUS 

SYfLBNIo;v2!il32J34]L8NIO/CR/-SP=SY:n,nRSXMCM.SML/ML,L130,110]NETLIB/ML,[130,10]RSXMCM/PA: 


1,[132,10JLBN10 


TDCATCh     DV        MATDfl        HM     :)Q-lltM-H'^     AT     OOOI 


PAPIF    1 


E  16 


E  1 

CFPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.0?b  Saturday  29-Jun-85  00:15  Page  5 
MACRO  DEFINITIONS 


5? 
bi 
5A 
55 
56 
57 
58 

59  000000 

60  000000 
61 

62 
63 
6^ 
65 
66 
67 
68 
69 
70 
71 
72 


.SSTTL  MACRO  DtFINITIONS 

LIBRARY  MACROS 

.MCALL   CUGDF$,RETC,EMSG$R,PHBDF$,NTLER$, STATES, TRAN$,ISTAT$ 


CUGDFS 
PHBDFS 


LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MO"  51KSAR5,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV  (SP)+,aKSAR5 

.ENDM 


CLOSED  USER  GROUP  BLOCK  OFFSETS 
PSI  HOME  BLOCK  OFFSETS 


SAVE  APR  5 


RESTORE  APRS 


•FPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-?  TO:^  Page  6 
nrii  'jvMBni  ni-F  ini  TinNS 


CFPCUG 

CREATED   BY 

MACRO     ON   29 

-JUN-85  AT 

00:15 

E 

PAGE  2 

SYMBOL 

CROSS   REFERENCE 

CREF 

04.00 

SYMBOL 

VALdE 

REFERENCES 

$EOS 

=  000012 

#10-K2 

SERRMI 

000110 

P 

/CS-lOA 

13-317 

$ERRN2 

000016 

R 

#8-101 

11-200 

13-316 

$ERRN3 

OOOOAO 

R 

#8-102 

12-225 

SERRPA 

00006A 

R 

#8-103 

13-315 

SERRIT 

~      ****** 

GX 

9-138 

SEXIT 

=   000000 

#10-H2 

$FA!L 

=   177777 

#10-U2 

$CPRM 

=   ****** 

10-U2 

SHEADR 

~   ****** 

GX 

13-277 

14-355 

SLAMDA 

=  000000 

#1C-U2 

SNUMBR 

=  000002 

#10-U2 

SQCUG 

000000 

RG 

#9-123 

$RAD50 

=  000016 

#10-U2 

SRONLY 

=    ****** 

10-142 

10-142 

10-142 

SSAVRP 

=    ****** 

GX 

12-250 

SSTRNC 

=  OOCuOA 

#10-U2 

SSUBXP 

=  oo&ro 

#10-U2 

SXALOC 

=    ****** 

GX 

13-275 

$$$FLG 

=   177777 

#10-142 

S$$KEY 

=   U7777 

#10-142 

.PNUMB 

~   ****** 

GX 

13-264 

13-266 

.PNUMH 

-   ****** 

GX 

13-262 

.PSTCN 

-   ****** 

GX 

11-182 

.PSTPT 

=   ****** 

GX 

11-191 

.TPARS 

-   ****** 

GX 

9-129 

CFPCUG 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:15 


PAGE  5 


F  2 


~^ 


CFPDSA  -  INITIAL  CONFIG  FILE 
DSAtDF  ACTION  ROUTINES 


268 
269 
270 
271 
272 
273 
27A 
275 
276 
277 
278 
279 
280 
281 
282 
283 
28A 


SC  MACRO  V05.03b  Saturday  29-Jun-85  00:15  Page  13 


00:1" 


CLOSED  USER  GROUP  NAME 


000306  016702  OOOOOOG 

000312  022702  OOOOOOG 

000316  103A10 

000320  012701  OOOOOOG 

000324  016700  OOOOOOG 

000330  112021 

000332  005302 

000334  003375 
000336 


000340 


6ACUNM:  MOV 
CMP 
BLO 
MOV 
MOV 

10$:    MOVB 
DEC 
BGT 
RETURN 


.PSTCN,R2 

#CUNMMX,R2 

101$ 

#DSACUG,R1 

.PSTPT.RO 

CR0)  +  ,(R1)t- 

R2 

10$ 


ERRORS 
^01$:   EMSG$R  N2 


GET  NUMBER  OF  CHARACTERS  SPECIFIED 

LEGAL  NUMBER  OF  CHARACTERS? 

BR  IF  NO 

GET  ADDRESS  OF  CUG  NAME  STORAGE 

GET  ADDRESS  OF  SPECIFIED  NAME 

STORE  CHARACTER 

MORE  TO  STORE? 

BR  IF  YES 


ILLEGAL  CUG  NAME 


n 


F  3 

CFPDSA  -  INITIAL  CONFIG  FILL  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:15 
ncrtni:  arrinM  BniiTiMF'; 
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CFPDST  -   INITIAL   CONFIG   FILE   SC  MACRO  V05.0?b   Saturday  29-Jun-85   00:16 
LOOK   FOR   DSTSDF    MACRO 


Page  8 


117 
118 
119 
120 
121 
122 
125 
12A 
125 
126 
127 
128 

129  0003K 

130  000320 

131  00032A 

132  000326 

133  000332 

134  000336 

135  000342 

136  000346 

137  000352 

138  000354 

139  000360 

140  000362 
141 

142 
143 
144 
145  000364 


.SBTTL  LOOK  FOR  DSTSDF  MACRO 


SQDST  -  LOOK  FOR  DSTSDF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-BJT=SUCCESS/FAILURE 
R3,R4,R5=DESTROyED 


012705 
005067 
005001 
012702 
016703 
012704 
005067 

103003 
005367 
001401 


000000' 
OOOOOOG 

000000' 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 


iODST: 


MOV 

#DiTDF,R5 

CLR 

DSFLG 

CLR 

R1 

MOV 

#DSTKU,R2 

MOV 

CFGSZ,R3 

MOV 

#CFGBF,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

RETURN 

20$: 

ERROR  CONDITION 
101$:   EMSG$R  IT 


STATE  TABLE  ADDRESS 

INITIALIZE  FLAGS  WORD 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EQ,  YES 


SYNTAX  ERROR 


F  4 

CfFDST  -  INITIAL  CONFIG  FILL  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:16  Page  9 

TDADC  (LTATF  TARl  F  C: 


CF.^DST  CREATED  BY     MACRO     ON  29-JUN-85  AT   00:16 

SYMBOL   CROSS   REFERENCE 


E     5 

PAGE  2 

CREF       04.00 


CF 

DT 


SYMBOL 

VALUE 

REFERENCES 

PSIPT 

=    »****♦ 

GX 

13-285 

16-431 

RTSPC 

=   ****** 

GX 

7-104 

7-105 

7-106 

7-107 

7-108 

RSRO 

=  000002 

#6-88 

R$R1 

=  0O0004 

#6-89 

R$R2 

=  000006 

#6-90 

R$R3 

=  000010 

#6-91 

RSR'. 

=  000012 

#6-92 

R$R5 

=  OOOOK 

#6-93 

SPACE 

=  000040 

#6-82 

10-205 

10-215 

SYNERR 

-  ****** 

GX 

.8-135 

*8-138 

S$$BAS 

-  ****** 

7-104 

7-104 

7-105 

7-105 

7-106 

7-108 

7-109 

7-109 

7-110 

7-110 

SALPHA 

=  000022 

#9-151 

SANY 

=  000020 

#9-151 

SBLANK 

=  000006 

#9-151 

$CAT5 

=      ****** 

GX 

12-267 

SCEACX 

■=      ****** 

GX 

14-332 

15-368 

16-442 

SDIGIT 

=  000024 

#9-151 

SONUMB 

=  000014 

#9-151 

$EOS 

=  000012 

#9-   - 

$ERRM7 

000204 

R 

#7-1u':' 

13-309 

$ERRM9 

000236 

R 

#7-110 

13-310 

SERRNii, 

000000 

R 

#7-104 

10-229 

SERRN5 

000032 

R 

#7-105 

11-253 

$ERRN6 

000062 

R 

#7-106 

11-254 

$ERRN7 

000110 

R 

#7-107 

12-276 

JERRI T 

=      ****** 

GX 

8-145 

$ERR6M 

000132 

R 

#7-108 

13-311 

SEXIT 

=  COOOOO 

#9-151 

SFAIL 

=   177777 

#9-151 

SGPRM 

r     ****** 

9-151 

SHEADR 

=     ****** 

GX 

14-342 

15-363 

SLAMDA 

=  COOOOO 

#9-151 

SLINXX 

=    ****** 

GX 

16-449 

SNUMBR 

=  000002 

#9-151 

SQDST 

000314 

RG 

#8-129 

$RAD50 

=  000016 

#9-151 

SRONLY 

~      ****** 

9-151 

9-151 

9-151 

SSTRNG 

=  000004 

#9-151 

SSUSXP 

=  000010 

#9-151 

SXAlQC 

-      ****** 

GX 

15-361 

$$$FLG 

=    177777 

#9-151 

SSSKEY 

=   U7777 

#9-151 

. PNUMB 

-      ****** 

GX 

11-244 

11-246 

.PNIJMH 

-      *♦*♦*♦ 

GX 

11-242 

.PSTCN 

=      ****** 

GX 

10-199 

12-261 

.12-269 

.PSTPT 

=r     ****** 

GX 

10-209 

12-265 

.TPARS 

r     ****** 

GX 

8-136 

7-109 


7-110 


7-106 


7-107 


7-107 


7-108 


:fpdst 
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Cf 
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CFPDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:17  Page  13 
rilESDF  ACTION  ROUTINES 


28A 

285 

;  HASH  TABLE  SIZE 

286 

287  00C2U 

005767 

OOOOOOG 

HSHTBL:  T^T 

.PNUMH 

288  000220 

001016 

BNE 

101$ 

289  000222 

016700 

OOOOOOG 

MOV 

.PNUMB,RO 

290  000226 

012701 

000040 

MOV 

mSHMN.Rl 

291  000232 

020001 

10$:    CMP 

RO.fil 
20i 

292  00023-; 

001405 

BEQ 

293  000236 

006301 

ASL 

Rl 

294  000240 

020127 

001000 

CMP 

R1,#HSHMX 

295  0002 ^s 

101004 

BHI 

101$ 

296  0002A6 

000771 

BR 

10$ 

297  000250 

010067 

OOOOOOG 

20$:    MOV 

R0,HSHSZ 

298  00025A 

RETURN 

299 

300 

301 

302  000256 

303 

;  ERRORS 

101$:   EMSG$R 

04 

304 
305 

;  COUNTER  TIMER 

VALUE 

306 

307  000264 

005767 

OOOOOOG 

CNTTIM:  TST 

. PNUMH 

308  000270 

001004 

BNE 

101$ 

309  000272 

016767 

OOOOOOG 

OOOOOOG        MOV 

.PNUMB,CTIM 

310  000300 

RETURN 

311 

312 
3i3 
314  000302 

;•  ERRORS 

i01$:   EMSGSR 

05 

315 

LEGAL  HASH  TABLE  SIZE  VALUE? 

BR  IF  NO 

GET  HASH  TABLE  SIZE 

GET  MINIMUM  SIZE  OF  HASH  TABLE 

IS  THIS  A  LEGAL  SIZE? 

BR  IF  YES 

HASH  TABLE  SIZE  MUST  BE  POWER  OF  TWO 

IS  THIS  A  LEGAL  SIZE? 

BR  IF  NO 

CHECK  FOR  LEGAL  VALUE 

SAVE  HASH  TABLE  SIZE 


ILLEGAL  HASH  TABLE  SIZE 


LEGAL  COUNTER  TIMER  VALUE? 

BR  IF  NO 

SAvE  COUNTER  TIMER  VALUE 


ILLEGAL  COUNTER  TIMER  VALUE 


CF 

MA' 

MA 

CAI 

DB' 
DT 
EM 
IS 
MT 
NT 
PH 
RE 
RE 
RE 
RE 

SA 
SA 
SL 
ST 

su 

TR 


CFPDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.0ju  Saturday  29-Jun-85  00:17 


nn;  IT  I  plic  c 
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r: 


1 


,       E     7 

CFPCTE 

CREATED  BY     MACRO     ON  29- 

■JUN-85  AT   00 

:17           PAGE 

5 

MACRO   CROSS 

REFERENCE 

CREF 

04.00 

MACRO  NAME 

REFERENCES 

CALL 

9-153 

12-251 

12-259 

12-2r'3 

15-340 

15-344 

15-J52 

15-353 

15-A09 

16-442 

16-449 

17-485 

17-490 

DBGTPS 

#10-168 

#10-180 

#10-199 

#10-203 

#1 0-207 

#10-214 

#11-232 

DTEDFl 

#5-60 

5-65 

EMSG$R 

#5-60 

9-162 

12-264 

13-302 

13-314 

14-334 

15-418 

15-419 

ISTATS 

#5-61 

10-168 

HTRANS 

#10-168 

NTLERS 

#5-61 

8-124 

8-125 

8-126 

8-127 

8-128 

8-129 

PHBDFS 

#5-61 

5-66 

RESMAP 

#5-75 

15-410 

16-460 

RESRG 

#5-60 

RETC 

#5-60 

15-355 

16-459 

17-512 

RETURN 

9-157 
18-535 

12-252 

12-260 

12-282 

13-298 

13-310 

15-411 

15-414 

SAVMAP 

#5-71 

15-358 

16-443 

SAVRG 

#5-60 

SLTDFS 

#5-60 

5-67 

STATES 

#5-61 

10-172 

#10-175 

#10-178 

#10-182 

#10-185 

#10-188 

#10-191 

#10-201 

#10-205 

#10-209 

#10-212 

11-221 

#11-224 

#11-227 

#11-230 

SWSTKt 

15-352 

16-442 

17-485 

TRANS 

#5-61 

#10-173 

#10-176 

#10-179 

#10-180 

#10-183 

#10-186 

#10-189 

#10-198 

#10-199 

#10-202 

#10-203 

#10-206 

#10-207 

#10-210 

#10-213 

#11-225 

#11-228 

#11-231 

#11-232 

#11-235 

15-361 


15-420 


16-462 


#10-194 
#11-234 

#10-192 
#10-214 


15-403 


15-421 


17-514 


#10-197 
#11-237 

#10-195 
#11-222 


*»F1LE*«ID*.CFPPSN 
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CFPPSN  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00 
PSNSDF  ACTION  ROUTINES 


8 

:17 
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299 

300 

■  HIGH 

END  OF  SUBADDRESS  RANGE 

301 

302 

.ENA8L 

LSB 

303  000330 

PSNSHI 

CALL 

CHKSUB 

304  00033A 

103522 

BCS 

101$ 

305  000336 

020167 

000010' 

CMP 

RI.PSNLO 

loh 

306  000342 

002517 

BLT 

307  000344 

010167 

000012' 

MOV 

RI.PSNHI 

308  000350 

052767 

000002  000006' 

BIS 

#HF$DLM,PSNFLG 

309 

310 
311 
312  000356 

■  ENC 

3F  PSN$DF 

012701 

000042 

PSNEND 

:MOV 

#H$LEN,R1 

313  000362 

CALL 

$ALL16 

314  000366 

103510 

BCS 

102$ 

315  000370 

SAVRG 

<R0>                ; 

316  000372 

010002 

MOV 

R0.R2 

#H$LEN,R1             ; 

317  000374 

012701 

000042 

MOV 

318  000400 

105022 

5$: 

CLRB 

(R2)+                ; 

319  000402 

005301 

DEC 

R1 

320  000404 

003375 

BGT 

5$ 

321  000406 

062700 

000024 

ADD 

#H$NFTW,RO 

322  000412 

012701 

000000' 

MOV 

#PSNNAM,R1 

323  000416 

012702 

000006 

MOV 

#PNAMMX,R2            ; 

324  000422 

112120 

10$: 

MOVB 

(R1)  +  ,(R0)t-           ; 

325  000424 

005302 

DEC 

R2 

326  000426 

003375 

BGT 

10$ 

327  000430 

016701 

OOOOOOG 

MOV 

PORTNO.RI 

328  000434 

006301 

ASL 

R1 

329  000436 

RESRG 

<R0> 

330  000440 

331 

332  000444 

010077 

OOOOOOG 

MOV 

RO.aPSIPT 

SWSTK$ 

50$ 

333  000450 

CALL 

$XALOC 

334  000454 

103006 

BCC 

20$                 ;, 

335  000456 

RETC 

RO 

336  000470 

000417 

BR 

40$                 ;. 

337  000472 

010066 

000006 

20$: 

MOV 

R0,fi$R2(SP) 

338  000476 

SAVMAP 

339  000502 

010046 

MOV 

RO,-(SP)             V. 

340  000504 

CALL 

$CEACX 

341  000510 

012602 

MOV 

(SP)nR2 

342  000512 

016701 

OOOOOOG 

MOV 

P0RTN0,R1 

343  000516 

005022 

30$: 

CLR 

(R2)+               ;, 

344  000520 

005301 

DEC 

R1 

345  000522 

003375 

BGT 

30$                 ;. 

346  000524 

RESMAP 

347  000530 

348 

349  000532 

40$: 

RETURN 

103431 

50$: 

BCS 

103$ 

350  000534 

010260 

000020 

MOV 

R2,H$PTB(R0) 

351  000540 

016760 

OOOOOOG  000022 

MOV 

POr^TN0,H$NPT(R0) 

352  000546 

016760 

000006"  000000 

MOV 

PSNFLG,H$FLG(R0) 

353  000554 

032767 

000002  000006' 

BIT 

#HF$DLM,PSNFLG         ; 

354  000562 

001406 

BEQ 

60$                ; 

355  000564 

016760 

000010'  000032 

MOV 

PSNL0,h$LOTS(R0) 

CHECK  FOR  VALID  SUBADDRESS  VALUE 

BR  IF  INVALID  VALUE 

HIGH  MUST  NOT  BE  LESS  THAN  LOW 

BR  IF  ERROR 

SAVE  SUBADDRESS  VALUE 

INDICATE  SUBADDRESS  WAS  SPECIFIED 


GET  LENGTH  OF  PSI  HOME  BLOCK 

ALLOCATE  HOME  BLOCK  FROM  DSR 

BR  IF  UNABLE  TO  ALLOCATE  IT 

SAVE  HOME  BLOCK  ADDRESS 

GET  ADDRESS  OF  HOME  BLOCK 

GET  LENGTH  OF  HOME  BLOCK 

INITIALIZE  HOME  BLOCK 

MORE  TO  INITIALIZE? 

BR  IF  YES 

POINT  TO  NETWORK  NAME  IN  HOME  BLOCK 

POINT  TO  SAVED  NETWORK  NAME 

GET  LENGTH  OF  NETWORK  NAME 

STORE  NAME  (ALREADY  BLANK  FILLED) 

MORE  TO  STORE? 

BR  IF  YES 

GET  NUMBER  OF  PORTS 

GET  NUMBER  OF  BYTES  TO  ALLOCATE 

RETRIEVE  HOME  BLOCK  ADDRESS 

STORE  HOME  BLOCK  ADDRESS 

ENTER  SYSTEM  STATE 

ALLOCATE  PORT  TABLE  FROM  NETWORK  POOL 

BR  IF  SUCCESSFUL  ALLOCATION 

SET  USER  C-BIT 

AND  EXIT 

RETURN  PORT  TABLE  ADDRESS  IN  USER  R2 

SAVE  CURRENT  MAPPING 

GET  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

GET  NUMBER  OF  WORDS  IN  PORT  TABLE 

INITIALIZE  PORT  TABLE 

MORE  TO  INITIALIZE? 

BR  IF  YES 

RESTORE  PREVIOUS  MAPPING 

RETURN  TO  USER  STATE 

BR  IF  ERROR 

STORE  PORT  TABLE  ADDR  IN  HOME  BLOCK 

STORE  NUMBER  OF  PORTS 

STORE  FLAGS  WORD  IN  HOME  BLOCK 

IS  SUBADDRESS  RANGE  PRESENT? 

IF  EQ,  NO 

FILL  IN  LOW  TRANSPORT  SUBADDRESS 
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166 
167 
168 
169 
170 
171 
172 
173 
Ui, 
175 
176 
177 

178  000000 

179  000004 

180  000010 

181  000012 

182  000016 

183  000022 
18A  000026 

185  000032 

186  000036 

187  000040 

188  00004A 

189  000046 
190 

191 
192 
193 
194  000050 


.SBTTL  LOOK  FOR  PVCSDF  MACRO 

\- 
$QPVC  -  LOOK  FOR  PVC$DF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-8IT=SUCCESS/FA1LURE 
R3,R4,R5=DESTROYED 


005067 
012705 
005001 
012702 
016703 
012704 
005067 

103003 
005367 
OOHOl 


000020' 
000000" 

000000' 
OOOOOOG 
OOOCOOG 
OOOOOOG 


OOOOOOG 


ioPVC: 


20$: 


CLR 

FLAG 

MOV 

*PVCDF,R5 

CIR 

R1 

MOV 

#PCVKU,R2 

MOV 

CFGSZ,R3 

MOV 

#CFG8F,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

RETURN 


ERROR  CONDITJON 
101$:   EMSG$R  IT 


CLEAR  LOCAL  FLAGS  WORD 

STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  00  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EQ,  YES 


SYNTAX  ERROR 


F  9 
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CFPPVC  -  INIT 
Symbol  table 


ALLXCB 

A$$CHK-- 

A$$CPS= 

A$$PRI-= 

A$$TRP^ 

BIASX 

BL<SZD= 

CERR  = 

CFGBF  = 

CFGSZ  = 

CFLIN  = 

CF$BLK= 

CHKBLK^ 

CHKDLM 

CHKPVC 

CHKUND= 

CHNLMX= 

CHNLNO 

CSOTE 

C$FLG 

CIGNAM 

C$LCN 

CSLEN 

CSLNK 

CSNAH 

CSNML 

CSPORT 

C$$CKP= 

C$$ORE= 

CS$RSH= 

DLMCTL 

DLMIND 

DLMPDV 

OLMSLT 

DLMSTA 

DLMUNT 

DTEDES= 

D$$BUG= 

D$$ISK= 

D$$Ln  = 

D$$yNC= 

END 

E$$XPR= 
FLAG 
FWT10  = 
FMT8   = 
FM.10  = 
FM.8   = 
FNDHSH 
FNDPDV= 
FNDPRT 
F$$H/L  = 
G$$TPP^ 
G$$TSS= 


000640R 

000000 

000000 

000000 

000000 

0OU26R 

****** 

****t* 

****** 


GX 
GX 
GX 
GX 
GX 


GX 


****** 

000102 
****** 

000166R 

000742R 

******  GX 

******  GX 

000022R 

000012 

000015 

000016 

000010 

000016 

000000 

000002 

000002 

OOOOU 

000000 

000400 

17756/i 

000032R 

0UC035R 

OOOOKR 

00001 6R 

000034R 

000033R 

*♦>•**  GX 

17751A 

000000 

000001 

000000 

000000 

0001 56R 

000000 

00C020R 

*««♦**  GX 

******  GX 

000000 

000000 

001316R 

*♦♦*♦*  GX 

0010'1'iR 
000001 
000000 
000000 


ABS.  000106 


G$$TTK= 
G$$WRD= 
HF$DLM= 
HF$GWY= 
HF$H0S= 
HF$XDF= 
HSHADD= 
H^HSZ 
H$CUG 
H$DST 
H$D29 
HSFLG 
HSGLEN 
003  HSGLT 
tISGNAM 
H$GNML= 
H$GPT 
003  HSHITS 
HSHLEN 
HSLBDA 
HSLBDN 
HSLDTE 
H$LEN 
HSLOTS 
HSNETU 
H$NML  = 
HSNPT 
HSPTB 
HSPVC 
HSRDTE 
002  H$RNW 
002  H$SVC 
002  HSTRB 
002  HSXAVL 
002  H$XBIA 

002  H$X29C 
INIXC8 
INVCIR 
I$$RAR= 
I$$RDN= 
KSAR5  = 
K$$CNT= 

003  K$$CSR= 
K$$LDC= 

002  K$$TPS= 
LD$LP  = 
LNKEND= 
LS$ASG= 
L$$DRV-- 
L$$P11= 
L$$11R= 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE=; 


000000 
000000 
000002 
000010 
OOOOOA 
000020 
****** 
=  ****** 


GX 
GX 


000010 

000012 

OOOOU 

000000 

000104 

000044 

000050 

000020 

000046 

000034 

000044 

000070 

000072 

000002 

000042 

000032 

000024 

000006 

000022 

000020 

000006 

000004 

000042 

000036 

000016 

000100 

000074 

000040 

0C1132R 

001536R 

000000 

000000 

******  GX 

177546 

177546 

000000 

000074 

000000 

******  GX 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 


000 


(RU,I,GBL,ABS,OVR) 


Saturday 

?9-Jun-85  50 

10 

:18 

Page  20 

-1 

N$$NET= 

000000 

R$$SND= 

000000 

XSRPS 

000012 

M$$OVR= 

000000 

R$$11M= 

000000 

XSRTRY 

000002 

N$$ACC= 

000001 

SPACE  = 

00004C 

X$RXI 

000104 

N$$8UF= 

00000' 

SP$P4 

000036RG 

002  XSRXQ 

5998^? 

N$$LDV= 

00000- 

SYNERR= 

«•»***  GX 

X$SS 

000004 

N$$MCP= 

00000' 

S$$WRG= 

000000 

X$ST 

000005 

Nl$MLL= 

000001 

S$$YSZ= 

007600 

XSTCLZ 

000030 

N$IMOV= 

000010 

T$$KMG= 

000000 

XSTIMC 

000001 

N$$NC1- 

000001 

T$$MIN= 

000000 

XSTIMR 

000000 

N$$PEM= 

000001 

V$$CTR= 

001000 

X$TXI 

000102 

OWNER 

000112R 

003 

WNDSZ 

000070R 

003  XSTXQ 

000066 

PCVKW 

OOnOOORG 

004 

WNDSZD= 

******  GX 

X$TYP 

000015 

PDVID  = 

******  GX 

XA$NC0= 

000020 

X$USR 

000022 

PDVTA  = 

******  GX 

XA$RR  = 

000200 

XSUAO 

000062 

PFLA6S 

000134R 

003 

XA$UCL= 

000040 

XSWSZ 

000020 

PF.DLH= 

000001 

XA$URE= 

000100 

X$$DBT= 

000000 

PORTNO= 

***»*»  GX 

XF$NC0= 

000020 

ZTIME  = 

******  G> 

PRTADD 

OOOOOOR 

002 

XF$0FF= 

000200 

$ALPHA= 

000022 

PSIPT  = 

******  GX 

XF$ORI= 

000002 

$ANY  = 

000020 

PSZ 

000046R 

003 

XF50TI= 

000001 

$BLANK= 

000006 

PVCCTM 

000004R 

002 

XF$TJL= 

000010 

SCATS  = 

******  GX 

PVCDF 

OOOOOOR 

003 

Xr$TIR= 

000004 

$CEACX= 

******  GX 

PVCFLG 

000023R 

002 

XT$CHN= 

000100 

$DIGIT= 

000024 

PVCLCN 

000002R 

002 

XT$DGR= 

000002 

$DNUHB= 

000014 

PVCNAM 

000024R 

002 

XT$FAS= 

000200 

JEOS  = 

000012 

PVCOWN 

000012R 

002 

XT$INC= 

000004 

SERRNO 

000040R    002 

PVCPRT 

C00022R 

002 

XT$0UC= 

000010 

SERRNl 

000100R    002 

PVCPSZ 

000006R 

002 

XT$PVC= 

000001 

$ERRN2 

000134R    002 

PVCST 

OOOOOORG 

003 

X$A80 

000076 

$ERRN3 

000166R    002 

PVCT 

000220R 

X$ALF 

000055 

$ERRO0= 

*»*»*♦  GX 

PVCTL 

001544R 

X$AUC 

000056 

$ERR05= 

******  GX 

PVCWSZ 

000010R 

002 

X$CLEN= 

000025 

$ERR09= 

******  GX 

PVDLM 

.01446R 

XSCTIM 

000060 

$ERRP8= 

******  GX 

PVEND 

000404R 

XSDIAG 

000003 

$ERR1T= 

******  GX 

PVFG 

000346R 

X$DTE 

000024 

$EXIT  = 

000000 

PVLCN 

0001 62R 

X$FLG 

OOOOK 

SFAIL  = 

177777 

PVNAM 

000056R 

XSGLEN 

000106 

SHEADR= 

******  GX 

PVNAMX= 

000006 

X$LCN 

000026 

$LAHDA= 

000000 

PVOWN 

000310R 

XSLEN 

000106 

$NUMBR= 

000002 

PVPSZ 

000244R 

XSMOWN 

000023 

SQPVC 

OOOOOORG 

PVSTA 

001554R 

XSNLRE 

000052 

$RAD50= 

000016 

PVWSZ 

000266R 

XSNNRE 

000054 

S5TRNG= 

000004 

P$$P45= 

000000 

X$NPL 

000006 

SSUBXP= 

000010 

P$$WRD= 

000000 

X$NPR 

000007 

SXAL0C= 

******  GX 

0$$OPT= 

000010 

XSNRBY 

000032 

SS$FLG= 

177777 

RTSPC  = 

******  GX 

XSNRPK 

000042 

SS$KEY= 

000002 

R$RO  = 

000002 

XSNRRE 

000053 

S$$R  = 

000010 

R$R1   = 

000004 

XSNTBY 

000036 

S$$STA= 

000000 

R$R2  = 

000006 

XSNTPK 

000046 

$$$TI*IP= 

00001 3R    005 

R$R3  = 

000010 

XSPKSZ 

000016 

.PNUMB= 

******  GX 

R$R4  = 

000012 

X$PR 

000011 

.PNUMH= 

******  GX 

R$R5  = 

000014 

XSPRT 

000021 

.PSTCN= 

******  GX 

R$$DER= 

000000 

X$PS 

000010 

.PSTPT= 

******  GX 

R$$K11= 

000001 

X$RPR 

000013 

.TPARS= 

******  GX 
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CFPRDT  -  INITIAL  CONFIG  FILE  SC  MACRO  V?5.0?b  Saturday  29-Jun-85 
LOOK  FOR  RDTSDF  MACRO 


5  11 

00:1 


9  Page  9 


112 
113 
IK 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12^  000000 

125  OOOOOA 

126  000006 

127  000012 

128  000016 

129  000022 

130  000026 

131  000032 

132  000034 

133  000040 

134  000042 
135 

136 
137 
138 
139  000044 


.SBTTL  LOOK  I^OR  RDTSDF  MACRO 

y 
$QRDT  -  LOOK  FOR  RDTSDF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 
R3,R4,R5=DESTROYED 


012705  000000' 
005001 

012702  000000' 

016703  OOOOOOG 

012704  OOOOOOG 

005067  OOOOOOG 

103003 

005367  OOOOOOG 

001401 


ioRDT:: 


20$: 


MOV 

#fiDTDF,R5 

CLR 

R1 

MOV 

#RDTKU,R2 

MOV 

CFGSZ,R3 

MOV 

#CFGBF,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

RETURN 


ERROR  CONDITION 
101$:   EMSG$R  IT 


STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EQ,  YES 


SYNTAX  ERROR 


F  11 
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rFPx29  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00: 
LOCAL  DATA  STORAGE  AND  ERROR  MESSAGES 
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CI 
L( 


65 

6^ 

65  000000 

66 

67 

68 

69 

70 

71 

72 

75  000000 

7^  000056 

75  000076 

76  000152 

n 

78 

79 

80 

81 

82 

85 

8'.  000206 

85  000210 

86 

87  000000 


.S8TTL  LOCAL  DATA  STORAGE  AND  ERROR  MESSAGES 
.PSECT  OATA.D 


ERROR  MESSAGES 


.ENA8L  LC 


NTLERS 
NTLERS 
NTLERS 
NTLERS 


,9A,10,CERR,RTSPC,CFLIN,<occurrence  of   X29SDF> 
,93,10,CERR,RTSPC,CFLIN,<ualue   for  max  circuits> 
,9C,10,CERR,RTSPC,CFLIN,<counter   timer  value> 
,9D,8,CERR,RTSPC,CFLIN,<X.29  data   block   aUocati'on   failure> 


.DSA8L     LC 


LOCAL  STORAGE  FOR  X29SDF  PARAMETERS 


MAXVC : 
CTIMR: 


.3LKW 
.BLKW 


.PSECT 


1 


MAXIMUM  CIRCUITS 
COUNTER  TIMER  VALUE 


F  12 
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LOCAL  DATA 


i  13 

00:20 


8A 

85 

86  000000 

87 

88 

89 

90 

91  000000 

92  000002 
93 

94 

95 

96 

97 

98 

99  000004 
100 
101 
102 

103  OOCOOO 
104 
105 


.S8TTL  LOCAL  DATA 
.PSECT  '-ATA.D 

LOCAL  DATA  FOR  CHNSDF  MACRO 

CHNLLO:  .8LKW   1 
CHNLHI:  .8LKW   1 


LOW  END  OF  CHANNEL  RANGE 
HIGH  END  OF  CHANNEL  RANGE 


ERROR  MESSAGES 

.ENABL  LC 

NTLERS  ,08,8,CERR,RTSPC,CFLIN,<Channel  block  allocation  failure> 

.DSABL  LC 

.PSECT 


F  13 
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CTBIO  -  CETAB  LOADING  ROUTINES  MACRo  V05.03b  Saturday  29-Jun-85 


I  1* 

00:2 


1  Page  5 


55 
54 
55 
56 
57 
58 
59 
60 

61  000000 

62  000000 
63 

M 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 


LIBRARY  MACROS 

.MCALL  HWDDft, LBLDFS, SWSTKS 


■  *** 

;  LIBRARY  SYMBOLS 

;  *** 

HWDDF$ 
LBLDFS 

•: 

•  *** 

;  LOCAL 

MACROS 

;  •»* 

;  SHIFT 

LEFT 

' 

.MACRO 

ASLS    COUNT, REG 

T  DF 

RSSEIS 

ASH 

#'COUNT',REG 

.IFF 

.REPT 

COUNT 

a:L 

REG 

.ENDR 

.ENDC 

.ENDM 

ASLS 

•  *** 

;  LOCAL 

SYMBOLS 

FEATURES  MASK  BIT  DEFINITIONS 
•  TASK  IMAGE  LABFL  BLOCK  OFFSETS 


85 

86 

;  ERROR  CODES  RET 

87 

; 

88  000000 

.ASECT 

89        000002 

,  =2 

90  000002 

ERR2: 

.BLKU   1 

91  000004 

ERR4: 

.BLKW   1 

92  000006 

ERR6: 

.BLKU   ' 

93  0000-0 

ERR8: 

.BLKW   1 

94  000012 

ERR10 

.BLKW 

95  000014 

ERR12 

.BLKW 

96  000016 

ERR14 

.BLKW 

97  000020 

ERR16 

.BLKW   ' 

98  000022 

ERR18 

.BLKW 

99  000024 

ERR20 

.BLKW   ■ 

100  000026 

ERR22 

.BLKW   • 

101  000030 

ERR24 

.BLKW 

102  000032 

ERR26 

.BLKW 

103  000034 

ERR28 

.BLKW 

104  000036 

ERR3C 

.BLKW 

105  000040 

ERR32 

.BLKW 

106  000042 

ERR34 

.BLKW 

107  000044 

ERR36 

.BLKW 

108  000000 

.PSECT 

0=SUCCESS 

OPEN  FAILURE 

GET  ATTRIBUTES  FAILED 

FILE  NOT  CONTIGUOUS 

LABEL  BLOCK  READ  FAILURE 

INVALID  PROCESS  IMAGE 

PROCESS  NOT  BUILT  FOR  APR5  (MAPPED) 

PROCESS  >  4K  WORDS  (MAPPED) 

PROCESS  EXTENSION  >  4K  WORDS  (MAPPED) 

PARTITION  NOT  IN  SYSTEM 

PROCESS/PARTITION  BASE  MISMATCH 

PARTITION  TOO  SMALL 

NOT  COMMON  PARTITION 

PARTITION  BUSY 

CEX  PARTITION  NOT  IN  EXEC  SPACE  (MAPPED) 

SUB-PCB  ALLOCATION  FAILURE  (MAPPED) 

MAIN  PARTITION  TOO  FRAGMENTED  (MAPPED) 

PROCESS  READ  FAILURE 

CETAB  ALLOCATION  FAILURE 


F  U 
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F.LT1ME  -  CALCULATE  ELAPSED  TIME  MACRO  V05.03b  Saturday  29-Jun-85 
Symbol  table 


I  15 

17;A 
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A$$CHK= 
A$$CPS= 
A$$PR1= 
A$tTRP= 
C$$CKP= 
C$$ORE= 
C$$RSH= 
D$$BUG= 
0$$ISK= 
D$$L11= 
D$$YNC= 
0$$YNM= 


000000 
000000 
000000 
000000 
000000 
OOOAOO 
17756A 
1775U 
000000 
000001 
000000 
000000 


ELTIME 

E$$XPR= 

F$$LVL= 

a$$TPP= 

G$$TSS= 

G$$TTK= 

G$$URD= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$L[)C  = 


OOOOOORG 

000000 

000001 

000000 

000000 

000000 

000000 

000000 

000000 

1775A6 

1775A6 

000000 


K$$TP5= 
LD$LP  = 
L$$ASG= 
L$$DRV= 

L$$pn  = 

L$$11fi= 
M$$CRB= 

M$$CRX=: 

M$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR= 


000074 
000000 
000000 
000000 
000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 


N$$ACC= 
N$$BUF= 
NI$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
P$$P45= 
P$$WRD= 
Q$IOPT= 


000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000000 
000000 
000010 


ABS.  000000 
000022 
Errors  detected; 


000 
001 
0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 


R$$DER= 

r$$k;ii  = 

R$$SND= 
R$$11M= 
S$$WRG= 
S$$YSZ= 
T$$KMG= 
T$$MIN= 

v$$crR= 

X$$DBT= 
ZTIM2  = 


000000 
000001 
0000^*0 
OOOC  ) 
OOOCOO 
007600 
000000 
000000 
001000 
000000 
♦♦***«  GX 


»*«  Assembler  statistics 

Work   tile  reads:  0 

Work   tile  writes:  0 

Si2e  of  work  file:  8920  Words   (  35  Pages) 

Size  of  core  pool:  14440  Words   (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

SV:ELTIME!v2![°35?°34]ELT!ME/CR/-SP=Sy:[1  JJRSXMCM.SML/ML,[130J10]NETLIB/ML,[130JO]RSXMCM/PA:1,[135JO:ELT1^ 


CRFATPn  RV   MAfRn  ON  ?9-Jl)N-85  AT  17:42 


PAGE  1 


F  15 


,   E  '6 

LBNIO 

CREATED  BY 

MACRO  ON  2S 

-JUN-85  AT 

00:21 

PAGE  1 

SYMBOL 

CROSS  REFERENCE 

CREF   04.00 

SYMBOL 

VALUE 

REFERENCES 

lO.RLB 

=  ****** 

GX 

6-82 

I$$AS 

=  ****** 

8-13?" 

9-193 

LBNDPB 

0000  K 

R 

#6-81 

10-222 

LS8HRB 

-  t ***** 

GX 

8-146 

MStMGE 

--  000000 

9-169 

PR7 

=  ****** 

GX 

9-172 

RSIllD 

-  ****** 

8-137 

9-193 

R$$11M 

--  000000 

9-169 

STAT 

000002 

R 

#6-76 

7-113 

7-115 

UlSAV 

000000 

R 

#6-71 

•9-175 

9-186 

USARO 

i;  ****** 

GX 

9-173 

9-184 

tCLOPE 

000000 

RG 

#7-112 

SCLOST 

r  ****** 

GX 

7-114 

$IOSB 

000044 

RG 

6-85 

#6-96 

10-224 

$L8N 

000036 

RG 

#6-90 

*7-n6 

*7-117 

•8-146     *8-14 

SLBUF 

000030 

RG 

#6-87 

♦10-221 

SLLEN 

000032 

RG 

#6-88 

«8-133 

SREAD 

000152 

RG 

8-134 

9-l»" 

#10-220 

SREADX 

000060 

RG 

#9-167 

tRLBL 

000026 

RG 

#8-132 

ruFiTPn  HY  MArfin  nM  ?9-i'INI-8S  AT  00:21 
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F  1 

.'FPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-?  00:15  Pago  6 
LOCAL  SYMBOL  DEFINITIONS 


7A 
75 
76 
77 
78 
79 


.SSTTL   LOCAL  SYMBOL  DEFINITIONS 


000040 


LOCAL  SYMBOL  DEFINITIONS 
SPACE  =  AO 


ASCII  SPACE 


CFPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:15  Page  7 


00:1' 


nr  Ai  r\M  A 


CFPCUG  CREATED   BY 

MACRO   CROSS   REFERENCE 


MACRO     ON  29-JUN-85   AT  00:15 


PAGE 
CREF 


F     2 


OA.OO 


MACRO  NAME 

REFERENCES 

CALL 

9-129 
U-343 

12-212 

12-220 

12-254 

13-267 

13-273 

13-275 

13-282 

13-306 

14-338 

CUGDFS 

#5-57 

5-59 

DBGTPS 

#10-U2 

#10-160 

#10-164 

#10-173 

EMSGSR 

#5-57 

9-138 

11-200 

12-225 

13-315 

13-316 

13-317 

ISTATS 

#5-57 

10-142 

MTRANI 

#10-142 

NTLERS 

#5-57 

8-101 

8-102 

8-103 

8-104 

PHRDFS 

#5-57 

5-60 

RESMAP 

#5-69 

13-307 

14-356 

RETC 

#5-57 

13-277 

14-355 

RETURN 

9-133 

11-196 

12-213 

12-221 

12-255 

13-308 

13-311 

14-357 

SAVMAP 

#5-65 

13-279 

14-339 

STATES 

#5-57 

10-146 

#10-149 

#10-152 

#10-155 

#10-158 

#10-162 

#10-166 

#10-171 

#10-175 

SWSTKS 
TRANS 

13-273 
#5-57 
#10-172 

14-338 
#10-147 
#10-173 

#10-150 

#10-153 

#10-156 

#10-159 

#10-160 

#10-163 

#10-164 

#10-167 

G     2 


»F1LE»MD*HFPDSA 
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28b 
287 
288 
289 
290 

291  000346 

292  000352 
295  000556 

294  000362 

295  000564 
296 

297 

298 

299  000566 

300 

301 

302 

505 

504  000374 

305  000400 

306  000404 

307  000410 
508  000412 
509 

510 

511 

312  000414 

313 

514  000422 

515  000424 

316  000430 

317  000454 

518  000456 

519  000440 

520  000444 
321  000450 
522  000452 
525  000456 
324  000460 
525  000464 
326  000466 
527  000472 

328  000474 

329  000500 

550  000502 

551  000504 
352  000506 
555  000510 
334  00C512 
355  000522 
536  000524 

337  000526 

338  000530 

539  0r0532 

540  000534 
341  000:36 
542 


.SBTTL      DSCSDF    ACTION  ROUTINES 


012700 
012702 

103401 


OOOOOOG 
OOCOOOG 


012700 
012702 

103401 


016701 
022701 
103456 
110112 
01670? 
012746 
112205 
122703 
103425 
122705 
101005 
162705 
000402 
162705 
005^16 
001005 
150520 
005216 
000406 

110310 
005316 
005501 
003547 
005226 


OOOOOOG 
OOOOOOG 


OOOOOOG 
000040 


OOOOOOG 
000001 

000106 

000101 

000067 

000060 


;  STORE 

CALL  DATA  MASK 

DCMSK: 

MOV 

#DSCMSK,RO 

MOV 

#DSCMCT,R2 

CALL 

STRHEX 

BCS 

101$ 

RETURN 

;•  ERRORS 

101$: 

EMSG$R 

M3 

;  STORE 

CALL  DATA  VALUE 

DCVAL: 

MOV 

#DSCVAL,RO 

MOV 

*DSCVCT,R2 

CALL 

STRHEX 

BCS 

101$ 

RETURN 

■  ERRORS 

i01$: 

EM5G$R 

M2 

STRHEX: 

SAVRG 

<R5> 

MOV 

.PSTCN.RI 

CMP 

#DSCMX,R1 

BLO 

40$ 

MOVB 

R1,(R2) 

MOV 

.PSTPT,R2 

MOV 

#1,-(SP) 
(R2)t,R3 
#'F,R^ 

10$: 

MOVB 

CMPB 

BLO 

40$ 

CMPB 

#"A,R5 

BHI 

15$ 

sue 

#67, R5 

BR 

17$ 

15$: 

SUB 

#60,fi3 
(SP) 

17$: 

TST 

BNE 

20$ 

BISB 

R5,(R0)+ 

INC 

(SP) 

BR 

30$ 

20$: 

ASL$ 

4,R3 
R3,(R0) 

MOVB 

DEC 

(SP) 

30$: 

DEC 

R1 

BGT 

10$ 

40$: 

INC 

(SP)t 

RESRG 

<R5> 

RETURN 


POINT  TO  CALL  DATA  MASK  STORAGE 

POINT  TO  cALL  DATA  MASK  COUNT 

STORE  THE  HEX  VALUE 

BR  IF  ILLEGAL  VALUE 


ILLEGAL  CALL  DATA  MASK 


POINT  TO  CALL  DATA  VALUE  STORAGE 
POINT  TO  CALL  DATA  VALUE  COUNT 
STORE  THE  HEX  VALUE 
BR  IF  ILLEGAL  VALUE 


ILLEGAL  CALL  DATA  VALUE 

SAVE  R5 

GET  NUMBER  OF  CHARACTERS 

TOO  MANV  CHARACTERS? 

BR  IF  YES 

STORE  HEX  DIGIT  COUNT 

GET  ADDRESS  OF  SPECIFIED  STRING 

INIT  FLAG  (O-LOW  BITS,1-HIGH  BITS) 

GET  CHARACTER 

IS  IT  A  LEGAL  HEX  VALUE? 

BR  Ir  NO 

IS  IT  A  NUMBER? 

BR  IF  YES 

CONVERT  ASCII  HEX  ALPHA  TO  BINARY 

CONTINUE 

CONVERT  ASCII  NUMBER  TO  BINARY 

STORE  IN  LOW  BITS? 

BR  IF  NO 

ELSE  STORE  IN  LOW  FOUR  BITS  OF  BYTE 

SET  FLAG  TO  STORE  IN  HIGH  BITS 

CONTINUE 

MOVE  TO  HIGH  FOUR  BITS 

STORE  HEX  VALUE 

SET  FLAG  TO  STORE  IN  LOW  BITS 

MORE  TO  GET? 

BR  IF  YES 

CLEAN  UP  STACK 

RESTORE  R3 
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U7 

148 

U9 

150 

151  000572 

152 

153 

154 

155 

156  000572 

157  000572 
158 

159  000572 

160  000572 

161  000572 
162 

165  000572 
164  O00572 
165 

166  000572 

167  000572 
168 

169  000572 

17U  000572 

171 

172  000572 

175  000572 

174 

175  000572 

176  000572 
177 

178  000572 

179  000572 
180 

181  000572 

182  000372 
185  000572 
184 

185  000572 
166  000572 
187 

188  000372 

189  000372 

190  000372 
191 

192  000372 


.SBTTL  TPARS  STATE  TAE,LES 
TPARS  STATE  TABLES 

ISTATS  DSTST.DSTKW 


;  DSTSDF  STATE 

TABLES 

STATES 
TRANS 

DSTDF 
5!DSTSDF%,,,1,SYNERR 

STATES 
TRANS 
TRANS 

"X25",DSNM,,DS.X25,DSFLG 
"X29",,,DS.X29,DSPLG 

STATES 
TRANS 

DSNM 

STATES 
TRANS 

SSTRNG,,DSNAM 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SNUMBR,,[)SPRI 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR,,DSOBJ 

SPATES 
TRANS 
TRANS 

lEND.SEXIT 
<'  ,> 

STATES 
TRANS 

SRAD50,,DSTSK 

STATES 
TRANS 
TRANS 

END 
SEOS.SEXIT 
<';>,SEXIT 

TYPE 


;  DESTINATION  NAME 


PRIORITY 


OBJECT  NUMBER 


TASK  NAME 


CF 

MA 

MA 

CA 

DB 
DS 
EM 
IS 
MT 
NT 
PH 
RE 
RE 
RE 
RE 
S« 
SA 
ST 

SU 
TR 


STATES 
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00:16 


p\CT«riC      ATTiriM     Dni;TrMCC 


FPOST     CREATED  BY 
MACRO  CROSS  REFERENCE 


MACRO  ON  29-JUN-85  AT  00:16 


MACRO  NAME 

CALL 

DBGTP$ 

DSTDFS 

EMSGSR 

ISTATS 

MTRANS 

NTLER$ 

PHBDFS 

RESMAP 

RESRG 

RETC 

RETURN 

SAVMAP 

SAVRG 

STATES 

SWSTK$ 
TRANS 


REFERENCES 

8-136 

16-4A2 
#9-151 
#5-60 
#5-60 
#5-61 
#9-151 
#5-60 
#5-60 
#5-72 
#5-60 
#5-60 

8-UO 
#5-68 
#5-60 
#5-61 
#9-185 

14-327 
#5-61 
#9-182 


12-267 
16-449 
#9-161 
5-63 
8-145 
9-151 

7-104 
5-64 
14-343 
10-208 
14-342 
10-225 
14-328 
10-203 
9-156 
#9-188 
15-360 
#9-157 
#9-183 


13 

-291 

13 

-303 

#9- 

183 

#9- 

190 

10 

-229 

11 

-253 

7- 

105 

7- 

106 

15 

-414 

12 

-fn 

IS 

-^61 

11 

-■?kl 

V 

-7U 

15 

-^6S 

12 

-26^ 

#9- 

159 

#9- 

16^ 

#9- 

192 

#9- 

160 

#9- 

161 

#9- 

186 

#y- 

189 

F     5 

PAGE   3 

CREF       04.00 

14-327 

11-254 
7-107 

13-305 
#9-166 


#9-164 
#9-190 


CF 
DT 


14-332 

12-276 
7-108 

14-344 
#9-169 
#9-167 


15-360 

13-309 
7-109 

15-415 
#9-172 
#9-170 


15-361 

13-310 
7-110 

16-450 
#9-175 
#9-173 


15-368 


13-311 


15-413 


#9-178 
#9-176 


#9-181 


#9-179 


♦  •FILF"1D'»CFPDTE 
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317 
318 
319 
320 

321  000510 

322  0003K 

323  000320 

324  000322 

325  000326 

326  000332 

327  00033A 

328  000336 

329  000340 
530 

351 

532 

353 

534  000542 

355 


016700  OOOOOOG 
020027  000006 
101010 

016701  OOOOOOG 
012702  000027' 
112122 

005300 
005575 
000405 


NETWORK  ^IAME 


DTENET: 


10$: 


MOV 
CMP 
BHI 
MOV 
MOV 

Move 

DEC 
BGT 
BR 


.PSTCN.RO 

RO,*DTNMMX 

10l$ 

.PSTPT,R1 

#DTNTNM,P2 

(R1)+,(R2)+ 

RO 

10$ 

DTEEND 


ERRORS 
101$:   EMSG$R  00 


GET  SIZE  OF  SUPPLIED  NAME 

BIGGER  THAN  MAXIMUM? 

BR  IF  YES,  ERROR 

POINT  TO  NAME 

POINT  TO  LOCAL  COPY 

COPY  NAME 

MORE  TO  COPY? 

BR  IF  YES 

ELSE  MERGE  INTO  END  PROCESSING 


ILLEGAL  NETWORK  NAME  PARAMETER 


CFPDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.05b  Saturday  29-Jun-85 
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••F1LE»«ID* 

»CFPPSN 

CCCCCCCC 

FFFFFFFFFF 

pppppppp 

pppppppp 

ssssssss 

cccccccc 

FFFFFFFFFF 

pppppppp 

pppppppp 

ssssssss 

cc 

pp    pp 

PP      PP 

SS 

cc 

pp    pp 

PP      PP 

ss 

cc 

pp    pp 

PP      PP 

SS 

cc 

pp    pp 

PP      PP 

SS 

cc 

FFFFFFFF 

pppppppp 

PPPPPPPP 

ssssss 

cc 

FFFFFFFF 

pppppppp 

PPPPPPPP 

SSSSSS 

cc 

pp 

PP 

ss 

cc 

pp 

PP 

SS 

cc 

pp 

PP 

ss 

cc 

pp 

PP 

ss 

cccccccc 

pp 

PP 

ssssssss 

cccccccc 

pp 

PP 

ssssssss 

LL 

5SSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

SSSSS5 

LL 

ss 

LL 

SS 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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NN 

NN 

NN 

NN 

NNNN 

NNNN 


NN 
NN 
NN 
NN 
NN 
NN 


NN  NN  NN 

NN  NN  NN 

NN  NNNN 

NN  NNNN 

NN  NN 

NN  NN 

NN  NN 

NN  NN 
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356  000572 

357  000600 
358 

359 
360 

361  000602 

362  000610 

363  000616 
364 

365 

016760 

000012' 

00003A 

MOV     PSN 
60$:    RETURN 

;•  ERROR  MESSAGES 

000001 

l01$:  EMSG$R  [)2 
102$:  EMSG$R  P5 
103$:   EMSG$R  P6 

.DSA8L  LSB 

.END 

PSNHI,H$HITS(R0) 


AND  HIGH  TRANSPORT  SU8ADDRESS 


ERROR  -  INVALID  HIGH  SUBADDRESS  VALUE 
ERROR  -  HOME  BLOCK  ALLOCATION  FAILURE 
ERROR  -  PORT  TABLE  ALLOCATION  FAILURE 


6  8. 
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CFPPVC  - 

INUIAL  CONF 

TPARS  STATE  TABLES 

196 

197 

198 

199 

200 

000056 

201 

202 

203 

20^ 

205 

000056 

206 

000056 

207 

208 

000056 

209 

000056 

210 

211 

000056 

212 

000056 

213 

000056 

214 

215 

000056 

216 

000056 

217 

218 

000056 

219 

000056 

220 

221 

000056 

222 

000056 

223 

224 

000056 

225 

000056 

226 

227 

000056 

228 

000056 

229 

000056 

230 

231 

000056 

232 

000056 

233 

000056 

234 

235 

000056 

236 

000056 

237 

000056 

238 

239 

000056 

240 

000056 

241 

000056 

242 

243 

000056 

244 

000056 

245 

000056 

246 

247 

000056 

2^8 

000056 

249 

000056 

250 

251 

000056 

252 

000056 

F  9 
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.SBTTL  TPARS  STATE  TABLES 
TPARS  STATE  TABLES 

ISTATS  PVCST,PCVKU 


PVCSDF  STATE  TABLES 

STATES  PVCDF 
TRANS   XPVCSDF/!,,,1,SYNERR 


STATES 
TRANS 

SRAD50,,PVNAM 

STATES 
TRANS 
TRANS 

ICHKOLM.SEXIT 
<'  ,> 

STATES 
TRANS 

CHNLNO 
SNUMBR,,PVLCN 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR,,PVCT 

STATES 
TRANS 

<■  ,> 

STATES 
TRANS 
TRANS 

"0FF",PSZ 
"ON",PSZ 

STATES 
TRANS 
TRANS 

PSZ 
IEND,SEXIT,PVEND 

STATES 
TRANS 
TRANS 

SNUMBR,WNDSZ,PVPSZ 
SLAMDA 

CHANNEL  IDENTIFICATION 
IGNORE  IF  OLM  CIRCUIT 

LOCiICAL  CHANNEL  NUMBER 
COUNTER  TIMER 


STATE 


STATES  WNDSZ 
TRANS   IEND,SEXIT,PVEND 

TRANS  <',> 

STATES 

TRANS  SNUMBR, OWNER, PVWSZ 

TRANS  SLAMDA 

STATES  OWNER 
TRANS   !END,$EXIT,PVEND 

TRANS  <',> 

STATES 

TRANS  SRAD50,PFlAGS,PVOWN 


PACKET  SIZE 


WINDOW  SIZE 


PROCESS  OWNER 


G  9. 
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CFPPVC  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.05b  Saturday  29-Jun-85  00:18  Page  20-2 
Symbol  table 

001600  001  (RW,I,LCL,REL,CON) 

DATA    000232  002  (RW,D,LCL,REL,C0N; 

SSTATE  0002U  003  (RW.D.LlL.REL.CON) 

SKTAB   000006  004  (RW,D,LCL ,REL,C0N) 

$<STR   000016  005  (RW,D,LCL,REL,CON) 

Errors  detected:  0 

*•*  Assembler  statistics 

Work  file  reads:  0 

Work   f i  le  writes:  0 

Size  of  work  file:  15212  Words  (  60  Pages) 

Size  of  core  pool:  16552  Words   (  63  Pages) 

Operating  system:  RSX-HM/PLUS 

SY:CFPPvr!v2![°3^?°341CFPPVC/CR/-SP=SY:C1  JJRSXMCM.SML/ML,[130J10]NETLI8/ML,[130JO]RSXMCM/PA:1,^ 
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CFPRDT  -  INITIAL  CONFIG  FILE  SC  MACRO  V05 
TPARS  STATE  TABLES 

K1 

U2 

K3 

UA 

145  000052 

K6 

147 

U8 

H9  000052 

150  000052 
151 

152  000052 

153  000052 
154 
155  000052 

151  000052 
157 

158  000052 

159  000052 
160 

161  000052 

162  000052 

163  000052 
164 
165 
166 

167  000052 

168  000052 

169  000052 
170 
171  000052 


F  11 
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.SBTTL 

TPARS  STATE  TABLES 

TPARS  STATE  TABLES 

ISTATS 

RDTST,RDT<W 

RDTSDF 

STATES 
TRANS 

RDTDF 
!£RDTSDF%,,,1,SVNERR 

STATES 
TRANS 

SSTRNCRDNAM 

;  DTE  NAME 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SDJGIT,,RDTEST 

;  START  OF 

STATES  RDTENX 

TRANS  SDJGIT,RDTENX,RDTENO 

TRANS  !END,SEXIT,RDEND 

CHECK  FOR  END  OF  SOURCE  LINE 

STATES  END 

TRANS  <';>,$EXIT 

TRANS  SEOS.SEXIT 

STATES 


END  OF  DTE  ADDRESS 


G  11 
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89 

.SBTTL 

LOOK  FOR  X29$DF  f 

1ACR0 

90 
91 
92 
93 
9A 

$QX29 

-  LOOK 

FOR  X29$DF  MACRO 

INPUTS: 

95 
96 
97 

NONE 

OUTPUTS: 

98 

C-BIT  = 

JUCCESS/FAILURE 

99 

R3,R4,R5=DESTROYED 

100 
101 
102  000000 

- 

012705 

000000' 

BQX29:: 

MOV 

#X29DF,R5 

STATE  TABLE  ADDRESS 

103  000004 

005001 

CLR 

R1 

FULL  KEYWORD  MATCH  LENGTH 

10A  000006 

012702 

000000' 

MOV 

#X29KW,R2 

KEYWORD  TABLE  ADDRESS 

105  000012 

016703 

OOOOOOG 

MOV 

CFGSZ,R3 

RECORD  LENGTH 

106  000016 

012704 

OOOOOOG 

MOV 

#CFGBF,R4 

RECORD  BUFFER  ADDRESS 

107  000022 

005067 

OOOOOOG 

CLR 

SVNERR 

CLEAR  SYNTAX  ERROR  FLAG 

108  000026 

CALL 

.TPARS 

GO  DO  THE  PARSE 

109  000032 

103003 

BCC 

20$ 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

110  000034 

005567 

OOOOOOG 

DEC 

SYNERR 

DID  SYNTAX  ERROR  OCCUR? 

111  000040 

001401 

BEQ 

101$ 

IF  EQ,  YES 

112  000042 

20$: 

RETURN 

113 

114 

115 

;  ERROR 

CONDITION 

117  000044 

i01$: 

EMSGSR 

IT 

SYNTAX  ERROR 

G  12. 
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FPX3P  -  INPiAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:20  Page  8 
LOOK,  FOR  "''SCF  MACRO 


107 
108 
109 
110 
111 
112 
113 
1U 
115 
116 
117 
118 
119 
120 

121  000000 

122  00000'. 

123  000006 
12A 

125  000012 

126  000014 

127  000020 

128  00002A 

129  000030 

130  000034 

131  000040 

132  000042 

133  000046 

134  000050 
135 

136 

137 

138 

139  000052 

140 

141 


.SbTTL  LOOK  FOR  ♦♦♦$DF  MACRO 


Q«**  -  LOOK  FOR  ***$DF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-8IT=SUCCESS/FA1LURE 
R3,R4,R5=DESTROYED 


012705 
000402 
012705 

005001 
012702 
016703 
012704 
005067 

103003 
005367 
001401 


000000' 
000036" 


000000' 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 


.ENABL 

LS8 

$QX3P:: 

MOV 

#X3PDF,R5 

BR 

10$ 

$QCHN:: 

MOV 

#CHNDF,R5 

10$: 

CLR 

R1 

MOV 

#X3PKW,R2 

MOV 

CFGSZ,R3 

MOV 

#CFGBF,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SVNERR 

BEQ 

101$ 

20S: 

RETURN 

;  ERROR 

CONDITION 

101$: 

EMSGSR 

IT 

.DSA8L 

LSB 

STATE  TABLE  ADDRESS 

STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EQ,  YES 


;  SYNTAX  ERROR 


G  13 


CFPX3P  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:20  Page  9 


F  U 
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110 
111 
112 
113 
1U 
115 
116 
11? 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 


000000 


000000 
000000 


000000 
000000 


■  *** 

;  LOCAL  DATA 

.PSECT  DATA.D 

•  ERROR  ;NDICAT]0N 
fRROR:   .BLKW   1 

.PSECT   ..3UF,0 

;  DISK  BUFFER  FOR  LABEL  BLOCK  READ 
6sKaUF:  .BLKW   1 
.PSECT 


G  U 
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ELTIME     CREATED  BY  MACRO  ON  29-JUN-85  AT  17:42     PAGE  1 

SYMBOL  CROSS  REFERENCE  CREF   04.00 

SYMBOL   VALUE  REFERENCES 

ELTLIE    000000  RG     #5-75 
ZTIM2   =  •»•«•«  GX     5-74 


G  15 

ropiTFri  Rv     MArpn     nw   PQ-iiiNi-aS    AT    17:42  PAGE   ? 


LBNIO  CREATED  BY     MACRO     ON  29-J'jN-85   AT   00:21  PAGE 

MACRO   CROSS  REFERENCE  CREF 

MACRO  NAME  REFERENCES 


CALL 

7-1U 

8-1  3A 

D1R$ 

#5-59 

10-222 

0!0W$ 

#5-59 

Rt  "URN 

7-118 

8-U9 

5WST<$ 

9-171 

9-183 

9-171 


9-177 


9-180 
9-189 


F  16 

OA.OO 

9-183 
10-227 


G  16 


»»F  II  F««in*.i  niiir 
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LOCAL  DATA 


Page  7 


81 

82 

83 

84 

85 

86  000000 

87 

QQ 

89  000000 

90 

91  000005 

92 

93  000012 

9A  OOOOU 

95 


OOOOOA 
OOOCIT 


.SBTTL  LOCAL  DATA 


LOCAL  DATA  FOR  CUGSDF  MACRO 

.PSECT  DATA.D 
.NLIST  BEX 

CUGNAM:  .BLKB   6 

CUGNLN  ^  4 
CUGNUM:  .BLKB   CUGNLN 

CUGEND=.-1 
CUGPCK:  .BLKB   CUGNLN/2 
CUGFLG:  .BLKB   1 

.EVEN 


LLOSED  USER  GROUP  NAME 
MAXIMUM  DIGITS  IN  CUG  NUMBER 
CLOSED  USER  GROUP  NUMBER 
END  0  :UG  NAME 
CUG  NUMBER  IN  BCD  FORMAT 
FLAGS  BYTE 


H  1 
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Page  8 


•♦F1LE«»ID'«CFPDSA 


G  2 


CCCCCCCC   F 

FFFFFFFFF 

pppppppp 

DDDDDDDD 

SSSSSSSS 

AAAAAA 

CCCCCCCC   F 

FFFFFi-fFF 

pppppppp 

DDDDDDDD 

SSSSSSSS 

AAAAAA 

CC          F 

PP      PP 

DD 

DD 

SS 

AA      AA 

CC          f 

PP      PP 

DD 

DD 

SS 

AA     AA 

CC          F 

PP      PP 

DD 

DD 

SS 

AA     AA 

CC          F 

PP      PP 

DD 

DD 

SS 

AA     AA 

CC          F 

FFFFFFF 

pppppppp 

DD 

DD 

SSSSSS 

AA     AA 

CC          F 

FFFFFFF 

ppppppop 

DD 

DD 

SSSSSS 

AA      AA 

C          f 

PP 

DD 

DD 

SS 

AAAAAAAAAA 

CC          F 

PP 

DD 

DD 

SS 

AAAAAAAAAA 

CC          F 

PP 

DD 

DD 

SS 

AA      AA 

CC          F 

PP 

DD 

DD 

SS 

AA      AA 

CCCCCCCC   F 

PP 

DDDDDDDD 

SSSSSSSS 

AA      AA 

CCCCCCCC   F 

PP 

DDDDDDDD 

SSSSSSSS 

AA      AA 

SSSSSSSS 

TTTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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DSCtDF  ACTION  ROUMNES 


3A3 


000001 


.END 


H  3 
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CFPDST 
DSTSDF 


-  INITIAL  CONFIG  FIlE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
ACTION  ROUTINES 


00:16 


Page  10 


19A 
195 
196 
197 
198 

199  000372 

200  000376 

201  000A02 

202  OOOAOA 

203  000410 
20A  000A12 

205  000416 

206  000422 

207  OO0A24 

208  000426 

209  000430 

210  000434 

211  000436 

212  000440 

213  000442 

214  000446 

215  000452 

216  000456 

217  000460 

218  000462 

219  000466 

220  000472 

221  000476 

222  000504 

223  000510 

224  000514 

225  000520 
226 

227 
228 
229  000522 


.SBTTL   DSTSDF  ACTION  ROUTINES 


016702 
022702 
103447 
012700 

012701 
112720 
005301 
003374 

016701 
112120 
005302 
003375 
012702 
012701 
112721 
005302 
003374 
005067 
005067 
005067 
012767 
105067 
105067 
105067 


OOOOOOG 
000006 

OOOOOOG 

000006 
000040 


OOOOOOG 


OOOOOOG 
OOOOOOG 
000040 


DESTINATION  NAME 


DSNAM: 


10$: 


20$: 


30$: 


OOOOOOG 

000002G 

OOOOOOG 

177777  OOOOOOG 

OOOOOOC 

OOOOOOG 

OOOOOOG 


CMP 

BLO 

MOV 

SAVRG 

MOV 

MOVB 

DEC 

BGT 

RESRG 

MOV 

MOVB 

DEC 

BGT 

MOV 

MOV 

MOVB 

DEC 

BGT 

CLR 

CLR 

CLR 

MOV 

CLRB 

CLR8 

CLRB 

RETURN 


.PSTCN,R2 

#DSNAMX,R2 

101$ 

#DSTNAM,PO 

<R0> 

#DSNAMX,R1 

#SPACE,(RO)+ 

Rl 

10$ 

<R0> 

.PSTPT,R1 

(R1)+,(R0)+ 

R2 

20$ 

#CUNMMX,R2 

#DSACUG,R1 

#SPACE,(R1)+ 

R2 

30$ 

DSTTSK 

DSTTSK+2 

DSASLO 

#-1,DSASHl 

DSCMCT 

DSCVCT 

DSARCT 


ERRORS 
101$:   EMSG$R  N4 


GET  NUMBER  OF  CHARACTERS  MATCHED 

LEGAL  DESTINATION  NAME? 

BR  IF  NO 

POINT  TO  STORAGE  FOR  DESTINATION  NAME 

SAVE  IT 

GET  LENGTH  OF  NAME 

INITIALIZE  DESTINATION  NAME 

MORE  TO  INITIALIZE? 

BR  IF  YES 

RECOVER  DESTINATION  NAME  ADDRESS 

GET  ADDRESS  OF  SPECIFIED  NAME 

STORE  SPECIFIED  NAME 

MORE  TO  STORE? 

BR  IF  YES 

GET  LENGTH  OF  CUG  NAME 

GET  ADDRESS  OF  CUG  NAME  STORAGE 

INITIALIZE  TO  SPACES 

MORE  TO  INITIALIZE? 

BR  IF  YES 

ASSUME  NO  TASK  NAME 

DEFAULT  LOW  SUBBADDRESS  TO  ZERO  _^ 
ASSUME  NO  SUBADDRESS  RANGE      "* 
CLEAR  CALL  DATA  MASK  COUNT 
CLEAR  CALL  DATA  VALUE  COUNT 
CLEAR  REMOTE  DTE  ADDRESS  COUNT 


ILLEGAL  DESTINATION  NAME 


H  4 
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»«FU.F'MD»»CFPDTE 


G     5 


CF 
Dl 


CCCCCCCC   F 

FFFFFFFFF 

PPPPPPPP 

DDDDDDDD 

TTTTTTTTTT 

EEEEEEEEEE 

CCCCCCCC   F 

FFFFF-^FFF 

PPPPPPPP 

DDDDDDDD 

TTTTTTTTTT 

EEEEEEEEEE 

CC          F 

pp      PP 

DD 

DD 

EE 

cr       F 

PP      PP 

DD 

DD 

EE 

CC         F 

PP      PP 

DD 

DD 

EE 

CC          F 

PP      PP 

DD 

DD 

EE 

CC           F 

FFFFFFF 

PPPPPPPP 

DD 

DD 

EEEEEEEE 

CC          F 

FFFFFFF 

PPPPPPPP 

DD 

DD 

EEEEEEEE 

CC          F 

PP 

DD 

DD 

EE 

CC          f 

PP 

DD 

DD 

EE 

CC          F 

PP 

DD 

DD 

EE 

CC          F 

PP 

DD 

DD 

EE 

CCCCCCCC   F 

PP 

DDDDDDDD 

EEEEEEEEEE 

CCCCCCCC   F 

PP 

DDDDDDDD 

EEEEEEEEEE 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

_L 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLl 

ssssssss 

T7 

LLLLLLLLLL 

ssssssss 

TT 
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DTESDF  ACTION  ROUTINES 


Page  15 


CF 
Ta 


337 

338 

;  END 

OF  [)TE$DF 

MACRO 

339 

340  000350 

DTEEND 

:  CALL 

CHKDTE 

341  000354 

103561 

ecs 

101$ 

342  000356 

020427 

000020 

CMP 

R4,*NUHDTE 
lOU 

343  000362 

103167 

SHIS 

344  000364 

30$: 

CALL 

CHKDEV               ; 

345  000370 

346 

347  000372 

103556 

BCS 

102$ 

016^01 

OOOOOOG 

MOV 

HSHSZ,R1 

348  000376 

006301 

ASL 

Rl 

349  000400 

006301 

ASL 

R1 

350  000402 

351 

352  000406 

062701 

000122 

ADD 

#L$LEN,R1 

SWSTK$ 

120$               ;; 

353  000412 

CALL 

$XAL0C 

354  000416 

103006 

BCC 

40$ 

355  000420 

RETC 

RO 

356  000432 

357 

358  000434 

000527 

BR 

110$               ;; 

40$: 

SAVMAP 

359  000440 

010067 

OOOOOOG 

MOV 

RO.DTEDES             ':': 

360  000444 

010046 

MOV 

R0,-(SP) 

361  000446 

CALL 

$CEACX               ;; 

362  000452 

012603 

MOV 

(SP)+,R3            ;; 

363  000454 

010302 

MOV 

R3,R2 

(rJ)  + 

364  000456 

105022 

42$: 

CLRB 

365  000460 

005301 

DEC 

Rl 

366  000462 

003375 

BGT 

42$ 

367 

368  000464 

010301 

MOV 
ADD 

R3,R1 

#L$DTEA,R1            ;; 

369  000466 

062701 

000020 

370  000472 

012702 

000010 

MOV 

#<DTEALNt1>/2,R2 

371  000476 

012705 

000017- 

MOV 

*DTEPCK,R5            ;; 

372  000502 

112521 

45$: 

M0V6 

(R5)+,(R1)t 

373  000504 

005302 

DEC 

R2                ;; 

374  000506 

003375 

BGT 

45$         ,       ; ; 

375  000510 

116763 

OOOOOOG  000017 

MOVB 

COUNT, L$DTEL(R3)        ;; 

376 

377  000516 

010301 

MOV 

R3  .Rl 
#L$NETW,R1 

378  000520 

062701 

000114 

ADD 

MOV 

379  000524 

012702 

000006 

*DrNMMX,R2 

380  000550 

012705 

000027' 

MOV 

#DTNTNM,R5 

381  000534 

112521 

50$: 

MOVB 

(R5)+,(Rl)t 

382  000536 

005302 

DEC 

R2 

383  000540 

384 

385  000542 

003375 

BGT 

50$                 ;. 

110463 

000004 

MOVB 

R4,L$SLN(R3) 

386  000546 

006304 

ASL 

R4 

387  000550 
389  000554 

017702 

OOOOOOG 

MOV 

aLLCTA,R2 

060204 

ADD 

R2,R4 

390  000556 

111463 

000016 

MOVB 

{R4),L$LLCH(R3) 

391  000562 

016763 

OOOOOOG  000040 

MOV 

CT1M,L$CTIM(R3)        ;, 

392  000570 

016700 

OOOOOOG 

MOV 

ZTIME.RO             ;, 

393  000574 

062700 

000002 

ADD 

#2,R0 

CHECK  FOR  VALID  DTE  ADDRESS 
ERROR  -  DUPLICATE  DTE  ADDRESS 
MAXIMUM  DTES  ALREADY  DEFINED? 
YES-  THIS  ONE  IS  TOO  MANY 
CHECK  IF  LINE  EXISTS 
BR  IF  LINE  NOT  IN  SYSTEM 

GET  NUMBER  OF  ENTRIES  IN  HASH 
TIMES  4  TO  GET 
SIZE  IN  BYTES 
PLUS  DTE  SIZE  GETS  TOTAL  SIZE 

ENTER  SYSTEM  STATE 

ALLOCATE  BLOCK  FROM  EXTENDED  POOL 

BR  IF  SUCCESSFUL  ALLOCATION 

SET  USER  C-BIT 

AND  EXIT 

SAVE  CURRENT  MAPPING 

SAVE  DTE  DESCRIPTOR  ADDRESS 

GET  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

SAVE  MAPPED  ADDRESS 

POINT  TO  DTE  DESCRIPTOR  BLOCK 

INITIALIZE  BLOCK 

MORE  TO  INITIALIZE? 

BR  IF  YES 

GET  ADDRESS  OF  DTE  DESCRIPTOR  BLOCK 

POINT  TO  DTE  ADDRESS  FIELD 

GET  LENGTH  OF  ADDRESSS  FIELD 

GET  ADDRESS  OF  SPECIFIED  ADDRESS 

STORE  DTE  ADDRESS 

MORE  TO  STORE? 

BR  IF  YES 

STORE  DTE  ADDRESS  LENGTH 

GET  ADDRESS  OF  BLOCK 

POINT  TO  NETWORK  NAME  FIELD 

GET  LENGTH  OF  NAME 

POINT  TO  SPECIFIED  NAME 

STORE  NETWORK  NAME 

MORE  TO  STORE? 

BR  IF  YES 

STORE  SYSTEM  LINE  NUMBER 
GET  SYSTEM  LINE  NUMBER  X  2 
POINT  TO  REVERSE  MAPPING  lABLE 

INDEX  INTO  REVERSE  MAPPING  TABLE 
STORE  CHANNEL  NUMBER 
STORE  COUNTER  TIMER 
GET  TIMER  ADDRESS 
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CFPPSNj  -  INITIAL  CONFIG  FRF  SC  MACRO  V05.03b  Saturday  29-Jun-85 
Table  o*-  contents 


00:17 


s- 

55 

MACRO  DEFINITIONS 

6- 

«0 

LOCAL  SYMBOLS 

l- 

96 

LOCAL  DATA 

H- 

113 

ERROR  MESSAGES 

4- 

131 

LOOK  FOR  PSNSDF  MACRO 

10- 

160 

TPARS  STATE  TABLES 

11- 

210 

PSN$DF  ACTION  ROUTINES 
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CFPPSN 

-  INITIAL  CONFIG 

FILE  SC 

MACRO  V05.03b 

Saturday  2 

Symbol 

table 

A$$CHK= 

000000 

HSDST 

000012 

K$$TPS= 

A$$CPS= 

000000 

H$D29 

000014 

LDSLP  = 

A$$PR1= 

000000 

HSFLG 

000000 

L$$ASG= 

A$$TRP= 

000000 

HSGLEN 

000104 

L$$DRV= 

CERR  = 

******  GX 

H$GLT 

000044 

L$$P11= 

CFGBF  = 

******  GX 

HSGNAH 

000050 

L$$11R= 

CFGS2  = 

***«*.  GX 

H$GNML= 

000020 

H$$CRB= 

CFLIN  = 

******  GX 

HSGPT 

000046 

M$$CRX= 

CHKSUB 

000276R 

HSHITS 

000034 

M$$FCS= 

C$$CKP= 

000000 

HSHLEN 

000044 

M$$MGE= 

C$$ORE= 

OOOAOO 

HSLBDA 

000070 

|V|$$NET  = 

C$$RSH= 

17756A 

HSlBDN 

000072 

M$$OVR= 

D$$BUG= 

1775U 

HSLDTE 

000002 

N$$ACC= 

D$$ISK= 

000000 

H$LEN 

000042 

N$$BUF= 

D$IL11= 

000001 

HSLOTS 

000032 

N$$LDV= 

D$$YNC= 

000000 

HSNETW 

000024 

N$$MCP= 

D$SYNM= 

000000 

H$NML  = 

000006 

N$$MLL= 

END 

0001 04R 

003 

HSNPT 

000022 

N$$M0V= 

E$$XPR= 

000000 

H$PTB 

000020 

N$$NCT= 

FMT10  = 

******  GX 

H$PVC 

000006 

N$$PEM= 

FMT8  = 

******  GX 

HSRDTE 

000004 

PNAI»IMX= 

FM.10  = 

000000 

H$RNW 

000042 

PORT 

FM.8  = 

000000 

HSSVC 

000036 

PORTMX= 

F$$LVL= 

000001 

H$TRB 

000016 

PORTNO= 

G$$TPP= 

000000 

HSXAVL 

000100 

PSHI 

G$$T5S= 

000000 

HSXBIA 

000074 

PSIPT  = 

G$$TTK= 

000000 

H$X29C 

000040 

PSLO 

G$$WRD= 

000000 

I$$RAR= 

000000 

PSNDF 

HF$DLM= 

000002 

l$$RDNi 

000000 

PSNEND 

HF$GUY= 

000010 

KSAR5  = 

******  GX 

PSNFG 

HF$HOS= 

000004 

^..:NT= 

=  177546 

PSNFLG 

HF$XDF= 

000020 

K$$CSR= 

:  177546 

PSNHI 

HSCUG 

000010 

K$$LDC= 

■  000000 

PSNKW 

.  ABS. 

000104 

000 

(RW,i,GBL,ABS,0\/R) 

000624 

001 

(RW,I,LCL,REL,C0N) 

DATA 

000370 

002 

(RW,D,LCL,REL,CON) 

SSTATE 

OOOIK 

003 

(RW,D,LCL,REL,C0N) 

SKTAB 

000002 

004 

(RW,D,LCL,REL,CON) 

SKSTR 

000007 

005 

(RW,D,LCL,REL,C0N) 

Errors 

detected: 

0 

G    8. 


***   Assembler   statistics 


000074 

PSNLO 

00001  OR 

002  $CEACX= 

******  GX 

000000 

PSNNAM 

OOOOOOR 

002  $DIGIT= 

000024 

000000 

PSNNM 

000052R 

$DNUMB= 

000014 

000000 

PSNSHI 

000330R 

$E0S  = 

000012 

000001 

PSNSLO 

000242R 

SERRDI 

000274R 

002 

000000 

PSNST 

OOOOOORG 

003  $ERRD2 

000332R 

002 

000124 

P$$P45= 

000000 

SERRPI 

000014R 

002 

000000 

P$$WRD= 

000000 

$ERRP2 

000052R 

002 

000000 

Q$$OPT= 

000010 

$ERRP3 

000100R 

002 

000000 

RTSPC  = 

******  GX 

$ERRP4 

0001 30R 

002 

000000 

R$RO  = 

000002 

$ERRP5 

000154R 

002 

000000 

R$R1   = 

000004 

$ERRP6 

000226R 

002 

000001 

R$R2  = 

000006 

$ERR1T= 

******  GX 

000001 

R$R3  = 

000010 

$EXIT  = 

000000 

000001 

R$R4  = 

000012 

$FAIL  = 

Mim 

000001 

R$R5  = 

000014 

$HEADR= 

******  GX 

000001 

R$$DER= 

000000 

$LAMDA= 

000000 

000010 

R$$K11= 

000001 

$NUMBR= 

000002 

000001 

R$$SND= 

000000 

SQPSN 

OOOOOORG 

000001 

R$$11M= 

000000 

$RAD50= 

000016 

000006 

SPACE  = 

000040 

$STRNG= 

000004 

000160R 

SUeAMX= 

******  GX 

$SUBXP= 

000010 

000400 

SYNERR= 

******  GX 

$XALOC= 

««♦*♦*  GX 

******  GX 

S$$WRG= 

000000 

$$$FL6= 

177777 

000076R 

003 

S$$YSZ= 

007600 

$$$KEY= 

000000 

******  GX 

T$$KMG= 

000000 

$$$".  = 

000010 

000054R 

003 

T$$MIN= 

000000 

$$$STA= 

000000 

OOOOOOR 

003 

V$$CTR= 

001000 

$$$TMP= 

OOOOOOR 

005 

000356R 

X$$DBT= 

000000 

.PNUMB= 

*♦*»»*  GX 

000216R 

$ALL16= 

******  GX 

.PNUMH= 

******  GX 

000006R 

002 

$ALPHA= 

000022 

.PSTCN= 

******  GX 

000012R 

002 

$ANY  = 

000020 

.PSTPT= 

******  GX 

OOOOOORG 

004 

$BLANK= 

000006 

.TPARS= 

******  GX 

0 

0 

13027  Words 

14440   Words 

RSX-11M/PLUS 


Wor,  file  reads: 
Work  file  writes: 
S'ze  of  work  file: 
Size  of  core  pool : 
Operating     system: 
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CFPPVC  -  INITIAL  CONFIG  FILE  SC 
TPARS  STATE  TABLES 

253  000056 
25A 

255  000056 

256  000056 

257  000056 
258 

259  000056 

260  000056 

261  000056 
262 

263  000056 

264  000056 

265  000056 
266 
267 
268 

269  000056 

270  000056 
271 

272  000056 

273  000056 

275  000056 

276  000056 
277 

278  000056 

279  000056 
280 

281  000056 

282  000056 
283 
284  000056 
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TRANS   SLAHDA 


STATES 
TRANS 
TRANS 

PFLAGS 
IEND,SEXIT,PVEND 

STATES 
TRANS 
TRANS 

SNUMBR.END.PVFG       ;  FLAGS  BYTE 
SLAMDA 

STATES 
TRANS 
TRANS 

END 
SEOS.SEXIT 
<';>,SEXIT 

;•  CHECK  FOR  OLM 

CIRCUIT  NAME  -  SUBEXPRESSION 

STATES 
TRANS 

CHKDLM 
'-,,PVDLM 

STATES 
TRANS 

SDNUMB,,PVCTL 

STATES 
TRANS 

1 

STATES 
TRANS 

$DNUMB,,PVSTA,PF.DLM,FLAG 

STATES 
TRANS 

<',>,$EXIT 

STATES 
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CFPPVC     CREATED  BV  MACRO  ON  29-JUN-85  AT  00:19 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


ALLXtB 

BIASX 

BLKSZD 

CERR 

CFGBF 

CFGSZ 

CFLIN 

CHKBLK 

CHKPVC 

CH<WND 

CHNLMX 

CSDTE 

CSFLG 

CILCN 

C$LEN 

CSNAM 

CSPORT 

DLMCTL 

DLMIND 

DLMPDV 

DLMSLT 

DLMSTA 

OLMUNT 

DTEDES 

FLAG 

FMT10 

FMT8 

FM.IO 

FM.8 

FNDHSH 

FNDPDV 

FNDPRT 

HSHADD 

HSHSZ 

H$PT8 

HSPVC 

INIXCB 

INVCIR 

KSAR5 

LNKEND 

N$$VCT 

PCVKW 

PDVID 

PDVTA 

PF.DLM 

PORTNO 

PRTADD 

PSIPT 

PVCCTM 

PVCDF 

PVCFLG 

PVCLCN 


000640  R 
00U26  R 

~  ****** 

~  ****** 

=  ****** 

=  ****** 

=  ****** 

-  ****** 

000742  P 

-  ****** 
=   ****** 

000012 
000015 
000010 
000016 
000002 
000014 

000032  R 
000035  R 
000014  R 
000016  R 
000034  R 

000033  R 

=      ****** 

000020  R 

=      ****** 
::  ****** 

=  000000 
=  000000 
001316  R 

=L        ****** 

001 04A  R 

-  ****** 
=  ****** 

000020 
000006 
001132  R 
001536  R 
=  »♦»«♦♦  GX 
=  »*»♦«*  GX 

r  ****** 

000000  RG 
=  ******  GX 

r  ******   GX 

=  000001 

-  ******  GX 
000000  R 

=  ******  GX 
000004   R 
000000  R 
000025  R 
000002  R 


GX 


GX 


GX 
GX 


REFERENCES 

13-430 

17-580 

11-304 

8-156 

9-183 

9-182 

8-156 

12-346 

13-401 

12-358 

11-321 
*1 3-424 
•13-422 
*13-423 

13-403 

13-416 
.13-429 
#7-141 
#7-144 
#7-134 
#7-135 
#7-143 
#7-142 

13-424 
#7-136 

g-156 

8-159 
#8-156 
#8-159 

14-470 

14-474 

13-425 

18-627 

18-621 

14-465 

13-434 

14-469 

20-677 

13-406 

13-435 

13-409 

9-181 

20-681 

20-686 
#7--137 

16-549 
#7-128 

13-433 
#7-130 

9-179 
#7-139 
#7-129 


#14-461 
#19-654 

8-157 


8-157 
#15-496 


15-509 

♦20-700 
»20-685 
♦20-687 

♦20-702 

17-584 
♦9-178 
8-157 

#8-157 

#18-615 

#16-535 

18-631 
16-537 
15-497 
#17-571 
20-690 
13-436 

13-427 
#10-200 


14-468 

14-464 

♦11-335 

•11-307 
♦11-323 


8-158 
8-158 
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8-159 
8-159 


18-616 
8-158 
#8-158 


#20-695 
15-500 

13-452 


♦16-546 
15-496 
17-585 

♦12-589 
15-425 


20-704 
15-515 

15-514 


16-556 


15-422 
17-586 


20-706 
16-555 

20-685 


16-552 


18-615 


18-658 


18-620 


18-636 


CFPPVC 
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173 

.SBTTL 

RDTSDF  ACTIO 

174 
175 
176 
177 
178  000052 

;  REMOTE  DTE  NAME 

016700 

OOOOOOG 

RDNAM:   MOV 

.PSTCN,RO 

179  000056 

012702 

000006 

MOV 

#RDTEMX,R2 

180  000062 

020002 

CMP 

R0,R2 

lols 

181  000064 

101016 

BHI 

182  000066 

012701 

000000' 

MOV 

#RDTNAM,R1 

183  000072 

112721 

000040 

5$:     MOVB 

#SPACE,(R1)+ 

184  000076 

005302 

DEC 

R2 

185  000100 

003374 

BGT 

5S 

186  000102 

012701 

000000' 

MOV 

#RDTNAM,R1 

187  000106 

016702 

OOOOOOG 

MOV 

.PSTPT,R2 

188  000112 

112221 

1 0$ :    MOVB 

(R2)+,(R1)t 

189  000114 

005300 

DEC 

RO 

190  000116 

003375 

BGT 

10$ 

191  000120 

RETURN 

192 

193 
194 
195  000122 

;  ERRORS 

101$:   EMSGSR 

LO 

196 
197 
198 

;  START  OF  REMOTE  DTE  ADDRES 

199 

200  000130 

012700 

000017 

RDTEST:  MOV 

#RDTLN,RO 

201  000134 

012701 

000006' 

MOV 

#RDTE,R1 

202  000140 

105021 

10$:    CLRB 

(R1)  + 

203  000142 

005300 

DEC 

RO 

204  000144 

003375 

BGT 

10$ 

205  000146 

105067 

OOOOOOG 

CLRB 

COUNT 

206  000152 

012767 

000006' 

OOOOOOG        MOV 

#RDTE,NEXT 

207  000160 

CALL 

STRNXT 

208  000164 

RETURN 

209 
210 
211 
212 
213  000166 

;  PROCESS  REMOTE  DTE  DIGIT 

026727 

OOOOOOG 

000024'  RDTENO:  CMP 

NEXT,#RDTEN 

214  000174 

101003 

BHI 

101$ 

215  000176 

CALL 

STRNXT 

216  000202 

RETURN 

217 

218 

219 

220  000204 

;  ERRORS 

ioi$:   EMSGSR 

Li 

GET  NUMBER  OF  CHARACTERS  SPECIFIED 

GET  MAXIMUM  ALLOWED 

LEGAL  NAME  LENGTH? 

BR  IF  NO 

POINT  TO  REMOTE  DTE  NAME  STORAGE 

FILL  WITH  SPACES 

MORE  TO  PAD? 

BR  IF  YES 

POINT  TO  REMOTE  DTE  NAME  STORAGE 

POINT  TO  SPECIFIED  NAME 

STORE  SPECIFIED  REMOTE  DTE  NAME 

MORE  TO  STORE? 

BR  IF  YES 


ILLEGAL  REMOTE  DTE  NAME 


GET  LENGTH  OF  REMOTE  DTE  ADDRESS 

GET  ADDRESS  OF  BUFFER 

INITIALIZE  BUFFER 

MORE  TO  INITIALIZE? 

BR  IF  YES 

INITIALIZE  DIGIT  COUNT 

START  STORING  AT  BEGINNING  OF  BUFFER 

STORE  CHARACTER 


TOO  MANY  DIGITS? 

BR  IF  YES 

STORE  NEXT  DIGIT 


ILLEGAL  REMOTE  DTE  ADDRESS 
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CFPX29  -  fONFlG  FILE  ACT 
TPAR5  STATE  TABLES 

119 

120 

121 

122 

123  000052 

12A 

125 

126 

127  000052 

128  000052 
129 

130  O0U052 

131  000052 
132 

133  000052 
13A  000052 
135 

136  000052 

137  000052 
•"38 

139  000052 

140  000052 
141 
142 
143 

144  000052 

145  000052 

146  000052 
147 
148  000052 


G  12 

ION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  00:20  Page  8 

.SBTTL  TPARS  STATE  TABLES 
TPARS  STATE  TABLES 

ISTATS  X29ST,X29KW 

X29$DF 

STATES  X29DF 

TRANS  5!X29SDF%,,,1,SYNERR 

STATES 

TRANS  SNUM8R,,X29MXC 

STATES 

TRANS  <',> 

STATES 

TRANS  SNUM6R,,X29CTM 

STATES 

TRANS  IEND,SEXIT,X29END 

CHECK  FOR  END  OF  SOURCE  LINE 

STATES  END 

TRANS  <';>,SEXIT 

TRANS  SEOS.SEXIT 

STATES 


MAXIMUM  CIRCUITS 


COUNTER  TIMER 
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CFPX3P  -  INITIAL  CONfIG  TILE  SC  MACRO  V05 
TPARS  STATE  TABLES 

U5 

1A4 

U5 

1A6 

H7  000060 

H8 

U9 

150 

151 

152  000060 

153  000060 
IS'. 

155  000060 

156  000060 
157 

158  000060 

159  000060 
160 

161  000060 

162  000060 
163 

16A  000060 
165  000060 
166 

167  000060 

168  000060 
169 

170  000060 

171  000060 
172 

•■73  000060 
17A   000060 


00:20 
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.S8TTL   TPARS  STATE  TABLES 
TPARS  STATE  TABLES 

ISTATS  X3PST,X3PKW 


X3PSDF 


STATES  X3PDF 
TRANS   !!X3P$DF%,,,1,SYNERR 


STATES 
TRANS 

SNUMBR,,BLK[)EF 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SNUMBR,,BLKMAX 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR,,WNDDEF 

STATES 
TRANS 

<'  .> 

STATES 
TRANS 

SNUM8R,SEXIT,WN[)MAX 

DEFAULT  BLOCK  SIZE 


MAXIMUM  BLOCK  SIZE 


DEFAULT  WINDOW  SIZE 


MAXIMUM  WINDOW  SIZE 
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130 

131 

132 

133 

134 

135 

'36 

137 

138 

139 

lAO 

K1 

U2 

K3 

U' 

1A5 

K6 

K7  000000 

U8  000000 

K9  000004 

150  000010 

151  OOOOU 

152  000(115 

153  000020 

154  000022 

155  000026 

156  000030 

157  000034 

158  000040 

159  000044 

160  000046 


000050 
000054 


161 
162 
163 
164 
165 
166 

167  000056 

168  000064 

169  000066 

170  000074 


SCTBIO  -  CETAB  I/O  (RSXllMt  ONLY) 

THIS  ROUTINE  IS  CALLED  TO  TRANSFER  THE  CETAB  TASK  IMAGE  INTO  CORF. 

INPUTS: 

R1=FILE  SPEC  ADDRESS 
R2=FILE  SPEC  LENGTH 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 
C  =  1 

R0=ERROR  CODE 
C=0 

R1  =  CETAB  ALLOCATION  ADDRESS 

R2  =  CETAB  ALLOCATION  LENGTH 


005067 

105777 
100420 
052010 
001422 

103402 


005767 
001401 
000261 
016700 


012767 
000770 
012767 
000757 


000000' 
OOOOOOG 


000000' 
000000' 


iCTBIO: 


CLR 

ERROR 

CALL 

$CLOPE 

TST8 

aSCLIOS 

BMI 

101$ 

BIS 

(RO)t,(RO) 

BEQ 

111$ 

CALL 

PR.LBL 

BCS 

10$ 

CALL 

PR.XFR 

10$: 

CALL 

$CLDEQ 

TST 

ERROR 

BEQ 

30$ 

20$: 

SEC 

30$: 

MOV 

ERROR, RO 

RETURN 


ERROR  CONDITIONS 
000002  000000'  1oi$ 
000006  000000'  111$ 


MOV 

#ERR2, ERROR 

BR 

20$ 

MOV 

#ERR6, ERROR 

BR 

10$ 

NO  ERROR,  EITHER 

OPEN  PROCESS  FILE 

LOOK  AT  GCL  lOSB 

IF  MI,  FAILURE 

IS  FILE  CONTIGUOUS? 

IF  EQ,  NO 

READ  LABEL  BLOCK 

IF  CS,  ERROR 

READ  PROCESS  TASK  IMAGE  INTO  CORE 

CLOSE  PROCESS  FILE 

ANY  ERRORS?  (CLEARS  C-BIT) 

IF  ZERO,  NO 

INDICATE  FAILURE 

GET  ERROR  CODE 


OPEN  FAILURE 
NOT  CONTIGUOUS 
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ELTIME     CREATED  Bv  MACRO  ON  29-JUN-85  AT  \7:i,2 
MACRO  CROSS  REFERENCE 
MACRO  NAME     REFERENCES 
RETURN         5-80 
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♦  «F!LE"1D»*LBNI0 


G  16 


••FILE"10"LDUIC 


DC^DDDDDD 

UU 

UU 

III 

111 

cccccccc 

DjDDDDDD 

UU 

UU 

111 

111 

cccccccc 

DD 

DD 

UU 

UU 

DD 

DD 

UU 

UU 

DD 

DD 

UU 

UU 

DD 

DD 

UU 

UU 

DD 

DD 

UU 

UU 

DD 

DD 

UU 

UU 

DD 

DD 

UU 

UU 

DD 

DD 

UU 

UU 

DD 

DD 

UU 

UU 

DD 

DD 

UU 

UU 

LLLLLLLLLl 

DDDDDDDD 

UUUUUUUUUU 

111 

111 

cccccccc 

LLLLLLLLLL 

DDDDDDDD 

UUUUUUUUUU 

III 

111 

cccccccc 

LL 

ssssssss 

TT 

rTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

.L 

ss 

-L 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLUL 

ssssssss 

nmr  -  F iwn  thf  i  nan  uir 
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ERROR  MESSAGES 

97  .SeriL  ERROR  MESSAGES 
98 

99  .ENA8L  LC 
IQO 

101  000016  NTLERS  ,N2,10,CERR,RTSPC,CFLIN,<CUG  name> 

102  OOOOAO  NTLERS  ,N3,10,CERR,RTSPC,CFLIN,<CU6  number> 

103  00006A  NTLERS  ,P4,10,CERR,RTSPC,CFLIN,<f Lags  word> 

10A  OOOliO  NTLERS  ,M1 ,8,CERR,RTSPC,CFLIN,<CUG  name  bLock  allocation  failure) 
105 

106  .DSABL  LC 

107  .LIST   BEX 

108  .EVEN 

109  000000  .PSECT 
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Table  of  contents 

MACRO  DEFINITIONS 
LOCAL  SYMBOL  DEFINITIONS 
ERROR  MESSAGES 
LOOK  FOR  DSASDF  MACRO 
TPARS  STATE  TABLES 
DSCSDF  STATE  TABLES 
DSASDF  ACTION  ROUTINES 
DSCSDF  ACTION  ROUTINES 


s- 

ss 

6- 

^? 

(  - 

69 

H- 

H^ 

^- 

VI 

10- 

16-; 

n- 

1HK 

u- 

2&b 
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A$$CHK= 

000000 

DSACUG= 

******  GX 

G$$TTK= 

000000 

N$$PEM= 

000001 

$E0S  = 

000012 

A$$CPS= 

000000 

DSADF 

OOOOOOR 

003 

G$$WRD= 

000000 

PCKBCD= 

****** 

GX 

SERRMO 

000106R 

002 

A1$PRI= 

000000 

DSAKW 

OOOOOORG 

004 

I$$RAR= 

000000 

P$$P45= 

000000 

$ERRM2 

0001 36R 

002 

A$$TRP= 

\J  \J  \J  \J  V  \J 

000000 

DSARCT= 

******  GX 

I$$RDN= 

000000 

P$$WRD= 

000000 

$ERRH3 

S8^1^6K 

002 

CALVAL 

0001 52R 

003 

DSARDP= 

******  GX 

K$$CNT= 

177546 

0$$OPT= 

000010 

$ERRN2 

OOOOOOR 

002 

CERR  = 

******  GX 

DSARDT= 

******  GX 

K$$CSR= 

177546 

RTSPC  = 

****** 

GX 

$ERRN8 

000022R 

002 

CFGBF  = 

******  Gx 

DSASHI= 

******  GX 

K$$LDC= 

000000 

R$$DER= 

000000 

$ERRN9 

000056R 

002 

CFGSZ  = 

******  Gx 

DSASLO= 

******  GX 

K$$TPS= 

000074 

R$$K11= 

000001 

$ERR1T= 

******  GX 

CFLIN  = 

******  GX 

D5AST 

OOOOOORG 

003 

LD$LP  = 

000000 

R$$SND= 

000000 

$EXIT  = 

000000 

CHKSB 

000254R 

DSCDF 

0001 30R 

003 

L$$ASG= 

000000 

R$$11M= 

000000 

$FAIL  = 

177777 

COUNT  = 

******  GX 

DSCMCT= 

******  GX 

L$$DRV= 

000000 

SHI 

000102R 

003  $LAMDA= 

000000 

CUNMMX= 

******  GX 

DSCMSK^ 

******  GX 

L$$P11= 

000001 

SLO 

000062R 

003  $NUMBR= 

000002 

C$$CKP= 

000000 

DSCMX  = 

000040 

L$$11R= 

000000 

STRHEX 

000422R 

$QPSA 

OOOOOORG 

C$SCRE= 

000400 

DSCVAL= 

******  GX 

M$$CR8= 

000124 

STRNXT= 

****** 

GX 

$QDSC 

000006RG 

C$$RSH= 

177564 

DSCVCT= 

«♦*»**  GX 

M$$CRX= 

000000 

SUBAMX= 

****** 

GX 

$RAD50= 

000016 

DACUG 

000122R 

003 

D$1BUG= 

177514 

H$$FCS= 

000000 

SYNERR= 

****** 

GX 

$SAVRG= 

******  GX 

DACUNM 

000306R 

D$$ISK= 

000000 

M$$MGE= 

000000 

S$$URG= 

000000 

$STRNG= 

000004 

DARDEN= 

******  GX 

D$$L11= 

000001 

m';net= 

000000 

S$$YSZ= 

007600 

$SUBXP= 

000010 

OARDND 

000142R 

D$$YNC= 

000000 

H4$0VR= 

000000 

T$$KMG= 

000000 

$$$FLG= 

177777 

DARDNO 

0001 16R 

D$$YNM= 

000000 

NEXT  = 

******  GX 

T$$M1N= 

000000 

$$$KEY= 

000001 

DARDNX 

000032R 

003 

END 

000160R 

003 

N$$ACC= 

000001 

V$$CTR= 

001000 

$$$STA= 

000000 

DARDST 

000060R 

E$$XPR= 

000000 

N$$8UF= 

000001 

X$$DBT= 

000000 

$$$TMP= 

000007R 

005 

DARMLN= 

******  GX 

FMT10  = 

******  GX 

N$$LDV= 

000001 

$ALPHA= 

000022 

.PNUMB= 

******  GX 

DASSHI 

000224R 

FM.10  = 

000000 

N$$MCP= 

000C31 

SANY  = 

000020 

.PNUMH= 

******  GX 

DASSLO 

0001 76R 

F$$LVL= 

000001 

N$$MLL= 

000001 

$BLANK= 

000006 

.PSTCN= 

******  GX 

DCMSK 

000346R 

G$$TPP= 

000000 

N$$MOV= 

000010 

$DIGIT= 

000024 

.PSTPT= 

******  GX 

OCVAl 

000374R 

G$$TSS= 

000000 

N$$NCT= 

000001 

$DNUMB= 

000014 

.TPARS= 

******  GX 

.  ABS. 

000000 
000540 

000 
001 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 

DATA 

000216 

002 

(RW  ",LCL,REL,C0N) 

SSTATE 

000170 

003 

(RW,D,LCL,REL,CON) 

$KTAB 

000004 

004 

(RW,D,LCL,REL,CON) 

$KSTR 

000016 

005 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 
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CF 


231 

232 

233 

;  PRIORITY 

234 

235 

.ENABL 

LS6 

236  000530 

012700 

OOOOOOG 

DSPRI:   MOV 

#DSTPRI 

,RU 

237  000534 

238 

239 

240 

241  000536 

000402 

BR 

10$ 

;  OBJECT  NUMBER 

012700 

OOOOOOG 

DS08J:  MOV 

#DST0BJ 

,R0 

242  000542 

005767 

OOOOOOG 

10$:    TST 

.PNUMH 

243  000546 

001006 

BNE 

101$ 

244  000550 

105767 

000001 G 

TSTB 

.PNUMB+ 

1 

245  000554 

001003 

BNE 

101$ 

246  000556 

116710 

OOOOOOG 

MOVB 

.PNUMB, 

(RUJ 

247  000562 

RETURN 

248 

249 
250 
251  000564 

;  ERRORS 

022700 

OOOOOOG 

\QM:        CMP 

#DSi''PJ 

,R0 

252  000570 

001403 

BEQ 

102. 

253  000572 

EMSG$R 

N5 

254  000600 

102$:   EMSG$R 

N6 

255 

.DSABL 

LSB 

GET  ADDRESS  OF  STORAGE  FOR  PRIORITY 
CONTINUE  IN  COMMON  CODE 


GET  ADDRESS  OF  OBJECT  NUMBER  STORAGE 

LEGAL  VALUE? 

BR  IF  NO 

IS  IT  A  BYTE  VALUE? 

BR  IF  NO 

STORE  SPECIFIED  VALUE 


IS  THIS  FOR  OBJECT  NUMBER? 
BR  IF  YES 

ELSE  ILLEGAL  PRIORITY 
ILLEGAL  OBJECT  NUMBER 


CFPDST 
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Table  ot  contents 

MACRO  DEFINITIONS 

LOCAL  SYMBOL  DEFINITIONS 

LOCAL  DATA 

ERROR  MESSAGES 

LOOK  FOR  DTESDF  MACRO 

TPARS  STATE  TABLES 

LINE-ID  SUBEXPRESSION 

DTESDF  ACTION  ROUTINES 

CHKDTE  -  CHECK  FOR  VALID  DTE  ADDRESS 

CHKDEV  -  CHECK  VALIDITY  OF  LINE-ID 

BIASX  -  SET  APR6  BIAS  CORRECTLY 


CF 
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s- 

SS 

6- 

(^ 

l- 

99 

H- 

VI 

9- 

H") 

10- 

1f)A 

11- 

^16 

\?- 

^■>9 

16- 

U?^ 

V- 

t,M 

18- 

^16 
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CF 


394  000600 

395  000604 

396  000612 

397  000620 

398  000622 

399  000630 

400  000636 

401  000640 

402  000644 

403  000650 

404  000654 

405  000660 

406  000666 

407  000672 

408  000676 

409  000702 

410  000706 

411  000712 
412 

413  00C714 

414  000716 
415 

416 
417 

418  000720 

419  000726 

420  000734 

421  000742 


011065 
112763 
032767 
001403 
112763 
116363 
010300 
062700 
010067 

010063 
016763 
017700 
062700 
016705 


103407 


000044 

000001  000003 

COOOOOG  OOOOOOG 

000000  000003 
000003  000002  60$: 

000122 
OOOOOOG 

000030 

OOOOOOG  000032 
OOOOOOG 
000002 
OOOOOOG 


110$: 
120$: 


MOV 

MOVB 

BIT 

BEQ 

MOVB 

MOVB 

MOV 

ADD 

MOV 

CALL 

MOV 

MOV 

MOV 

ADD 

MOV 

CALL 

RESMAP 

RETURN 

BCS 
RETURN 


(hO),L$TCLZ(R3) 

#LN$0FF,L$NHST(R3) 

*DE.ON,OTEFLG 

60$ 

#LN$0N,L$NMST(R3) 

L$NMST(R3),L$OMST(R3) 

R3,R0 

#L$LEN,RO 

RO.HSHADD 

BIASX 

R0,L$CHTB(R3) 

HSHSZ,L$CTEN(R3) 

SPSIPT.RO 

#H$LDTE,RO 

DTEDES,R5 

LNKEND 


103$ 


ERRORS 


101$ 
102$ 
103$ 
104$ 


EMSG$R 
EMSG$R 
EMSG$R 
EMSG$R 


03 
07 
OP 
OQ 


STORE  TIME  COUNTERS  LAST  ZEROED 

STORE  ASSUMED  OFF  STATE 

SET  DTE  STATE  UN? 

8R  IF  NO-  OFF  IT  IS 

STORE  ON  STATE 

SET  PREVIOUS  STATE  AS  WELL 

COPY  DTE  ADDRESS 

OFFSET  TO  START  OF  HASH  TABLE 

SAVE  HASH  TABLE  ADDRESS 

SET  CORRECT  BIAS  ON  ADDRESS 

STORE  HASH  TABLE  ADDRESS 

SAVE  NUMBER  OF  ENTRIES 

GET  ADDRESS  OF  PSI  HOME  BLOCK 

POINT  TO  DTE  DESCRIPTOR  LISTHEAD 

GET  UNMAPPED  ADDR  OF  BLOCK  TO  LINK 

LINK  BLOCK  AT  END  OF  LIST 

RESTORE  PREVIOUS  MAPPING 


BR  IF  ALLOCATION  ERROR 


ILLEGAL  DTE  ADDRESS 
LINE  NOT  IN  SYSTEM 
ALLOCATION  FAILURE 
TOO  MANY  DTES  DEFINED 
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1 
2 
3 

5 
6 

7 

8 

9 
10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE 
.IDENT 


CFPPSN  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTl  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  30-JAN-81 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
0ECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-PIus  V3.0 
DECnet-Micro/RSX  Vl.O 


OF  ITS 
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CFPPSN  CREATED  BY     MACRO     ON  29-JUN-85  AT   00:18 

SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


REFERENCES 


CERR 

r  ****** 

GX 

8-117 

CFGBF 

r  ****** 

GX 

9-147 

CFG52 

=  ****** 

GX 

9-146 

CFLIN 

=  ****** 

GX 

8-117 

CHKSUB 

000276 

R 

12-273 

FMT10 

=  ****** 

GX 

8-117 

FMT8 

r  ****** 

GX 

8-121 

FM.10 

=  000000 

#8-117 

FM.8 

=  000000 

#8-121 

HFSDLM 

=  000002 

12-277 

HSFLG 

000000 

»13-352 

HSHITS 

000034 

*13-356 

HSLEN 

000042 

13-312 

HSLOTS 

000032 

*13-355 

HSNETW 

000024 

13-321 

H$NPT 

000022 

*13-351 

HSPTB 

000020 

♦13-350 

KSAR5 

=   ****** 

GX 

13-338 

N$$VCT 

=   ****** 

13-335 

PNAMMX 

=  000006 

#6-82 

PORT 

000160 

R 

#11-244 

PORTMX 

=  000400 

#6-83 

PORTNO 

r  ****** 

GX 

*11-250 

PSIPT 

~     ****** 

GX 

11-215 

PSNDF 

000000 

R 

9-143 

PSNEND 

000356 

R 

#13-312 

PSNFG 

000216 

R 

#11-260 

PSNFLG 

000006 

R 

#7-109 

PSNHI 

000012 

R 

#7-111 

PSNKW 

000000 

RG 

9-145 

PSNLO 

000010 

R 

#7-110 

PSNNAM 

000000 

R 

#7-108 

PSNNM 

000052 

R 

#11-215 

PSNSHI 

000330 

R 

#13-303 

PSNSLO 

000242 

R 

#12-273 

PSNST 

000000 

RG 

#10-164 

RTSPC 

=  ****** 

GX 

8-117 

R$RO 

=  000002 

#6-89 

R$R1 

=  000004 

#6-90 

R$R2 

=  000006 

#6-91 

R$R3 

=  000010 

#6-92 

RSRA 

=  000012 

#6-93 

R$R5 

=  000014 

#6-94 

SPACE 

=  000040 

#6-84 

SUBAMX 

r  ****** 

GX 

12-291 

SYNERR 

-  ****** 

GX 

»9-148 

S$$BAS 

=     ****** 

8-117 
8-121 

$ALL16 

=     ****** 

GX 

13-313 

SALPHA 

=  000022 

#10-164 

$ANY 

=  000020 

#10-164 

SBLANK 

=  000006 

#10-164 

8-11f 


8-118 
#12-287 

8-118 

8-122 
#8-118 
#8-122 

13-308 


13-317 


13-346 

11-218 

11-248 
13-327 
13-330 


♦11-231 
♦11-233 
#10-164 
•11-232 
11-221 


-11i 


♦13-337 


11-223 

•9-151 
8-117 
8-122 


8-119 


8-119 
13-303 

8-119 

#8-119 
13-353 
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8-120 
8-120 


8-121 


8-120 
•8-120 


8-121 

8-123 

#8-123 


8-122 


8-122 

8-124 

#8-124 


8-123 
8-123 


-124 
-124 


13-323 


13-342 


•11-262 
♦12-276 

•12-275 
13-322 


8-119 


13-351 


•12-277 
•13-307 

13-305 


8-120 


♦13-308 
13-356 

13-355 


8-121 


13-352 


13-353 


8-122 


8-123 


8-124 


8-118 
8-122 


8-118 
8-123 


8-119 
8-123 


8-119 
8-124 


8-120 
8-124 


8-120 


8-121 
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PVCSDF  ACTION  ROUTINES 


286 

.SBTTL 

PVCSDF  ACTION 

287 
288 
289 

;  pvc 

CIRCUIT  ID 

290 

291  000056 

016702 

OOOOOOG 

hNm: 

MOV 

.PSTCN,R2 

292  000062 

022702 

000006 

CMP 

#PVNAMX,R2 

293  000066 

103432 

BLO 

101$ 

29^  000070 

012700 

000024' 

MOV 

#PVCNAM,RO 

295  00007^ 

012701 

000006 

MOV 

#PVNAMX,R1 

296  000100 

112720 

000040 

10$: 

MOVB 

*SPACE,(RO)+ 

297  000104 

005301 

DEC 

R1 

298  000106 

003374 

BGT 

10$ 

299  000110 

016700 

OOOOOOG 

MOV 

.PSTPT,RO 

300  000114 

012701 

000024' 

MOV 

#PVCNAM,R1 

301  000120 

112021 

20$: 

MOVB 

(R0)+,(R1)+ 

302  000122 

005302 

DEC 

R2 

303  000124 

003375 

BGT 

20$ 

304  000126 

016767 

OOOOOOG  000006' 

MOV 

BLKSZD,PVCPSZ 

305  000134 

016767 

OOOOOOG  000010' 

MOV 

WNDSZD,PVCWSZ 

306  000142 

005067 

000012' 

CLR 

PVCOWN 

307  000146 

105067 

000023' 

CLRB 

PVCFLG 

308  000152 

RETURN 

309 

■ 

310 
311 
312  000154 

;  ERRORS 

101$: 

EMSG$R 

NO 

313 
314 
315 
316 
317  000162 

•  LOGICAL  CHANNEL  NUMBER 

005767 

OOOOOOG 

PVLCN 

TST 

. PNUMH 

318  000166 

001011 

BNE 

101$ 

319  000170 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

320  000174 

003406 

BLE 

101$ 

321  000176 

020027 

OOOOOOG 

CM" 

RO,#CHNLMX 

322  000202 

101003 

BHi 

101$ 

323  000204 

010067 

000002' 

MOV 

RO.PVCLCN 

324  000210 

RETURN 

325 

326 
327 

328  000212 

;  ERRORS 

101$: 

EMSG$R 

09 

329 

330 

331 
332 
333  000220 

;  COUNTER  TIMER 

005767 

OOOOOOG 

PVCT: 

TST 

.PNUMH 

334  000224 

001004 

BNE 

101$ 

335  000226 

016767 

OOOOOOG  000004 

MOV 

.PNUMB,PVCCTM 

336  000234 

RETURN 

337 

338 
339 

340  000236 

;  ERRORS 

ioi$: 

EMSGtR 

05 

GET  NUMBER  OF  CHARACTERS  FOUND 

LEGAL  PVC  CIRCUIT  ID? 

BR  IF  NO 

POINT  TO  STORAGE  FOR  CIRCUIT  ID 

GET  LENGTH  OF  CIRCUIT  ID 

INITIALIZE  NAME  TO  SPACES 

MORE  TO  INITIALIZE? 

BR  IF  YES 

POINT  TO  START  OF  CIRCUIT  ID 

POINT  TO  STORAGE  AREA  FOR  CIRCUIT  ID 

STORE  CIRCUIT  ID 

MORE  TO  STORE? 

BR  IF  YES 

SET  UP  DEFAULT  MAXIMUM  BLOCK  SIZE 

SET  UP  DEFAULT  WINDOW  SIZE 

INITIALIZE  PROCESS  OWNER 

INITIALIZE  FLAGS  BVTE 


ILLEGAL  CIRCUIT  ID 


LEGAL  VALUE? 

BR  IF  NO 

GET  SPECIFIED  LOGICAL  CHANNEL  NUHER 

BR  IF  ILLEGAL  VALUE 

LEGAL  VALUE? 

BR  IF  NO 

STORE  LOGICAL  CHANNEL  NUMBER 


ILLEGAL  LOGICAL  CHANNEL  NUMBER 


LEGAL  VALUE? 

BR  IF  NO 

SAVE  COUNTER  TIMER  VALUE 


ILLEGAL  COUNTER  TIMER  VALUE 
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SYMBOL   CROSS   REFERENCE 


SYMBOL 

VALUE 

PVCNAM 

000024  R 

=VCOWN 

000012  R 

=VCPRT 

000022  R 

^VCPSZ 

000006  R 

^-VCST 

000000  RG 

=VCT 

00022C  R 

=VCTL 

001 5A4  R 

=VCwSZ 

000010  R 

PVDLM 

00U46  R 

3VEND 

OOOAO-i  R 

PVFG 

000346  R 

PVLCN 

000162  R 

PVNAM 

000056  R 

PVNAMX 

=  000006 

PVOWN 

000310  R 

PVPSZ 

000244  R 

PVSTA 

001554  R 

PVWSZ 

000266  R 

RTSPC 

r  »»*♦♦«   GX 

R$RO 

=  000002 

R$R1 

=  000004 

R$R2 

=  000006 

R$R3 

=  000010 

R$RA 

=  000012 

R$R5 

=  000014 

SPACE 

=  000040 

SP$P4 

000036  RG 

SYNERR 

-  ******  GX 

S$$BAS 

r:  ****** 

WNDSZD 

=  ******   GX 

XTSPVC 

=  000001 

XSAeci 

000076 

XSCTIM 

000060 

XSDTE 

000024 

X$LCN 

000026 

X$LEN 

000106 

XSMOWN 

000023 

XSPKSZ 

000016 

X$PRT 

000021 

XSRXQ 

000072 

X$ST 

000005 

XSTCLZ 

000030 

XSTXa 

000066 

X$TYP 

000015 

X$WAQ 

000062 

X$WSZ 

000020 

ZTIME 

=  ******  GX 

SALPHA 

=  000022 

$ANY 

=  000020 

SBLANK 

--  000006 

$CAT5 

=  ******  GX 

SCEACX 

=  »*.*•♦  GX 

REFERENCES 

#7-140 

#7-133 

#7-138 

#7-131 

#10-200 

#11-333 

#20-700 

#7-132 

#20-674 

12-390 
#12-385 
#11-317 
#11-291 
#6-103 
#12-370 
#12-346 
#20-702 
#12-358 

8-156 
#6-108 
#6-109 
#6-110 
#6-111 
#6-112 
#6-113 
#6-102 
#7-149 

*9-184 
8-156 
11-305 
17-596 

*17-593 

07-583 

»1 7-584 

•17-586 
14-461 

•14-475 

•17-582 

♦17-585 

♦17-589 

♦17-595 

•14-478 

•17-587 

♦17-596 

•17-591 

•17-581 
14-476 

#10-200 

#10-200 

#10-200 
12-374 
13-413 


11-294 
•11-306 
•16-547 
♦11-304 


♦11-305 
#13-401 

11-292 
8-157 


11-296 
17-595 
♦9-187 
8-156 


17-594 
17-574 

17-590 

17-588 
17-592 


20-675 
14-466 
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11-300 
♦12-375 

17-585 
•12-348 


♦12-360 


11-295 


8-158 


13-418 
14-472 
18-637 
17-582 


17-581 


13-417 


8-159 


15-507 


20-674 


15-506 


8-157 
♦17-594 


♦17-590 

♦17-588 
♦17-592 


15-504 


8-157 


8-158 


8-158 


8-159 


8-159 


16-538 


17-572 


18-617 


CFPPVC 
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RDTIDF  ACTION  ROUTINES 


222 
223 
224 

i  END 

OF  REMOTE 

DTE  ADDRESS 

225 
226 

000212 

004567 

OOOOOOG 

ftDEND 

JSR 

R5,$SAVRG 

227 

000216 

012700 

000010 

MOV 

*<RDTLNt1>/2,R0 

228 

000222 

012704 

000006' 

MOV 

#RDTE,R4 

229 

000226 

012705 

000025- 

MOV 

#RDTEP,R5 

230 

000232 

CALL 

PCKSCD 

231 

000236 

CALL 

CHKRDT 

232 

000242 

103472 

BCS 

101$                ; 

233 
234 
235 

000244 

012701 

000024 

MOV 

#R$LEN,R1 

000250 

SUSTK$ 

50$ 

236 

000254 

CALL 

SXALOC 

237 

000260 

103006 

BCC 

10$ 

238 

000262 

RETC 

RO                 ; 

239 

000274 

000452 

BR 

40$ 

240 

000276 

10$: 

SAVMAP 

241 

000302 

010005 

MOV 

R0,R5                ; 

242 

000304 

010046 

MOV 

RO,-(SP) 

243 

000306 

CALL 

$CEACX 

244 

000312 

012600 

MOV 

(SP)+,RO 

245 

000314 

010002 

MOV 

R0.R2 

(rJ)  + 

246 

000316 

105022 

15$: 

CLR8 

247 

000320 

005301 

DEC 

R1 

248 

000322 

003375 

BGT 

15$ 

249 

000324 

010001 

MOV 

R0,R1 

250 

000326 

062701 

000002 

ADD 

#R$NAM,R1             ; 

251 

000332 

012702 

000000' 

MOV 

#RDTNAM,R2 

252 

000336 

012703 

OOOOOi' 

MOV 

#RDTEMX,R3            ; 

253 

000342 

112221 

20$: 

MOVE 

(R2)+,(R1)+ 

254 

000344 

005303 

DEC 

R3                  ; 

255 

000346 

003375 

BGT 

20$ 

256 

000350 

116760 

OOOOOOG  000013 

MOVB 

COUNT, R$DAL(R0) 

257 

000356 

012701 

000010 

MOV 

#<RDTLN+1>/2,R1 

258 

000362 

012702 

000025' 

MOV 

*RDTEP,R2 

259 

000366 

010003 

MOV 

R0,R3 
#RiDTE,R3 

260 

000370 

062703 

000014 

ADD 

261 

000374 

112223 

30$: 

MOVB 

(R2)+,(R3)+ 

262 

000376 

005301 

DEC 

R1 

263 

000400 

003375 

BGT 

30$ 

264 

000402 

017700 

OOOOOOG 

MOV 

5)PSIPT,R0 

265 

000406 

062700 

000004 

ADD 

*H$RDTE,RO            ; 

266 

000412 

CALL 

LNKEND 

267 

000416 

RESMAP 

268 

000422 

40$: 

RETURN 

,' ; 

269 

27<) 

000424 

103404 

50$: 

BCS 

102$ 

271 

000426 

RETURN 

272 

■ 

273 
274 
275 

;  ERRORS 

000430 

101$: 

EMSGSR 

LO 

276 

000436 

102$: 

EMSG$R 

L2 

SAVE  R3-R5 

GET  LENGTH  OF  PACKED  ADDRESS 

GET  ADDRESS  OF  REMOTE  DTE  ADDR  BUFFER 

GET  ADDRESS  OF  PACKED  ADDRESS  BUFFER 

PACK  ADDRESS  IN  BCD  FORMAT 

CHECK  DTE  NAME  FOR  UNIQUENESS 

BR  IF  NOT  UNIQUE 

GET  LENGTH  OF  BLOCK  TO  ALLOCATE 

ENTER  SYSTEM  STATE 

ALLOCATE  FROM  NETWORK  POOL 

BR  IF  SUCCESSFUL  ALLOCATION 

ELSE  SET  USER  C-BIT 

AND  EXIT 

SAVE  CURRENT  MAPPING 

SAVE  UNMAPPED  ADDRESS 

SET  UNMAPPED  ADDRESS  FOR  CONVERSION 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

GET  ADDRESS  OF  BLOCK 

INITIALIZE  REMOTE  DTE  NAME  BLOCK 

MORE  TO  INITIALIZE? 

BR  IF  YES 

GET  ADDRESS  OF  BLOCK 

POINT  TO  REMOTE  DTE  NAME 

POINT  TO  SPECIFIED  NAME 

GET  LENGTH  OF  NAME 

STORE  REMOTE  DTE  NAME 

MORE  TO  STORE? 

BR  IF  YES 

STORE  LENGTH  OF  DTE  ADDRESS 

GET  LENGTH  OF  DTE  ADDRESS 

GET  ADDRESS  OF  REMOTE  DTE  ADDRESS 

POINT  TO  REMOTE  DTE  NAME  BLOCK 

POINT  TO  DTE  ADDRESS  FIELD 

STORE  REMOTE  DTE  ADDRESS 

MORE  TO  STORE? 

BR  IF  YES 

GET  ADDRESS  OF  PSI  HOME  BLOCK 

POINT  TO  REMOTE  DTE  LISTHEAD 

LINK  AT  END  OF  LIST 

EXIT  SYSTEM  STATE 

BR  IF  ALLOCATION  FAILED 


ILLEGAL  REMOTE  DTE  NAME 

REMOTE  DTE  BLOCK  ALLOCATION  FAILURE 
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X29$DF  ACTION  ROUTINES 
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150 
151 
152 
153 
15A 

155  000052 

156  000056 

157  000060 

158  00006A 

159  000066 

160  000074 
161 

162  000076 

163 

164 

165 

166 

167  000104 

168  000110 

169  000112 

170  000120 
171 

172  000122 

173 

174 

175 

176 

177  000130 

178  000134 

179  000136 

180  000142 
181 

182  000144 

183  000150 


.S8TTL  X29$DF  ACTION  ROUTINES 


005767 
001007 
105767 
001004 
116767 


005767 
001004 
016767 


017700 
001437 
005760 
001034 


OOOOOOG 
000001 G 
OOOOOOG  000206' 


OOOOOOG 
OOOOOOG  000210' 


MAXIMUM  CIRCUITS 


X29MXC:  TST 
BNE 
TST8 
BNE 
MOVB 
RETURN 


101$:   EMSGSR  96 


COUNTER  TIMER 


.PNUMH 

101$ 

.PNUMB+1 

101$ 

.PNUMB.MAXVC 


X29CTM: 


101$: 


TST 
BNE 
MOV 
RETURN 


EMSG$R  9C 


.PNUMH 

101$ 

.PNUMB.CTIMR 


OOOOOOG 
000040 


012701  000016 


184  000154 

103432 

185  000156 

010002 

186  000160 

012701 

000007 

187  000164 

005020 

188  001166 

005301 

189  '•  .170 

001375 

190 

191  000172 

016762 

000206' 

192  000200 

016762 

000210' 

195 

194  000206 

016700 

OOOOOOG 

195  000212 

062700 

000002 

196  000216 

011062 

000010 

197  000222 

017700 

OOOOOOG 

198  000226 

010260 

000040 

199  000232 

200 

201  000234 

202  000242 

203 

204 

000C01 

END  OF  X29$DF  MACRC 

X29END:  MOV  aPSiPl,RO 

BEQ  101$ 

TST  H$X29C(R0) 

BNE  101$ 


10$: 


000002 


MOV 

#Q$LEN,R1 

CALL 

$ALL16 

BCS 

102$ 

MOV 

R0.R2 

MOV 

#QiLEN/2,Rl 

CLR 

(R0)  + 

DEC 

R1 

BNE 

10$ 

MOV 

MAXVC,Q$MXVC(R2) 

MOV 

CTIMR,Q$CTIM(R2) 

101$: 
102$: 


MOV  ZTIME,RO 

ADD  #2,R0 

MOV  (R0),Q$TCLZ(R2) 

MOV  aPSIPT.RO 

MOV  R2,H$X29C(R0) 

RETURN 

EMSG$R  9A 

EMSGSR  9D 

.END 


SINGLE  WORD  VALUE? 

NO-  ILLEGAL 

SINGLE  BYTE  VALUE? 

NO-  ILLEGAL 

SAVE  MAXIMUM  CIRCUITS  VALUE 

RETURN 

ILLEGAL  MAX  CIRCUITS  VALUE 


SINGLE  WORD  VALUE? 

NO-  ILLEGAL 

SAVE  COUNTER  TIMER  VALUE 

RETURN 

ILLEGAL  COUNTER  TIMER  VALUE 


POINT  TO  HOME  BLOCK 
THIS,  OF  COURSE,  CAN  NEVER  HAPPEN 
X.29  DATABASE  ALREADY  EXIST? 
YES-  ILLEGAL  2ND  OCCURRENCE 

GET  LENGTH  OF  X.29  DATABASE 

ALLOCATE  FROM  DSR 

BR  IF  UNABLE  TO  ALLOCATE 

SAVE  POINTER  TO  BLOCK 

GET  LENGTH  IN  WORDS 

ZERO  THE  BLOCK 

MORE  TO  ZERO? 

YES,  KEEP  GOING 

;  STORE  MAXIMUM  CIRCUITS  VALUE 
;  STORE  COUNTER  TIMER  VALUE 

GET  SZTIME  ADDRESS 

$ZTIME+2 

STORE  TIME  COUNTERS  LAST  ZEROED 

GET  HOME  BLOCK  POINTER 

STORE  POINTER  IN  HOME  BLOCK 

RETURN 

ILLEGAL  OCCURRENCE  OF  X29$DF 
X.29  BLOCK  ALLOCATION  FAILURE 
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CFPX3P  - 

INITW 

CHNSDF  STATE  Tt 

176 

177 

178 

179 

180 

181 

000060 

182 

000060 

183 

184 

000060 

185 

000060 

186 

187 

000060 

188 

000060 

189 

000060 

190 

191 

000060 

192 

000060 

193 

194 

195 

196 

197 

000060 

198 

000060 

199 

000060 

200 

201 

000060 

H  13 

INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:20  Page  10 

.SBTTL   CHNSDF  STATE  TABLE 


;  CHNSDF  STATE 

TABLE 

STATES 
TRANS 

CHNDF 
XCHNSDFX,,,1,SYNERR 

STATES 
TRANS 

SNUMBR,,CHLO 

STATES 
TRANS 
TRANS 

:END,$EX1T,CHEND 
<'  ,> 

STATES 
TRANS   $NUMBR,END,CHHI 


CHECK  FOR  END  OF  SOURCE  LINE 

STATES  END 

TRANS  <';>,SEXIT 

TRANS  SEOS.SEXIT 

STATES 


LOW  END  OF  CHANNEL  RANGE 


HIGH  END  OF  CHANNEL  RANGE 


I  13 
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172 
173 
17A 
175 
176 
177 
178 
179 
180 
181 
182 
183 
18^ 
185 
186 
187 
188 
189 

190  000076 

191  000102 

192  000106 

193  000110 

194  000116 

195  000120 

196  000124 

197  000130 

198  000132 

199  000136 

200  0001A0 

201  OOOUA 

202  000U6 

203  000152 

204  000154 

205  000170 

206  000174 
207 

208  000176 

209  000202 

210  000204 

211  000206 

212  000210 
213 

214 
215 

216  000212 

217  000220 

218  000226 

219  000230 

220  000236 

221  000240 

222  000246 

223  000250 

224  000256 

225  000260 

226  000266 


012700  000000' 

103441 

032760  040000  000030 

001444 

016001  000016 
026001  000020 
001037 

022701  000200 
103444 

016002  000352 
060102 

022702  000200 
103442 

010167  OOOOOOG 
005002 


103416 
010102 
010001 


PR.L8L  -  READ  LABEL  BLOCK 

THIS  ROUTINE  IS  CALLED  TO  READ  THE  CETAB  LABEL  BLOCK  AND  TO  VERIFY 
THAT  THE  FILE  IS  A  VALID  CETAB  IMAGE.  ON  EXIT,  THE  LOGICAL  BLOCK  I/O 
POINTERS  ARE  SETUP  TO  ACCESS  THE  FIRST  TEXT  BLOCK. 

INPUTS: 

NONE 

OUTPUTS: 

C-81T=SUCCESS/FAILURE 

R1=CETAB  ALLOCATION  ADDRESS 

R2=CETA8  ALLOCATION  LENGTH 

R0=DESTROYED 

$L8N=FIRST  TEXT  BLOCK  LOGICAL  BLOCK  NUMBER 


PR.LBL: 


MOV 

CALL 

BCS 

BIT 

8EQ 

MOV 

CMP 

BNE 

CMP 

BLO 

MOV 

ADD 

CMP 

BLO 

ASL$ 

MOV 

CLR 

CALL 

BCS 

MOV 

MOV 

RETURN 


#DSKBUF,RO 

$RL8L 

101$ 


GET  BUFFER  ADDRESS 
READ  LABEL  BLOCK 
IF  CS,  FAILURE 


#TS$NHD,L$BFLG(r6)  ;  DOES  CETAB  HAVE  A  HEADER? 


111$ 

L$8LD2(R0), 

L$8MXZ(R0), 

111$ 

#200, R1 

131$ 

L$8EXT(R0) 

R1,R2 

#200, R2 

141$ 

6,R1 

R1,$LLEN 

R2 

$ALL16 
121$ 
R1,R2 
R0,R1 


R2 


ERROR   CONDITIONS 


116777     OOOOOOG  OOOOOOG   101$: 

012767     000010     000000' 

000417 

012767  000012  000000' 

000413 

012767  000044  000000' 

000407 

012767  000016  000000' 

000403 

012767  000020  000000' 

000261 


111$: 

121$: 

131$: 

141$: 
142$: 


MOVB 

MOV 

8R 

MOV 

BR 

MOV 

BR 

MOV 

8R 

MOV 

SEC 

RETURN 


$I0S8,a$CLI0S 
#ERR8, ERROR 
142$ 

#ERR10, ERROR 
142$ 

#ERR36, ERROR 
142$ 

#ERR14, ERROR 
142$ 
#ERR16, ERROR 


IF  EQ,  YES 

GET  LOAD  SIZE  IN  BLOCKS 

IS  CETAB  OVERLAID? 

IF  NE,  YES 

IS  CETAB  >  4K  WORDS? 

IF  LO,  YES 

GET  EXTEND  SIZE 

ADD  CETAB  SIZE  TO  EXTEND  SIZE 

IS  CETAB+EXTENSION  >  4K  WORDS? 

IF  LO,  YES 

CONVERT  FROM  BLOCKS  TO  BYTES 

SET  THE  TRANSFER  SIZE 

SUCCESS  INDICATOR 

TRY  TO  ALLOCATE  ROOM  FOR  CETAB 
IF  CS,  COULD  NOT 
COPY  THE  CETAB  LENGTH 
COPY  THE  CETAB  ADDRESS 
RETURN  TO  CALLER 


COPY  ERROR  CODE 

LABEL  BLOCK  READ  FAILURE 

INVALID  CEX  IMAGE 

CETAB  ALLOCATION  FAILURE 

CEX  EXCEEDS  4K  WORDS 

CEX  EXTENSION  EXCEEDS  4K  WORDS 
INDICATE  FAILURE 
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I  1* 
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••F1LE««1D« 

LBNIO 

BBBBBBBB 

NN      NN 

!I] 

III 

BBB8BBBB 

NN      NN 

III 

HI 

BB      BB 

NN      NN 

BB     BB 

NN      NN 

BB     BB 

NNNN    NN 

BB     BB 

NNNN    NN 

BBBBBBBB 

NN  NN  NN 

BBBBBBBB 

NN  NN  NN 

BB      BB 

NN    NNNN 

BB      BB 

NN    NNNN 

BB      BB 

NN      NN 

BB      BB 

NN      NN 

LLLLLLLLLL 

BBBBBBBB 

NN      NN 

JJl 

III 

LLLLLLLLLL 

BBBBBBBB 

NN      NN 

III 

III 

H  15 


000000 

000000 

00     00 

00      00 

00      00 

00     00 

00     00 

00     00 

00     00 

00      00 

00     00 

00      00 

000000 

000000 


ssssssss 

TTTTTTITTT 

ssssssss 

TTITTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

IRNIO  -  LOGKAl  BLOCK  I/O  ROUTI  MACRO  V05.03b  Saturday  29-Jun-85 
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LDUIC    -   FIND    THE    I OAD   UK 
Table  ot  contents 


FOR  H  MACRO  V05.03b  Saturday  29-Jun-85  00 


H.1f, 


5- 
6- 


55 
77 


LOCAL    DATA 

CREATE    "LOAD   UK    STRI^JG 


I  16 
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LOOK,  FOR  CUGtDF  MACRO 


111 

112 

.SBTTL 

LOOK  FOR  CUGIDF  <> 

1ACR0 

113 

+ 

1U 

$QCUG 

-  LOOK 

FOR  CUGSDF  MACRO 

115 

116 

INPUTS: 

117 

NONE 

118 

119 

OUTPUTS: 

120 

c-eiT= 

SUCCESS/FAILURE 

121 

R3,R4, 

«=DESTROYED 

122 

123  000000 

012705 

000000' 

;QCUG:: 

MOV 

#CUGDF,R5 

STATE  TABLE  ADDRESS 

124  000004 

005001 

CLR 

R1 

FULL  KEYWORD  MATCH  LENGTH 

125  000006 

012702 

000000" 

MOV 

#CUGKU,R2 

KEYWORD  TABLE  ADDRESS 

126  000012 

016703 

OOOOOOG 

MOV 

CFGSZ,R3 

RECORD  LENGTH 

127  000016 

012704 

OOOOOOG 

MOV 

#CFG8F,R4 

RECORD  BUFFER  ADDRESS 

128  000022 

005067 

OOOOOOG 

CLR 

SYNERR 

CLEAR  SYNTAX  ERROR  FLAG 

129  000026 

CALL 

.TPARS 

GO  DO  THE  PARSE 

130  000032 

103003 

BCC 

20$ 

IF  CC,  FOUND  WHAT  UE  WERE  LOOKING  FOR 

1'1  000034 

005367 

OOOOOOG 

DEC 

SYNERR 

DID  SYNIAX  ERROR  OCCUR? 

132  000040 

001401 

BEQ 

101$ 

IF  EQ,  YES 

133  000042 

20$: 

RETURN 

134 
135 
136 

137 

138  000044 

;  ERROR 

CONDITION 

ioi$: 

EMSGSR 

IT 

SYNTAX  ERROR 

J    1 
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Jo?- 


1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
/.7 
48 
49 
50 
51 
52 
53 


.TITLE   CFPDSA  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 
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MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDFNT  HISTORY: 

1.00     31-MAR-81 

DECNET-11M/S  V3.0 
OECNET-HM-PLUS   VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 


5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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CFPDSA     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:16 
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PAGE  1 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

CERR 

- 

****** 

GX 

7-75 

7-76 

7-77 

7-78 

7-79 

7-80 

CFGBF 

= 

****** 

GX 

8-107 

CFGSZ 

- 

****** 

GX 

8-106 

CFLIN 

- 

****** 

GX 

7-75 

7-76 

7-77 

7-78 

7-79 

7-80 

CH<SB 

000254 

R 

12-229 

12-243 

#12-257 

COUNT 

- 

****** 

GX 

♦11-198 

n-223 

CUNMMX 

- 

****** 

GX 

13-273 

DACUNM 

000306 

R 

#13-272 

DARDEN 

- 

****** 

GX 

11-206 

DARDND 

000H2 

R 

#11-218 

DARDNO 

000116 

R 

#11-206 

DARDST 

000060 

R 

#11-193 

OARMLN 

= 

****** 

GX 

11-193 

11-219 

DASSHl 

000224 

R 

#12-243 

DASSLO 

000176 

R 

#12-229 

DCMSK 

000346 

R 

#14-291 

DCVAL 

000374 

R 

#14-304 

DSACUG 

n 

****** 

GX 

13-275 

DSADF 

000000 

R 

8-101 

DSAKW 

000000 

RG 

8-105 

#9-125 

OSARCT 

= 

****** 

GX 

*11-223 

DSARDP 

:: 

****** 

GX 

11-221 

DSARDT 

r 

****** 

GX 

11-194 

11-199 

11-220 

DSASHI 

- 

****** 

GX 

♦12-232 

♦12-247 

DSASLO 

- 

****** 

GX 

♦12-231 

12-245 

OSAST 

000000 

RG 

#9-125 

DSCDF 

000130 

R 

8-103 

DSCMCT 

= 

****** 

GX 

H-292 

DSCMSK 

- 

****** 

GX 

14-291 

DSCMX 

- 

000040 

#6-67 

14-316 

OSCVAL 

= 

****** 

GX 

14-304 

DSCVCT 

~ 

****** 

GX 

14-305 

FMT10 

- 

****** 

GX 

7-75 

7-76 

7-77 

7-78 

7-79 

7-80 

FM.10 

= 

000000 

#7-75 

#7-76 

tn-77 

lt7-7& 

117-79 

#7-80 

I$$AS 

r 

****** 

14-334 

NEXT 

= 

****** 

GX 

♦  11-199 

11-206 

PCKBCD 

- 

****** 

GX 

11-222 

RTSPC 

- 

GX 

7-75 

7-76 

7-77 

7-78 

7-79 

7-80 

R$$EIS 

r 

****** 

14-334 

R$$11D 

- 

****** 

14-334 

STRHEX 

000422 

R 

14-293 

14-306 

#14-314 

STRNXT 

- 

****** 

GX 

11-200 

11-208 

SUBAMX 

- 

*■»**** 

GX 

12-261 

SYNERR 

- 

****** 

GX 

♦8-108 

•8-111 

S$$BAS 

= 

X***** 

7-75 
7-79 

7-75 
7-80 

7-76 
7-80 

7-76 

7-77 

7-77 

$ALPNA 

= 

000022 

#9-125 

$ANY 

- 

0C0020 

#9-125 

SBLANK 

-_ 

000006 

#9-125 

SDIGIT 

- 

000024 

#9-125 

SDNlJMB 

= 

000014 

#9-125 

$EOS 

= 

000012 

#9-125 

7-78 


7-78 


7-79 
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257 
258 
259 
260 
261 
262 
265 
26^ 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
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CF 


000606  022767  000006  0000006  6STSK 

0006H  103420 

000616 

000620  012703  OOOOOOG 

000624  016700  OOOOOOG 

000650  012701  000001 

000634 

000640  010123 

000642  162767  000003  OOOOOOG 

000650  005367 

000652 

000654 


000656 


;  TASK 

NAME 

6STSK: 

CMP 

#DSTKMX,.PSTCN 

LEGAL  NUMBER  OF  CHARACTERS? 

BLO 

101$ 

BR  IF  NO 

SAVRG 

<R3> 

SAVE  R3 

MOV 

#DSTTSK,R3 

POINT  TO  STORAGE  FOR  TASK  NAME 

MOV 

.PSTPT,RO 

GET  START  OF  STRING 

10$: 

MOV 

#1,R1 

PERIOD  IS  A  VALID  CHARACTER 

CALL 

$CAT5 

CONVERT  TO  RAD50 

MOV 

R1,(R3)t 

STORE  TASK  NAME 

SUB 

#3,.PSTCN 

MORE  TO  CONVERT? 

BGT 

lOi 

BR  IF  YES 

RESRG 

<R3> 

RESTORE  R5 

RETURN 

;  ERRORS 

101$: 

EMSG$R 

N7 

ILLEGAL  TASK  NAME 
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CI 


1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
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41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
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CORPORATION. 
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MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  30-JAN-81 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF  ITS 
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CF 

m; 


^25 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
456 
437 
438 

439  000750 

440  000754 
441 

442  000760 

443  000764 

444  000770 

445  000772 

446  000774 

447  000776 

448  001000 

449  001002 

450  001006 

451  001010 

452  001014 

453  001016 

454  001022 

455  001026 

456  001030 

457  001032 

458  001034 

459  001036 

460  001050 

461  001054 

462  001060 


017700  OOOOOOG 
062700  000002 


005004 
011000 
001425 
005204 
010046 

012600 

012701      000010 

010002 

062702  000020 

012703  000017' 

122223 

001360 

005301 

003374 


010466  000012 


.SBTTL  CHKDTE  -  CHECK  FOR  VALID  DTE  ADDRESS 


CHKDTE  -  CHECK  FOR  VALID  DTE  ADDRESS 

INPUTS: 

NONE 

OUTPUTS: 

CARRY  CLEAR  -  DTE  ADDRESS  IS  UNIQUE 

R4  =  COUNT  OF  DTES  DEFINED  ALREADY 
CARRY  SET  -  DTE  ADDRESS  IS  NOT  UNIQUE 
R0,R1,R2  DESTROYED 


CHKDTE:  MOV 
ADD 


10$: 


20$: 

30$: 
40$: 


SWSTK$ 

SAVMAP 

CLR 

MOV 

BEQ 

INC 

MOV 

CALL 

MOV 

MOV 

MOV 

ADD 

MOV 

CMPB 

BNE 

DEC 

BGT 

RETC 

RESMAP 

MOV 

RETURN 


aPSJPT.RO 
#H$LDTE,RO 

40$ 

R4 

(R0),RO 

30$ 

R4 

RO,-(SP) 

SCEACX 

(SP)t,RO 

#<DTEALNt1>/2,R1 

R0,fi2 

#L$DTEA,R2 

#DTEPCK,R3 

(R2)+,(R3)+ 

10$ 

R1 

20$ 

RO 

R4,R$R4(SP) 


POINT  TO  PSI  HOME  BLOCK 
POINT  TO  LOCAL  DTE  LISTHEAD 

ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

INITIALISE  DTE  COUNT 

POINT  TO  NEXT  BLOCK  IN  LIST 

BR  IF  END  OF  LIST 

ONE  MORE  BLOCK  SEEN 

SET  UP  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

GET  DTE  ADDRESS  LENGTH 

GET  ADDRESS  OF  LOCAL  DTE  DESCRIPTOR 

POINT  TO  DTE  ADDRESS 

POINT  TO  SPECIFIED  DTE  ADDRESS 

DO  THE  ADDRESSES  MATCH? 

BR  IF  NO:  UNIQUE  SO  FAR 

MORE  OF  ADDRESS  TO  CHECK? 

BR  IF  YES 

INDICATE  DUPLICATE  ADDRESS 

RESTORE  PREVIOUS  MAPPING 

RETURN  COUNT  IN  TASK  R4 
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CFPPSN  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
MACRO  DEFINITIONS 

55 

56 

57 

58 

59 

60 

61 

62 

63 

6'. 

65 

66  000000 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 


00:17  Page  5 
.SBTTL  MACRO  DEFINITIONS 

LIBRARY  MACROS 

.MCALL  PH8DF$,EMSG$R,RETC,SAVRG,RESRG,NTLER$ 
.MCALL   ISTATS, STATES, TRANS 


LIBRARY  SYMBOLS 
PHBDFS 

LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MOV     aKSAR5,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV     (SP)+,SKSAR5 

.ENDM 


DEFINE  PSI  HOME  BLOCK  OFFSETS 


SAVE  APR  5 


RESTORE  APR5 
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CFPPSN 

CREATED   BY 

MACRO     ON  29 

-JUN-85   AT 

00:18 

I     8 

PAGE   2 

SYMBOL 

CROSS  REFERENCE 

CREF 

04.00 

SYMBOL 

VALUE 

REFERENCES 

SCEACX 

r     ****** 

GX 

13-340 

SDIGIT 

=  00002^ 

#10-164 

tDNUMB 

=  oooou 

#10-164 

$EOS 

=  000012 

#10-164 

SERRDI 

00027A 

R 

#8-123 

12-282 

$ERRD2 

000332 

R 

#8-124 

13-361 

SERRPI 

OOOOK 

R 

#8-117 

11-238 

$ERRP2 

000052 

R 

#8-118 

•1-23? 

$ERRP3 

000100 

R 

#8-119 

■  1-255 

SERRPI 

000130 

R 

#8-120 

11-267 

$ERRP5 

0001 5A 

R 

#8-121 

13-362 

$ERRP6 

000226 

R 

#8-122 

13-363 

JERRI T 

-      ****** 

GX 

9-158 

SEXIT 

=  000000 

#10-164 

SFAIL 

=   177777 

#10-164 

$GPRM 

-      ****** 

10-164 

SHEADR 

-      ****** 

GX 

13-335 

SLAMDA 

=  000000 

#10-164 

SNUMBR 

=  000002 

#10-164 

SQPSN 

000000 

RG 

#9-143 

$RAD50 

=  000016 

#10-164 

SRONLY 

-    ****** 

10-164 

10-164 

10-164 

SSTRNG 

=  000004 

#10-164 

SSUBXP 

=  000010 

#10-164 

SXALOC 

=    ****** 

GX 

13-333 

$$$FLG 

^    177??7 

#10-164 

$$$KEY 

=    177777 

#10-164 

. PNUMB 

=   ****** 

GX 

11-246 

11-262 

12-289 

. PNUMH 

-   ****** 

GX 

11-244 

11-260 

12-287 

.PSTCN 

r     ****** 

GX 

11-217 

.PSTPT 

-     ****** 

GX 

11-227 

.TPARS 

=     ****** 

GX 

9-149 

CFPPSN  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:18  PAGE   3 
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103A03 

010067  000006' 


103403 

010067  000010' 


CFPPVC  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00; 
PVC$DF  ACTION  ROUTINES 

342 
343 
3A4 
345 

346  000244 

347  000250 

348  000252 

349  000256 
350 
351 
352 

353  000260 
354 
355 
356 
357 

358  000266 

359  000272 

360  000274 

361  000300 
362 
363 
364 

365  000302 
366 
367 
368 
369 

370  000310 

371  000316 

372  000320 

373  000324 

374  000526 

375  000332 

376  000336 
377 
378 
379 

380  000340 
381 
382 
383 
384 

385  000346 

386  000352 

387  000354 

388  000360 

389  000362 

390  000370 
"  000374 
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022767  000003  OOOOOOG  PVOWN 

103410 

016700  OOOOOOG 

005001 

010067     000012' 


005767 
001011 
1057(7 

001006 
116767 


OOGuOOb 
00C001G 
OOOOOOG  000023' 


391 
392 
393 
394 
395 


000376 


PVFG:    TST 

.PNUMH 

BNE 

101$ 

TSTB 

.PNUMB+1 

BNE 

101$ 

MOVB 

.PNUMB.PVCFLG 

CALL 

PVEND 

RETURN 

;  ERRORS 

l01$:   EMSG$R 

N2 

;  MAXIMUM  BLOCK 

SIZE 

PVPSZ:   CALL 
BCS 
MOV 
RETURN 

CHK8LK 

101$ 

RO.PVCPSZ       ; 

;•  ERRORS 

101$:   EMSG$R 

P8 

•  WINDOW  SIZE 

PVWSZ:   CALL 
BCS 
MOV 
RETURN 

CHKWND 

101$ 

RO.PVCWSZ 

■  ERRORS 

101$:   EMSG$R 

00 

•  PROCESS  OWNER 

PVOWN:   CMP 
BLO 
MOV 
CLR 
CALL 
MOV 
RETURN 

#3,.PSTCN 

10l$ 

.PSTPT.RO 

R1 

$CAT5 

RO.PVCOWN 

;  ERRORS 

101$:   EMSGSR 

N1 

;  FLAGS  BYTE 

CHECK  FOR  LEGAL  BLOCK  SIZE  VALUE 

BR  IF  ERROR 

SAVE  MAXIMUM  BLOCK  SIZE 


ILLEGAL  MAXIMUM  BLOCK  SIZE 


CHECK  FOR  LEGAL  WINDOW  SIZE  VALUE 
BR  IF  ILLEGAL  VALUE 
SAVE  WINDOW  SIZE 


ILLEGAL  WINDOW  SIZE 


LEGAL  PROCESS  OWNER? 

BR  IF  NO 

POINT  TO  STRING  TO  CONVERT  TO  RAD50 

PERIOD  IS  NOT  A  VALID  TERMINATOR 

CONVERT  TO  RAD50 

SAVE  PROCESS  OWNER  NAME 


ILLEGAL  PROCESS  OWNER  NAME 


LEGAL  VALUE? 

BR  IF  NO 

LEGAL  VALUE? 

BR  IF  NO 

SAVE  FLAGS  BYTE 

CREATE  PVC  NAME  BLOCK  AND  XCB 


ILLEGAL  FLAGS  BYTE  VALUE 
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CFPPVf. 

CREATED  BY 

MACRO     ON  29 

-JUN-85   AT 

00:19 

SYMBOL 

CROSS   REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

SDIGIT 

=  00002A 

#10-200 

SDNUMB 

=  000014 

#10-200 

$EOS 

=  000012 

#10-200 

SERRNO 

000040 

R 

#8-156 

11-312 

13-444 

SERRNI 

000100 

R 

#8-157 

12-380 

$ERRN2 

000134 

R 

#8-158 

12-395 

$ERRN3 

000166 

R 

#8-159 

13-445 

SERROO 

-   ****** 

GX 

12-365 

$ERR05 

r  ****** 

GX 

11-340 

$ERR09 

=   ****** 

GX 

11-328 

$ERRP8 

-  ****** 

GX 

12-353 

SERRIT 

=  ****** 

GX 

9-194 

$EXIT 

=  000000 

#10-200 

$FAIL 

=   177777 

#10-200 

SGPRM 

-      ****** 

10-200 

SHEADR 

r     ****** 

GX 

13-409 

13-427 

13-432 

SLAMDA 

=  000000 

#10-200 

SNUMBR 

=  000002 

#10-200 

SQPVC 

000000 

RG 

#9-178 

$RAD50 

=  000016 

#10-200 

SRONLY 

=    ****** 

10-200 

10-200 

10-200 

SSTRNG 

=  000004 

#10-200 

SSUBXP 

=  000010 

#10-200 

SXALOC 

~      **!:*** 

GX 

13-407 

14-462 

$$$FLG 

=    Mllll 

#10-200 

$$$KEY 

=  Mini 

#10-200 

.PNUMB 

~  ****** 

GX 

11-319 

11-335 

12-387 

.PNUMH 

3  ****** 

fix 

11-317 

11-333 

12-385 

.PSTCN 

-  ****** 

fix 

11-291 

12-370 

.PSTPT 

-  ****** 

GX 

11-299 

12-372 

.TPARS 

=  ****** 

GX 

9-185 

I  10 
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CREF   04.00 


20-695 


15-514 


20-683 


12-389 
20-703 


20-700 


20-702 


20-705 


CFPPVC 
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CFPRDT  - 

INITIAL  CONFIG 

FILE  SC 

CHK.RDT  - 

CHECK 

■OR  UNIQUE  RDT 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

000444 

017700 

OOOOOOG 

294 

000450 

062700 

000004 

295 

296 

000454 

297 

000460 

298 

000464 

011000 

299 

000466 

001424 

300 

000470 

010046 

301 

000472 

302 

000476 

012600 

303 

000500 

01000 

304 

000502 

06270 

000002 

305 

000506 

012702 

000000- 

306 

000512 

012703 

000006 

307 

000516 

122122 

308 

000520 

001361 

309 

000522 

005303 

310 

000524 

003374 

311 

000526 

312 

000540 

313 

000544 

314 

315 

000001 

I  11 

00:15 


.SBTTL  CHKRDT  -  CHECK  FOR  UNIQUE  RDT 

y 

CHKRDT  -  CHECK  FOR  UNIQUE  REMOTE  DTE  NAME 

INPUTS: 

RDTNAM  -  SPECIFIED  RDT  NAME 

OUTPUTS: 

CARRY  CLEAR  -  REMOTE  DTE  NAME  IS  UNIQUE 
CARRY  SET  -  REMOTE  DTE  NAME  IS  NOT  UNIQUE 
RO  DESTROYED 


CHKRDT:  MOV 
ADD 


10$: 


20$: 


25$: 
30$: 


SWSTK$ 

SAVMAP 

MOV 

BEQ 

MOV 

CALL 

MOV 

MOV 

ADD 

MOV 

MOV 

CMPB 

BNE 

DEC 

BGT 

RETC 

RESMAP 

RETURN 

.END 


aPSIPT.RO 
*H$RDTE,RO 

30$ 

(RO),RO 

25$ 

RO,-(SP) 

SCEACX 

(SP)+,RO 

RO.RI 

#R$NAM,R1 

#RDTNAM,R2 

*RDTEMX,R3 

(R1)+,{R2)t 

10$ 

R3 

20$ 

RO 


GET  ADDRESS  OF  PSI  HOME  BLOCK 
POINT  TO  REMOTE  DTE  LISTHEAD 

ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

GET  NEXT  BLOCK  IN  LIST 

BR  IF  END  OF  LIST 

SET  UNMAPPED  ADDRESS  FOR  CONVERSION 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

GET  ADDRESS  OF  REMOTE  DTE  BLOCK 

POINT  TO  REMOTE  DTE  NAME 

POINT  TO  SPECIFIED  REMOTE  DTE  NAME 

GET  LENGTH  OF  NAME 

IS  THE  NAME  UNIQUE? 

BR  IF  YES 

MORE  TO  CHECK? 

BR  IF  YES 

ELSE  NOT  UNIQUE  -  SET  USER  C-8IT 

RESTORE  PREVIOUS  MAPPING 


J  n 
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A$$CHK= 

A$$CPS= 

A$SPRI= 

A$$TRP= 

CERR  = 

CFGBF  = 

CFGS7  = 

CFLIN  = 

CTIMR 

C$tCKP= 

C$$ORE= 

CS$RSH= 

D$$BU6= 

D$$1S<= 

D$$L11= 

D$$YNC= 

D$$YNM= 

CND 

E$$XPR= 

FMT10  = 

FMT8  = 

FM.10  = 

FM.8  = 

F$$LVL= 

G$$TPP= 

G$STSS= 

G$$TTK= 

G$$WRD= 

HF$DLM= 

HF$GWY= 

.  ABS. 

DATA 

SSTATE 

SKTAB 

$KSTR 


000000 
000000 
000000 
000000 

****** 


00021  OR 

000000 

000400 

177564 

1775U 

000000 

000001 

000000 

000000 

000030R 

000000 

******  G 

******  (3 

000000 

000000 

000001 

000000 

000000 

000000 

000000 

000002 

000010 

000104 
000250 
000212 
000040 
000002 
000007 
Errors  detected: 


HF$H0S= 

HF$X[)F  = 

H$CUG 

HSDST 

H$D29 

H$FLG 

HSGLEN 

HSGLT 

002  HSGNAM 
H$GNML= 
H$6PT 
HSHITS 
H$HLEN 
HSLBDA 
HSLBDN 
HSLDTE 
HSLEN 

003  HSLOTS 
HSNETU 
H$NML  = 
H$NPT 
H$PTB 
HSPVC 
HSRDTE 
HSRNW 
H$SVC 
H$TRB 
HSXAVL 
HSXBIA 


000004 
000020 
000010 
000012 
000014 
000000 
000104 
000044 
000050 
000020 
000046 
000034 
000044 
000070 
000072 
000002 
000042 
000032 
000024 
000006 
000022 
000020 
000006 
000004 
000042 
000036 
000016 
000100 
000074 


H$X29C 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

l<;$$TPS= 

LDSLP  = 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

MAXVC 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

H$$NET= 

M$$OVR= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PSIPT  = 

P$$P45= 


000040 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

000000 

000000 

000001 

000000 

000206R 

000124 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

******  GX 

000000 


P$$WRD= 
QSACTC 
Q$AUC 
Q$CLEN= 
0$CT!M 
Q$ICRE 
Q$LEN 
QSMXAC 
QSHXVC 
QSTCLZ 
Q$$0PT= 
RTSPC  = 
002  R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SYNERR= 
S$$WRG= 
S$$YSZ= 
T$$KMG= 
T$$MIN= 
V$$CTR= 
X$$DBT= 
X29CTM 
X29DF 
X29END 
X29KW 
X29MXC 
X29ST 


0^^000 

C  3004 

0U0006 

000006 

000000 

000014 

000016 

000012 

000002 

000010 

000010 

******  GX 

000000 

000001 

000000 

000000 

******  GX 

000000 

007600 

000000 

000000 

001000 

000000 

0001 04R 

OOOOOOR 

000130R 

OOOOOORG 

000052R 

OOOOOORG 


000 
001 
002 
003 
004 
005 
0 


(RU,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,C0N) 


ZTIME  = 
$ALL16= 
$ALPHA= 
$ANY  = 
$BLANK= 
$DIGIT= 
$DNUMB= 
$EOS  = 
$ERR1T= 
$ERR9A 
$ERR9B 
$ERR9C 
$ERR9D 
$EXIT  = 
$FAIL  = 
$LAMDA= 
$NUHBR= 
$0X29 
$RAD50= 
$STRNG= 
$$UBXP= 
$$$FLG= 
$$$KEY= 
$$$R  = 
003  $$$STA= 
$$$TMP= 
. PNUMB= 
.PNUMH= 
.TPARS= 


004 


****** 
****** 
000022 
000020 
000006 
000024 
000014 
000012 

****** 

OOOOOOR 

000036R 

000076R 

0001 32R 

000000 

177777 

000000 

000002 

OOOOOORG 

000016 

000004 

000010 

177777 

000000 

000010 

000000 

OOOOOOR 


GX 


****** 
****** 


003 


GX 
GX 
GX 


♦•*  Assembler  statistics 

Work  file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  13360  Words   (  53  Pages) 

Size  of  core  pool:  14440  Words   (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

SYfcFPX29!v2|[132,134]CFPX29/CR/-SP=SY:[l,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,[130,10]RSXMCM/PA:l,[132,10]CFPX29 


002 
002 
002 
002 


005 


CFPX29 
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203 
20^ 
205 
206 
207 

208  000060 

209  00006A 

210  000066 

211  000072 
212 

213 

21A 

215  00007A 

216 

217 

218 

219 

220  000102 

221  000106 

222  000110 

223  0001U 
22^^  000116 
225  000122 
226 

227 
228 

229  00012A 

230  000132 
231 

232 
233 
23A 

235  OOOKO 

236  OOOUA 

237  000K6 

238  000152 
23? 

2A0 

2A1 

2A2  0001 5A 

2A3 

2AA 

2A5 

2A6 

21^1   000162 

2A8  000166 

2A9  000170 

250  0001 7A 

251  000176 

252  000202 
253 

25A 
255 

256  00020A 

257  000212 


103A03 

010067  OOOOOOG 


103A06 

020067  OOOOOOG 

103A06 

010067  OOOOOOG 


103A03 
110067 


OOOOOOG 


103A06 

020067  OOOOOOG 

103A06 

010067  OOOOOOG 


.SBTTL   X3P$DF  ACTION  ROUTINES 


DEFAULT  BLOCK  SIZE 


&LKDEF:  CALL  CHK8LK 

BCS  101$ 

MOV  RO.BLKSZD 
RETURN 


ERRORS 
101$:   EMSGSR 


P7 


MAXIMUM  BLOCK  SIZE 

BLKMAX:  CALL  CHKBLK 

BCS  101$ 

CMP  RO.BLKSZD 

BLO  102$ 

MOV  RO.SLKSZM 
RETURN 


ERRORS 


l01$: 
102$: 


EMSG$R  P8 
EMSG$R  01 


DEFAULT  UiNDOW  SIZE 

WNDDEF:  CALL  CHKWND 

BCS  101$ 

M0V8  RO,WNDSZD 
RETURN 


ERRORS 
101$:   EMSG$R 


P9 


MAXIMUM  WINDOW  SIZE 


WNDMAX: 


CALL 

BCS 

CMP 

BLO 

MOV 

RETURN 


ERRORS 


101$: 
102$: 


EMSG$R 
EMSGSR 


CHKWND 

101$ 

RO.WNDSZD 

10J$ 

RCWNDSZM 


00 
02 


CHECK  FOR  LEGAL  BLOCK  SIZE  VALUE 
BR  IF  ILLEGAL  VALUE 
STORE  DEFAULT  BLOCK  SIZE 


ERROR  -  ILLEGAL  DEFAULT  BLOCK  SIZE 


CHECK  FOR  LEGAL  BLOCK  SIZE  VALUE 

BR  IF  ILLEGAL  VALUE 

IS  DEFAULT  IN  RANGE? 

BR  IF  NO 

STORE  MAXIMUM  BLOCK  SIZE 


ERROR 
ERROR 


ILLEGAL  MAXIMUM  BLOCK  SIZE 
DEFAULT  EXCEEDS  MAXIMUM 


CHECK  FOR  LEGAL  WINDOW  SIZE  VALUE 
BR  IF  ILLEGAL  VALUE 
STORE  DEFAULT  WINDOW  SIZE 


ERROR  -  ILLEGAL  DEFAULT  WINDOWSIZE 


CHECK  FOR  LEGAL  WINDOW  SIZE  VALUE 

BR  IF  ILLEGAL  VALUE 

IS  DEFAULT  IN  RANGE? 

BR  IF  NO 

STORE  MAXIMUM  WINDOW  SIZE 


ERROR 
ERROR 


ILLEGAL  MAXIMUM  WINDOW  SIZE 
DEFAULT  EXCEEDS  MAXIMUM 
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00:21 


229 
230 
231 
232 
233 
23A 
235 
236 
237 
23? 
239 
240 
241 
242 
^43 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 


000272 

000272  010100 

000274 

000300     103401 

000302 


PR.XFR  -  READ  PROCESS  TASK  IMAGE  INTO  CORE 

THIS  ROUTINE  IS  CALLED  TO  READ  THE  PROCESS  TASK  IMAGE  INTO  CORE. 

INPUTS: 

R1=START  ADDRESS  OF  WHERE  TO  LOAD  THE  CETA8  TASK  IMAGE 

OUTPUTS: 

C-SIT=SUCCESS/FAILURE 
RO=DESTROYED 


PR.XFR: 


MOV  Rl.fiO 

CALL  $READ 

BCS  101$ 
RETURN 


ERROR   CONDITION 


000304      116777     OOOOOOG  OOOOOOG    101$: 
000312     012767     000042     000000' 
000320 


000001 


MOVB    $IOS8,a$CL10S 
MOV     *ERR34, ERROR 
RETURN 


.END 


COPY  CETAB  START  ADDRESS 
READ  CETAB  INTO  MEMORY 
IF  CS,  FAILURE 


COPY  ERROR  CODE 

PROCESS  IMAGE  READ  FAILURE 
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LBMO  -  LOGICAL  BLOCH  I/O  ROUTI 
Table  ot  contents 


MACRO  V05.03b  Saturday  29-Jun-85 


I  15 

00;21 


s- 

ss 

ft- 

Al 

/- 

100 

H- 

vo 

V- 

1S1 

10- 

208 

MACRO  DEFINITIONS 

LOCAL  DATA 

SCLOPE  -  OPEN  A  FILE 

$RL8L  -  READ  LABEL  BLOCK 

SREADX  -  REAi)  INTO  EXTENDED  MEMORY 

$READ  -  READ  LOGICAL  BLOCK 
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LDUIf    -  FIND   THE   LOAD  UK   FOR  N  MACf)0  V05.05b   Saturday   29-Jun-85 


iol^ 


1  Page  4 


3 

5 

6 
7 
8 
9 
10 
11 
■2 
13 
U 
15 
1(S 
17 
18 
19 
20 
21 
22 
25 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AC 
Al 
A2 
1.1 
hi, 
i5 
A6 
47 
48 
49 
50 
51 
52 
53 


.TITLE  LDUK  -  FIND  THE  LOAD  UK  FOR  NTl 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  HAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHi  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

INSTALLED  DISK/NETWORK  UK  CALCULATION  ROUTINE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  H-DEC-79 

DECNET-llM/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI.  1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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CFPCUG  -  INITIAL  CONFIG  FILE 
C'JGSDF  STATE  TABLES 

UO 

U2  000052 

K^, 

1A5 

He  000052 

K7  000052 

U8 

K9  000052 

150  000052 

151 

152  000052 

155  000052 

154 

155  000052 

156  000052 
157 

158  000052 

159  000052 

160  000052 
161 

162  000052 

163  000052 

164  000052 
165 

166  000052 

167  000052 
168 

169 
170 

171  000052 

172  000052 

173  000052 
174 

175  000052 
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.SBTTL   CUGSDF  STATE  TABLES 
ISTATS  CUGST,CUGKU 


;  CUCSDF  STATE 

TABLES 

STATES 
TRANS 

CUGDF 
XCUGSDFX,,,1,SyNERR 

STATES 
TRANS 

$STRNG,,CUNAM 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SDIG1T,,CUNBST 

STATES 
TRANS 
TRANS 

CUNXT 
SDIGIT,CUNXT,CUGDIG 
SLAMDA,,CUNBEN 

STATES 
TRANS 
TRANS 

IEND,SEXIT,C'JEND 

STATES 
TRANS 

SNUMBR,,CUFG 

•  C  'CK  FOR  END 

OF  SOURCE  LINE 

STATES 
TRANS 
TRANS 

END 
<';>,SEXIT 
SEOS.SEXIT 

CLOSED  USER  GROUP  NAME 


START  OF  CLOSED  USER  GROUP  NUMBER 


ANOTHER  DIGIT 
END  OF  CUG  NUMBER 


CLOSED  USER  GROUP  FLAGS  BYTE 


STATES 
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MACRO  DEFINITIONS 


55 
56 
57 
58 
59 
60 


.SBTTL  MACRO  DEFINITIONS 

LIBRARY  MACROS 

.MCALL  FMSG$R,NTLER$,SAVRG,RESRG,ASL$, STATES, TRANS, I  STATS 


CFPDSA  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.C3b  Saturday  29-Jun-85  00:15  Page  6 


nrAi      cvMDni      ncrtMIT'nMC 


J     3 

CFPDSA 

CREATED   BY 

MACRO     ON  29 

-JUN-85   AT 

00:16 

PAGE   2 

SYMBOL 

CROSS   REFERENCE 

CREF       04.00 

SYMBOL 

VALUE 

REFERENCES 

SERRMO 

000106 

R 

#7-78 

12-252 

$ERRM2 

000136 

R 

#7-79 

•4-312 

$ERRM3 

000166 

R 

#7-80 

K-299 

SERRN2 

000000 

R 

#7-75 

13-284 

$ERRN8 

000022 

R 

#7-76 

11-213 

$ERRN9 

000056 

R 

#7-77 

12-237 

SERRIT 

=   ****** 

GX 

8-118 

SEXIT 

=  000000 

#9-125 

$FA1L 

=   177777 

#9-125 

SGPRM 

z:     ****** 

9-125 

SLAMDA 

=  000000 

#9-125 

SNUMBR 

=  000002 

#9-125 

SQDSA 

000000 

RG 

#8-101 

SQDSC 

000006 

RG 

#8-103 

$RAD50 

=  000016 

#9-125 

SRONLY 

-  ****** 

9-125 

9-125 

9-125 

SSAVRG 

-  ****** 

GX 

11-218 

SSTRNG 

=  000004 

#9-125 

SSUBXP 

=  000010 

#9-125 

$$$FLG 

=   177777 

#9-125 

$$$KEY 

=   177777 

#9-125 

.PNUMB 

=   ****** 

GX 

12-259 

.PNUMH 

r  ****** 

GX 

12-257 

.PSTCN 

~     ****** 

GX 

13-272 

14-315 

.PSTPT 

=  ****** 

GX 

13-276 

14-319 

.TPARS 

r  ****** 

GX 

8-109 

CFPDSA  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:16  PAGE   3 
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CFPDST 
DSTEND 


INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:16 
END  OF  DESTINATION  DESCRIPTOR  BLOCK  MACROS 
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Ci 


278 
279 
280 
281 
282 

283  00066A 

284  000672 

285  00067A 

286  000700 

287  000706 

288  000710 

289  0007U 

290  000716 

291  000722 

292  000726 

293  000730 
29A  000734 

295  000740 

296  000742 

297  000744 

298  000746 

299  000750 

300  000752 

301  000754 

302  000756 

303  000760 

304  000764 

305  000766 
306 

307 
308 

309  000770 

310  000776 

311  001004 


.SBTTL  DSTEND  -  END  OF  DESTINATION  DESCRIPTOR  BLOCK  MACROS 


DSTEND  -  END  OF  DESTINATION  DESCRIPTOR  BLOCK  MACROS 


126767 
001044 
017700 
132767 
001003 
062700 
000402 
062700 

103420 
012701 
012700 
012002 
001406 
111202 
006202 
005502 
060201 
005720 
000770 

103404 


OOOOOOG  OOOOOOG  DSTEND: :CMPB 

BNE 
OOOOOOG 
OOOOOOG  OOOOOOG 


000012 
000014 


000032 
OOOOOOG 


10$: 
20$: 


30$: 


50$: 


MOV 

BITS 

BNE 

ADD 

BR 

ADD 

CALL 

BCS 

MOV 

MOV 

MOV 

BEQ 

MOVB 

ASR 

ADC 

ADD 

TST 

BR 

CALL 

BCS 

RETURN 


DSCMCT,DSCVCT 

104$ 

aPSIPT.RO 

#DS.X29,DSFLG 

10$ 

#H$DST,RO 

20$ 

#H$D29,R0 

CHKDSN 

101$ 

#D$FLEN,R1 

#DSTVAR,RO 

(R0)+,R2 

50$ 

(R2),R2 

R2 

R2 

R2,R1 

(R0)  + 

30$ 

ALLDST 

103$ 


ERRORS 


101$ 
103$ 
104$ 


EMSG$R  M7 
EMSG$R  M9 
EMSG$R  6M 


ARE  CALL  DATA  MASK/VALUE  SAME  LENGTH? 

BR  IF  NO  -  ERROR 

POINT  TO  PSI  HOME  BLOCK 

IS  THIS  AN  X29  DESCRIPTOR  BLOCK? 

BR  IF  YES 

ELSE  POINT  TO  X25  LISTHEAD 

CONTINUE  IN  COMMON  CODE 

POINT  TO  X29  LISTHEAD 

CHECK  UNIQUENESS  OF  DESTINATION  NAME 

BR  IF  ERROR 

GET  LENGTH  OF  FIXED  FIELDS 

POINT  TO  VARIABLE  FIELDS  TABLE 

GET  ADDRESS  OF  COUNT  FIELD 

BR  IF  END  OF  TABLE 

GET  COUNT  FIELD 

GET  BYTE  COUNT  (FROM  PACKED  COUNTS) 

UPDATE  DESTINATION  DESCRIPTOR  LENGTH 
POINT  PAST  ADDRESS  OF  SPECIFIED  FIELD 
GET  NEXT  FIELD 

ALLOCATE  DESTINATION  DESCRIPTOR  BLOCK 
BR  IF  UNSUCCESSFUL  ALLOCATION 


DESTINATION  NAME  NOT  UNIQUE 
DESTINATION  BLOCK  ALLOCATION  FAILURE 
ILLEGAL  CALL  DATA  MASK/VALUE 


CFPDST 
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MACRO  DEFINITIONS 


55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 

65  000000 

66  000000 

67  000000 
68 

69 
70 
71 
72 
73 
Ik 
75 
76 
77 


.SBTTL  MACRO  DEFINITIONS 

LIBRARV  MACROS 

.MCALL  EMSG$R,SLTDF$,SAVRG,RESRG,DTEDF$,RETC 
.MCALL  PHBDFS.NTLERS, I  STATS, TRANS, STATES 


LIBRARY  SYMBOLS 

DTEDFS 
PHBDFS 
SLTDFS 

LOCAL  MACRO  DEFINITIONS 

.MACRO  5AVMAP 

MOV     aKSAR5,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV     (SP)+,SKSAR5 

.ENDM 


LOCAL  DTE  DESCRIPTOR  BLOCK  OFFSETS 
DEFINE  PSI  HOME  BLOCK  OFFSETS 
DEFINE  SLT  OFFSETS 


SAVE  APR  5 


RESTORE  APRS 
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CF 
LC 


^6A 
465 
A66 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 

484  001062 

485  001062 
486 

487 
488 

489  001066 

490  001072 

491  001076 
492 

495 
494 

495  001100 

496  001104 

497  001110 

498  001114 

499  001116 

500  001120 

501  001124 

502  001126 

503  001134 

504  001136 

505  001144 

506  001146 

507  001150 

508  001152 

509  001154 

510  001162 

511  001164 

512  001166 

513  001200 

514  001204 


.SBTTL  CHKDEV  -  CHECK  VALIDITY  OF  LINE-ID 

I- 
»*-CHKDEV-CHECK  VALIDITY  OF  LINE-ID 

THIS  ROUTINE  MAKES  SURE  THAT  THE  DEVICE  SPECIFIED  IS  KNOWN  TO  THE  SYSTEM, 
AND  THAT  THE  FIELDS  SPECIFIED  APPLY. 

INPUTS: 

LINNAM  =  DDM  NAME  OF  LINE  IN  RAD50 
LINCTL  =  CONTROLLER  NUMBER 
LINUNT  =  UNIT  NUMBER 

OUTPUTS: 

IF  CC,  LINE  IS  FOUND  AND  IS  LEGAL 

R4  =  SYSTEM  LINE  NUMBER 
ELSE,  UNRECOGNIZED  LINE 


CHKDEV: 

SWSTKS  110$ 

MAKE  SURE  THE  PROCESS  EXISTS, 


016700 
103433 


012704 
017700 
017703 
012302 
005204 
126201 
001010 
126267 
001004 
126267 
001403 
005300 
001361 
000405 
032762 
001001 
000405 


010466  000012 


OOOOOOG 


177777 

OOOOOOG 

OOOOOOG 


000002 

000012  OOOOOOG 

000013  OOOOOOG 

000020  000000 


MOV 

CALL 

BCS 


LINNAM, RO 

FNDPDV 

80$ 


;;  ENTER  SYSTEM  STATE 
AND  IS  A  DDM 


GET  DDM  NAME  TO  LOOK  FOR 

FIND  IT'S  PDV  ADDRESS 

IF  CC,  LINE  NOT  IN  SYSTEM 


;  MAKE 

SURE  TH 

MOV 

MOV 

MOV 

10$: 

MOV 

INC 

CMP8 

BNE 

CMP8 

BNE 

CMPB 

BEQ 

20$: 

DEC 

BNE 

BR 

30$: 

BIi 

BNE 

BR 

80$: 

RETC 

100$: 

MOV 

110$: 

RETURN 

#-1,R4 

aSLTNM,RO 

aSLTMA,R3 

(R3)+,R2 

R4 

L.DDM(R2),R1 

20$ 

L.CTL(R2), LINCTL 

20$ 

L.UNT(R2), LINUNT 

30$ 

RO 

10$ 

80$ 

#LF.MTP,L.FlG(R2) 

80$ 

100$ 

RO 

R4,R$R4(SP) 


CALCULATE  SYSTEM  LINE  NUMBER 

GET  NUMBER  OF  SYSTEM  LINES 

GET  ADDRESS  OF  SYSTEM  LINE  INDEX  TABLE 

GET  ADDR  OF  SYSTEM  LINE  TABLE  ENTRY 

UPDATE  SYSTEM  LINE  NUMBER 

DOES  THIS  PROCESS  MATCH  ? 

IF  NE,  NO  -  KEEP  LOOKING 

DOES  THIS  CONTROLLER  NUMBER  MATCH  ? 

IF  NE,  NO  -  KEEP  LOOKING 

DOES  THIS  UNIT  NUMBER  MATCH  ? 

IF  EQ,  FOUND  THE  CORRECT  SLN 

LOOK  THROUGH  ALL  SYSTEM  LINES 

Jf'hERE,  LINE  NOT  FOUND 

IS  THIS  A  MULTI-DROP  LINE? 

IF  NE,  YES  -  ERROR 

ELSE  VALID  LINE  ID 

SET/CLEAR  USER  CARRY 

SET  USER  R4  TO  SLN 

AND  RETURN  TO  USER  MODE 
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LOCAL  SYMBOLS 


80 
81 
82 
83 
8i 
85 
86 
87 
88 
89 
90 
91 
92 
93 

9-; 


000006 
OOOAOO 
OOOOAO 


000002 
000C04 
000006 
000010 
000012 
OOOOK 


.SBTTL  LOCAL  SYMBOLS 

PNAMMX  =  6 
PORTMX  =  256. 
SPACE  =  40 


MAXIMUM  CHARACTERS  IN  PSI  NETWORK  NAME 
MAXIMUM  NUMBER  OF  PORTS 
ASCII  SPACE 


SAVED  REGISTER  OFFSETS  FOR  SWSTKS 


R$RO  =  2 

R$R1  =  4 

R$R2  =  6 

R$R3  =  10 

R$R4  =  12 

R$R5  =  14 


RO 
R1 
R2 
R3 
R4 
R5 
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CFPPSN 

CREATED   BY     MACRO     ON  29-JUf 

MACRO  CROSS 

REFERENCE 

MACRO  NAME 

REFERENCES 

CALL 

9-U9 

12-275 

DBGTPS 

#10-16^ 

#10-183 

EMSG5.R 

#5-60 

9-158 

ISTATS 

#5-61 

10-164 

MTRANS 

#10-16^ 

NTLERS 

#5-60 

8-117 

PHBDFS 

#5-60 

5-66 

RESMAP 

#5-75 

13-346 

RESRG 

#5-60 

11-226 

RETC 

#5-60 

13-335 

RETURN 

9-153 

11-234 

SAVMAP 

#5-71 

13-338 

SAVRG 

#5-60 

11-222 

STATES 

#5-61 

10-169 

#10-201 

#10-204 

SWSTKS 

13-332 

TRANS 

#5-61 

#10-170 

#10-191 

#10-194 

J  8 

PAGE  3 

CREF   04.00 


13-303           13-313  13-332  13-333  13-340 

#10-187  #10-191  #10-195  #10-199  #10-206  ,  ,  , 

11-238           11-239  11-255  11-267  12-282  13-361  13-362           13-363 

8-118            8-119  8-120  8-121  8-122  8-123  8-124 

13-329 

11-251           11-263  12-278  12-296  13-347  13-357 

#10-172  #10-175  #10-178  #10-181  #10-185  #10-189         #10-193         #10-197 
#10-208 

#10-173  #10-176  #10-179  #10-182  #10-183  #10-186         #10-187         #10-190 

#10-195  #10-198  #10-199  #10-202  #10-205  #10-206 
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PVCtDF  ACTION  ROUTINES 


END  OF  PVCSDF  MACRO 


397 

398 

399 

400 

401  00040A 

402  000410 

103505 

403  000412 

012701 

000016 

404 

405  000416 

406  000422 

407  000426 

408  000432 

103C06 

409  000434 

410  000446 

000461 

411  000450 

010005 

412  000452 

010046 

413  000454 

414  000460 

012600 

415  000462 

010004 

416  000464 

062700 

000002 

417  000470 

012702 

000006 

418  000474 

012701 

000024' 

419  000500 

112120 

420  000502 

005302 

421  000504 

003375 

422  000506 

116764 

000023'  000015 

423  000514 

016764 

000002'  000010 

424  000522 

016764 

OOOOOOG  000012 

425  000530 

426  000534 

103006 

427  000536 

428  000550 

000412 

429  000552 

110164 

000014 

430  000556 

431  000562 

103005 

432  000564 

433  000576 

017700 

OOOOOOG 

434  000602 

062700 

000006 

435  000606 

436  000612 

437  000616 

438 

439  000620 

103404 

440  000622 

441 

442 

443 

444  000624 

'.45  000632 

PVEND:   CALL 
BCS 
MOV 


20$: 


60$: 


70$: 


80$: 


90$: 


100$: 


110$: 


120$: 


SWSTK$ 

SAVMAP 

CALL 

8CC 

RETC 

BR 

MOV 

MOV 

CALL 

MOV 

MOV 

ADD 

MOV 

MOV 

MOVB 

DEC 

BGT 

MOVB 

MOV 

MOV 

CALL 

BCC 

RETC 

BR 

MOVB 

CALL 

BCC 

RETC 

MOV 

ADD 

CALL 

RESMAP 

RETURN 

BCS 
RETURN 


CHKPVC 

101$ 

#C$LEN,R1 

120$ 


$XALOC 

60$ 

RO 

110$ 

R0,R5 

RO,-(SP) 

$CEACX 

(SP)+,RO 

R0,R4 

*C$NAM,RO 

#PVNAMX,R2 

#PVCNAM,R1 

(R1)+,(R0)t 

R2 

70$ 

PVCFLG,C$FLG(R4) 

PVCLCN,C$LCN(R4) 

DTEDES,C$DTE(R4) 

FNDPRT 

90$ 

RO 

100$ 

R1,C$P0RT(R4) 

ALLXC8 

100$ 

RO 

aPSIPT.RO 

#H$PVC,RO 

LNKEND 


102$ 
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CHECK  FOR  VALID  PVC  ID 

BR  IF  ERROR 

GET  LENGTH  OF  SLOCK  TO  ALLOCATE 

ENTER  SYSTEM  STATE 

SAVE  PREVIOUS  MAPPING 

ALLOCATE  A  BLOCK  FROM  NETWORK  POOL 

BR  IF  SUCCESSFUL  ALLOCATION 

ELSE  SET  USER  C-jIT 

AND  EXIT 

SAVE  UNMAPPED  ADDRESS  OF  ALLOCATED  BLOCK 

SET  UP  UNMAPPED  ADDRESS  FOR  CONVERSION 

CONVERT  TO  APRS  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

SAVE  MAPPED  ADDRESS 

POINT  TO  CIRCUIT  ID  FIELD 

GET  LENGTH  OF  CIRCUIT  ID 

POINT  TO  SPECIFIED  CIRCUIT  ID 

STORE  CIRCUIT  ID 

MORE  TO  STORE? 

BR  IF  YES 

STORE  FLAGS  BYTE 

STORE  LOGICAL  CHANNEL  NUMBER 

STORE  DTE  DESCRIPTOR  ADDRESS 
FIND  FREE  PORT  ENTRY 
BR  IF  FOUND  ONE 
ELSE  SET  USER  C-BIT 
AND  EXIT 

STORE  PORT  NUMBER 
ALLOCATE  X25  CIRCUIT  BLOCK 
BR  IF  SUCCESS 
ELSE  SET  USER  C-BIT 
POINT  TO  PSI  HOME  BLOCK 
POINT  TO  PVC  BLOCK  LISTHEAD 
LINK  CURRENT  BLOCK  (IN  R5)  TO  LIST 
RESTORE  PREVIOUS  MAPPING 


ERRORS 

i01$:   EMSGSR  NO 
102$:   EMSG$R  N3 


BR  IF  ERROR 


INVALID  PVC  ID 

PVC/XC8/P0RT/HASH  ALLOCATION  FAILED 
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CFPPVC     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:19  PAGE  4 

MACRO  CROSS  REFERENCE  CREF   OA.OO 
MACRO  NAME      REFERENCES 

CALL          *9-?85  12-346    12-358    12-374    12-390    13-401     13-405    13-407    13-413    13-425 

'•'-'-          13-430  13-435    14-462    14-466    14-469    14-470    14-474    15-499    15-504    16-538 

DBGTPS        #10-200  #10-2?3    #10-229    #10-233    #^0-237   #^0-241    #10-245    #10-249    #10-253    #10-257 

EMSGSR        #5-59^^  "l-'m^           11-312    11-328    11-340    12-353    12-365    12-380    12-395    13-444 

13-445  20-695 

ISTATS        #5-60  10-200 
MAP           #5-80 

MTRANS        #10-200  ^„     „  ,^„ 

NTLERS        #5-60  8-156     8-157     8-158     8-159 

PHBDFS        #5-60  5-64 

PVCDFS         #5-59  5-65 

RESMAP         #5-74  13-436     15-515     16-552     18-638 
RESR6          #5-59 

iiVunn       v^i  \r-foi    ]rsi    ]r.\ii    ir.ii'^    '^nr^    12-376    12-391    13-437    13-440 

U-479  15-516           16-553          17-597          18-639          19-659          20-688           20-691           20-707 

SAVMAP                     #5-70  13-406           15-500           16-535           18-615 

STATES                    #5-60  10-205         #10-208        #10-211         #10-215         #10-218        #10-221         #10-224         *10-227        *10-231 

#10-235  #10-239        #10-243        #10-247        #10-251         #10-255         #10-259        #10-263        #10-269         #10-272 

#10-275  #10-278        #10-281         #10-284 

SUSTKS                        13-405  15-499           20-680 

TRANS                      #5-60  #10-206        #10-209        #10-212        #10-213        #10-216         #10-219        #10-222         #10-225         *10-228 

#10-229  #10-232         #10-233        #10-236        #10-237        #10-240         #10-241         #10-244         *10-245         #0-248 

#10-249  #10-252         #10-253        #10-256        #10-257        #10-260        #10-261         #10-264         #10-265         #10-270 

#10-273  #10-276         #10-279        #10-282 

XCBDFS                       #5-59  5-66 
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>'FILE«MD"CFPRDT 


CFPRDT 

-  INITIAL  CONFIG 

FILE  SC 

MACRO  V05.03 

Symbol 

able 

A$$CHK= 

000000 

HF$XDF= 

000020 

A$$CPS= 

000000 

HSCUG 

000010 

A$$PRI= 

000000 

H$DST 

000012 

At$!RP= 

000000 

H$D29 

OOOOU 

CERR  = 

•*♦•♦«  GX 

H$FLG 

000000 

CFGBF  = 

*«*••*  GX 

HSGLEN 

000104 

CFGS2  = 

•♦««*«  GX 

H$GLT 

000044 

CFLIN  = 

♦»•♦»«  GX 

HSGNAM 

000050 

CHKRDT 

000A44R 

H$GNML= 

000020 

COUNT  = 

**»*♦.  GX 

H$GPT 

000046 

C$$CKP= 

000000 

HSHITS 

000034 

CS$ORE= 

000400 

HSHLEN 

000044 

C$$RSH= 

17756A 

HSLBDA 

000070 

D$$BUG= 

1775K 

HSLBDN 

000072 

D$SISK= 

000000 

HSLDTE 

000002 

D$$Ln  = 

000001 

HSLEN 

000042 

D$$yNC= 

000000 

HSLOTS 

000032 

D$$YNM= 

000000 

HSNETU 

000024 

END 

000036R    003 

HSNML  = 

000006 

E$$XPR= 

000000 

H$NPT 

000022 

FMTIO  = 

*•»*♦♦  GX 

H$PT8 

000020 

FMT8  = 

»♦♦«♦•  GX 

HSPVC 

000006 

FM.10  = 

000000 

HSRDTE 

000004 

FM.8  = 

000000 

H$RNW 

000042 

F$$LVL= 

000001 

H$SVC 

000036 

G$$TPP= 

000000 

HSTRB 

000016 

G$$TSS= 

000000 

HSXAVL 

000100 

G$$TTK= 

000000 

HSXBIA 

000074 

GS$WRD= 

000000 

H$X29C 

000040 

HF$DLM= 

000002 

I$$RAR= 

000000 

HF$GWY= 

000010 

I$$RDN= 

000000 

HF$HOS= 

000001 

KSAR5  = 

*»«»*•  GX 
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ABS. 

DATA 
SSTATE 
SKTAB 
SKSTR 


000104 
000546 
000176 
000046 
000002 
000007 


Erro'-s  detected: 


000 
001 
002 
003 
004 
005 
0 


(RW,1,GBL,A8S,0VR) 
(RW,I,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 
{RW,D,LCL,REL,CON) 


K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
LNKEND= 
L$$ASG= 
L$$DRV= 

L$$pn= 

L$$11R= 

M$$CR8= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

NEXT  = 

N$$ACC= 

N$$BUf= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PCKSCD= 

PSIPT  = 

P$$P45= 

P$$WRD= 

Q$$OPT= 

RDEND 

RDNAM 


177546 

177546 

000000 

000074 

000000 

******  GX 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

******  GX 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

******  GX 

******  GX 

000000 

000000 

000010 

000212R 

000052R 


RDTDF 

RDTE 

RDTEMX= 

RDTEN  = 

RDTENO 

RDTENX 

RDTEP 

RDTEST 

RDTKW 

RDTLN  = 

RDTNAM 

RDTST 

RTSPC  = 

R$DAL 

RSDTE 

R$LEN 

R$LNK 

R$NAM 

RSOUN 

R$$DER= 

R$$K11= 

R$$SND= 

R$$nM= 

SPACE  = 

STRNXT= 

SYNERR= 

S$$WRG= 

S$$YSZ= 

T$$KMG= 

T$$M]N= 

V$$CTR= 


OOOOOOR 

000006R 

000006 

000024R 

000166R 

000020R 

000025R 

0001 30R 

OOOOOORG 

000017 

OOOOOOR 

OOOOOORG 

******  GX 

000013 

000014 

000024 

000000 

000002 

000010 

000000 

000001 

000000 

000000 

000040 

******  GX 

******  GX 

000000 

007600 

000000 

000000 

001000 


003  X$$DBT= 

002  $ALPHA= 

$ANY  = 

002  $8LANK= 
$CEACX= 

003  $DIGIT= 
002  $DNUMB= 

$EOS  = 

004  SERRLO 
SERRLI 

002  $ERRL2 

003  $ERR1T= 
$EXIT  = 
$FAIL  = 
$HEADR= 
$LAMDA= 
$NUMBR= 
$QRDT 
$RAD50= 
$SAVRG= 
$STRNG= 
$SUBXP= 
$XALOC= 
$$$FLG= 
$$$KEY= 
$$$R  = 
$$$STA= 
$$$TMP= 
.PSTCN= 
.P5TPT= 
.TPARS= 


•♦♦  Assembler  statistics 

Work   file  reads:  0 

Work   file  writes :  0 

Size  of  work  file:  13284  Words   (  52  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

Elapsed  time:  00:00:22.57 

SY:CFPRDT.V2,l132,134KFPRDT/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,[130,10]RSXMCM/PA: 


GX 


OOOOOO 

000022 

000020 

000006 

****** 

000024 

000014 

000012 

000036R 

000066R 

000122R 

******  GX 

OOOOOO 

\mn 

******  GX 

OOOOOO 

000002 

OOOOOORG 

000016 

****** 

000004 

000010 

****** 

M7777 
OOOOOO 
000010 
OOOOOO 
OOOOOOR 
******  GX 
******  GX 
******  GX 


GX 


GX 


,[132,10]CFPRDT 


002 
002 
002 


005 


CFPRDT 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:19 


PAGE  1 


K  n 


CFPX29     CREATED  BV  MACRO  ON   29-JUN-85  AT  00:20 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


CERR 

CFGBF 

CFGSZ 

CFLIN 

CTIMR 

EMTIO 

FMT8 

FM.10 

FM.8 

H$X29C 

MAXVC 

PSIPT 

QSCTIM 

0$LEN 

QSMXVC 

QSTCLZ 

RTSPC 

SYNERR 

S$$BAS 

X29CTM 

X29DF 

X29END 

X29KW 

X29MXC 

X29ST 

ZTIME 

$ALL16 

SALPHA 

$ANY 

SBLANK 

SDIGIT 

SDNUMB 

tEOS 

SERRIT 

$ERR9A 

$ERR9B 

$ERR9C 

$ERR9D 

SEXIT 

SFAIL 

SGPRM 

SLAMDA 

SNUMBR 

$0X29 

$RAD50 

SRONLY 

SSTRNG 

SSUBXP 

$$$FLG 

$$$<EY 

. PNUMB 

.  PNUMH 


«»*»»*  GX 
♦**♦**  GX 
.»»***  GX 
000210  R 
♦♦♦♦♦♦  GX 
»♦».*«  GX 
000000 
000000 
OOOOAO 
000206 

****** 

000000 
000016 
000002 
000010 

****** 
****** 
****** 
0001 OA  R 
000000  R 
000130  R 
000000  RG 
000052  R 
000000  RG 


GX 


GX 
GX 


****** 
****** 
000022 
000020 
000006 
00002A 
OOOOU 
000012 
****** 

000000 
000036 
000076 
000132 
000000 
177777 

****** 

000000 
000002 
000000  RG 
000016 
****** 

OOOOOA 
000010 
177777 
T77777 


GX 


GX 
GX 


REFERENCES 

6-75 

7-106 

7-105 

6-73 
#6-85 

6-73 

6-76 
#6-73 
#6-76 

9-179 
#6-84 

9-177 
•9-192 

9-182 
»9-191 
♦9-196 

6-73 
*7-107 

6-73 
#9-167 

7-102 
#9-177 

7-10A 
#9-155 
#8-123 

9-194 

9-183 
#8-123 
#8-123 
#8-123 
#8-123 
#8-123 
#8-123 

7-117 
#6-73 
#6-74 
#6-75 
#6-76 
#8-123 
#8-123 

8-123 
#8-123 
#8-123 
#7-102 
#8-123 

8-123 
#8-123 
#8-123 
#8-123 
#8-123 
9-157 
9-155 


6-74 


6-74 

•9-169 

6-74 

#6-74 

•9-198 

•9-159 

9-197 

9-186 


6-74 

•7-110 

6-73 


#8-123 


9-201 
9-162 
9-172 
9-202 


8-123 


9-159 
9-167 


6-75 

6-75 

9-192 

6-75 

#6-75 
9-191 


6-75 
6-74 


J  12 

PAGE  1 

CREF   04.00 

6-76 
6-76 


6-76 
6-74 


6-75 


6-75 


6-76 


6-76 


8-123 


9-169 


CFPX29 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:20 
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CFPX3P  -   INITIAL   CONFIG  FILE   SC  MACRO  V05.03b  Saturday  29-Jun-85   00:20 
CHNtDF    ACTION   ROU'INES 


Page  12 


259 

.SBTTL 

CHN$DF  ACTION  ROU 

260 
261 
262 

■  LOW 

END  OF  CHANNEL  RANGE 

263 

264 

.ENA8L 

LSfcl 

265  000220 

005767 

OOOOOOG 

CHLO: 

TST 

.PNUMH 

266  000224 

001106 

BNE 

101$ 

267  000226 

016700 

OOOOOOG 

MOV 

.PNUMB,RO       ; 

268  000232 

003503 

BLE 

101$ 

269  000234 

022700 

OOOOOOG 

CMP 

#CHNLMX,RO 

270  000240 

103500 

BLO 

101$ 

271  000242 

010067 

000000' 

MOV 

RO.CHNLLO 

272  000246 

010067 

000002- 

MOV 

RO.CHNLHI 

273  000252 

RETURN 

274 
275 
276 
277 
278  000254 

■  HIGH 

END  OF  CHANNEL  RANGE 

005767 

OOOOOOG 

CHHI: 

TST 

.PNUMH 

279  000260 

001070 

BNE 

101$ 

280  000262 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

281  000266 

003465 

BLE 

101$ 

282  000270 

022700 

OOOOOOG 

CMP 

#CHNLMX.RO 

283  000274 

103462 

BLO 

101$ 

284  000276 

010067 

000002' 

MOV 

RO.CHNLHI 
#K$LEN.R1 

285  0003C2 

286 

287  000306 

012701 

000006 

CHEND: 

MOV 

SUSTKS 

40$ 

288  000312 

CALL 

aALOCB 

289  000316 

103006 

BCC 

10$ 

290  000320 

RETC 

RO 

291  000332 

000440 

BR 

35$ 

292  000334 

016760 

000000'  000002 

10$: 

MOV 

CHNLLO,IC$LOC(R0); 

293  000342 

016760 

000002'  000004 

MOV 

CHNLHI,K$HIC(RO); 

294  000350 

SAVMAP 

295  000354 

016746 

OOOOOOG 

MOV 

DTEDES.-(SP)    ': 

296  000360 

CALL 

$CEACX 

297  000364 

298 

299  000366 

011601 

MOV 

(SP),R1 

062701 

000034 

ADD 

#L$CHLS,R1 

300  000372 

010102 

20$: 

MOV 

R1,R2 

301  000374 

011101 

MOV 

(Rl).RI 

302  000376 

001375 

BNE 

20$ 

303  000400 

005010 

CLR 

(RO) 

304  000402 

305 

306  000404 

010012 

MOV 

R0,(R2) 

016701 

000002' 

MOV 

CHNLHI.RI 

307  000410 

166701 

000000' 

SUB 

CHNLLO.RI 

308  000414 

002001 

BGE 

30$ 

309  000416 

005401 

NEG 

R1 

310  000420 

005201 

30$: 

INC 

R 

311  000422 

062716 

000036 

ADD 

#L$MCHN,(£P) 

312  000426 

060136 

ADD 

Rl,a(SP)t 

313  000430 

RESMAP 

3U  000434 

35$: 

RETURN 

315 

IS  THIS  A  LEGAL  VALUE? 

BR  IF  NO 

GET  SPECIFIED  CHANNEL  RANGE 

BR  IF  ILLEGAL  VALUE 

LEGAL  VALUE? 

BR  IF  NO 

SAVE  LOW  END  VALUE 

THIS  IS  DEFAULT  IF  HIGH  END  VALUE  OMITTED 


IS  THIS  A  LEGAL  VALUE? 

BR  IF  NO 

GET  SPECIFIED  CHANNEL  RANGE 

BR  IF  ILLEGAL  VALUE 

LEGAL  VALUE? 

BR  IF  NO 

SAVE  HIGH  END  VALUE 

GET  NUMBER  OF  BYTES  TO  ALLOCATE 

ENTER  SYSTEM  STATE 

ALLOCATE  CHANNEL  LIST  FROM  EXEC  POOL 

BR  IF  SUCCESSFUL  ALLOCATION 

SET  USER  C-BIT 

AND  EXIT 

STORE  LOW  END  OF  CHANNEL  RANGE 

STORE  HIGH  END  OF  CHANNEL  RANGE 

SAVE  CURRENT  MAPPING 

GET  DTE  DESCRIPTOR  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

POINT  TO  OUTGOING  CHANNELS  LIST 

SAVE  ADDRESS  OF  PREVIOUS  BLOCK 

GET  NEXT  BLOCK  IN  LIST 

BR  IF  NOT  END  OF  LIST 

INITIALIZE  LINK  WORD 

ADD  BLOCK  TO  CHANNELS  LIST 

GET  HIGH  END  OF  CHANNELS 
COMPUTE  HIGH  MINUS  LOW 
IF  GE,  RESULT  CORRECT 
ELSE,  GET  ACTUAL  DIFFERENCE 
GET  NUMBER  OF  CHANNELS 
POINT  TO  MAX  CHANNELS  CELL 
ADJUST  TOTAL  CHANNEL  COUNT 
RESTORE  PREVIOUS  MAPPING 
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CTBIO  -  CETAB  LOADING  ROUTINES  MACRO  V05.03b 
Symbol  table 


A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

CMODE  = 

C$$C<P= 

C$$ORE= 

C$$RSH= 

DSKBUF 

D$$BUG= 

D$$1SK= 

D$$L11= 

D$tYNC= 

DSSYNM^ 

ERROR 

ERR10 

ERR12 

ERRH 

ERR16 

ERR18 

ERR2 

ERR20 

ERR22 

ERR24 

ERR26 

ERR28 

ERR30 

ERR32 

ERR3A 

ERR36 

ERR4 

ERR6 

ERRS 

ES$XPR= 

FE.CAL= 

FE.CEX= 

FE.DRV= 

FE.DYM= 

FE.EXP; 

FE.EXT= 

FE.EXV= 

FE.FDT= 

FE.LS!= 

FE.MUP= 

FE. 1*1X1  = 

FE.NLG= 

FE.OFF= 

FE.PKT= 

FE.PLA= 


COOOOO 
000000 
000000 
000000 

uoooo 

000000 

OOOAOO 

177564 

OOOOOOR 

1775U 

000000 

000001 

000000 

000000 

OOOOOOR 

000012 

oooou 

000016 
000020 
000022 
000002 
00002A 
000026 
000030 
000032 
000034 
000036 
000040 
000042 
000044 
000004 
000006 
000010 
000000 
000040 
020000 
000010 
010000 
000200 
000001 
000004 
002000 
000400 
000002 
040000 
100000 
001000 
000100 
000020 


.  ABS.  001000 
000322 
DATA  000002 
..BUF  000002 
Errors  detected: 


FE.X25= 
F$$LVL= 
F2.ACN= 
F2.AHR= 
F2.0AS= 
F2.DPR= 
F2.EVT= 
F2.GGF= 

005  F2.IRR= 
F2.LIB= 
F2.MP  = 
F2.P0L= 
F2.RAS= 
F2.R8N= 

002  F2.SDW= 
F2.STP= 
F2.SWP= 
F2.WND= 
F3.AST= 
F3.CLI= 
F3.CRA= 
F3.EIS= 
F3.NWK= 
F3.PMN= 
F3.PR0= 
F3.RLK= 
F3.SHF= 
F3.STM= 
F3.TCM= 
F3.UDS= 
F3.UAT= 
F3.XHR= 
F3.11S= 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$WRD= 
HF.CIS= 
HF.EIS= 
HF.FPP= 
HF.QB  = 
HF.UBM= 
I$$RAR= 
I$$RDN= 
KDSARO= 
KDSDRO= 
KINARO= 
KINAR5= 
KINAR6= 


004000 

000001 

000020 

010000 

000001 

000400 

000010 

002000 

001000 

000002 

000004 

000100 

004000 

020000 

000040 

100000 

040000 

000200 

000200 

001000 

000001 

000004 

000002 

004000 

000040 

020000 

040000 

000010 

002000 

000020 

010000 

000100 

000400 

000000 

000000 

000000 

000000 

000200 

000002 

100000 

000004 

000001 

000000 

000000 

172360 

172320 

172340 

172552 

172354 


000 
001 
002 
003 
0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW.D.LCL.REL.COM) 


•*  Assembler  statistics 


Saturday 

J  u 

?9-Jun-85  00:21 

Page  9- 

1 

KINAR7= 

172356 

MPAR  = 

172100 

SWR   = 

177570 

K1SAR0= 

172340 

MPCSR  = 

177746 

S$$WRG= 

000000 

KISAR5= 

172352 

M$$CR8= 

000124 

S$$YSZ= 

007600 

KISAR6= 

172354 

M$$CRX= 

000000 

TPS   = 

177564 

KISAR7= 

172356 

M$$FCS= 

000000 

TS$ACP= 

020000 

KJSDRO= 

172500 

M$$MGE= 

000000 

TS$CHK= 

000100 

KiSDR6= 

172314 

M$$NET= 

000000 

TS$CHP= 

000200 

K]SDR7= 

172516 

M$$OVR= 

000000 

TS$I0P= 

0525^9 

K$$CNr= 

177546 

N$$ACC= 

000001 

TS$NEW= 

000001 

K$$CSR= 

177546 

N$$BUF= 

000001 

TS$NHD= 

C40000 

K$$LDC= 

000000 

N$$LDV= 

000001 

TS$NSD= 

002000 

K$$TPS= 

000074 

N$$MCP= 

000001 

TS$NXH= 

ooSSS? 

L8$REV= 

000400 

N$$MLL= 

000001 

TS$PIC= 

100000 

LD$ACC= 

100000 

N$$H0V= 

000010 

TS$PMD= 

010000 

LD$CLS= 

020000 

N$$NCT= 

000001 

TS$PRV= 

000400 

LD$LP  = 

000000 

N$$PEM= 

000001 

TS$RES= 

000040 

LD$REL= 

000004 

PIRQ  = 

177772 

TS$SLV= 

004000 

LD$RSV= 

040000 

PMODE  = 

050000 

TS$SUP= 

000010 

LD$SUP= 

OOOCIO 

PR.LBL 

000076R 

TS$XHR= 

02S92i 

L$BAS6 

001000 

PR.XFR 

000272R 

T$$KMG= 

000000 

L$6BLK 

000360 

PRO   = 

000000 

T$$MIN= 

000000 

LSBDAT 

000032 

PRl 

000040 

T2$CL]=: 

000001 

LSBEXT 

000552 

PR4   = 

000200 

T2$FMP= 

000002 

L$8FLG 

000050 

PR5   = 

000240 

UBMPR  = 

170200 

L$8FL2 

000774 

PR6 

000500 

UDSAR0= 

177660 

LSBHGV 

000012 

PR7 

000340 

UDSDRO= 

177620 

LSBHRB 

0U0356 

PS 

177776 

UISARO= 

177640 

LSBLDZ 

000016 

P$$P45= 

000000 

UISAR4= 

177650 

LSBLIB 

000040 

P$$WRD= 

000000 

UISAR5= 

177652 

L$8LRL 

000776 

Q$$OPT= 

000010 

UISAR6= 

177654 

LSBLUN 

000562 

RSLDAT 

000026 

U  SAR7= 

177656 

LSBMXV 

000014 

RSLFLG 

000024 

UISDRO= 

177600 

LSBMXZ 

000020 

RSLHGV 

000006 

UISDR4= 

177610 

LSBOFF 

000022 

RSLLDZ 

000012 

UISDR5= 

177612 

LSBPAR 

000004 

RSLMXV 

000010 

UISDR6= 

177614 

LSBPRl 

000546 

RSLMXZ 

000014 

UISDR7= 

177616 

LSBROB 

000564 

RSLNAM 

000000 

V$$CTR= 

001000 

LSBROL 

000566 

RSLOFF 

000016 

X$$OBT= 

000000 

L$BSA 

000010 

RSLSA 

000004 

$ALL16= 

******  GX 

LSBSEG 

000026 

RSLSEG 

000022 

$CLDEQ= 

******  GX 

LSSSGL 

000554 

RSLSIZ 

000054 

$CLIOS= 

«*♦»**  GX 

LSBSYS 

000025 

RSLUND 

000020 

$CLOPE= 

******  GX 

LSBTSK 

000000 

R$$DER= 

000000 

SCTBIO 

OOOOOORG 

L$8WND 

000024 

R$$K11= 

OOOOCl 

$IOSB  = 

******  GX 

LSBXFR 

000550 

R$$SND= 

000000 

SLBXL  = 

000540 

L$$ASG= 

000000 

R$$11M= 

000000 

$LLEN  = 

******  GX 

L$$DRV= 

000000 

SISDRO= 

172200 

$READ  = 

******  GX 

L$$P11= 

000001 

SRO   = 

177572 

$RLBL  = 

******  GX 

L$$11R= 

000000 

SR3   = 

172516 

K  U 
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v!  15 

00:2 
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1 
2 
3 

4 
5 
6 
7 
8 
9 
10 
11 
12 
15 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE  LBNIO  -  LOGICAL  BLOCK  I/O  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  tiY  DIGITAL. 

MODULE  DESCRIPTION: 

LOGICAL  BLOCK  I/O  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-llM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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LDUir  - 

FIND  ri- 

LOCAL  DMA 

55 

56 

57 

58 

59 

60 

61 

62 

63 

6'. 

000000 

65 

ooocoo 

66 

000000 

67 

68 

69 

70 

71 

72 

73 

000000 

7A 

000000 

75 

000000 

FIND   THE   LOAD  UlC   FOR  N  MACRO  V05.03b  Saturday  29-Jun-85   00:21      Page   5 

.SSTIL     LOCAL   DATA 


DEFINE    TC8,    UCB,    AND   DCB  OFFSETS   FOR   RSXIl-M 


0F,f;$$11M 
TC8DF$,UCBDF$,DCBDF$ 


.IF 
.MCALL 

TCBDFS 
UCBDFS 
DCBDFS 

.ENDC 


BUFFER  USED  TO  BUILD  NEW  "DV:[UIC]"  STRING 


;RSX11-M  ONLY 


UIC8F: 


.PSECT 

.BLKU 

.PSECT 


DATA.D 
10 


;START  OF  LOCAL  DATA  PSECT 
;ROOM  FOR  17  CHARS  (OCTAL) 
;START  OF  INSTRUCTION  PSECT 


K  16 
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<.  K 

CFPCUG   - 

INITIAL   CONFIG 

FILE   SC  MACRO 

V05.03b 

Saturday 

29-Jun-85  00:15 

CUGSDF    ACTION  ROUTINES 

177 

.S8TTL 

CUGSDF    ACTION  R 

178 

179 

180 
181 
1P2 

•    CUG 

NAME 

000052 

016700 

OOOOOOG 

CUNAM 

MOV 

.PSTCN.RO 

183 

000056 

02002? 

OOOOOOG 

CMP 

RO,#CUNMMX 

io1$ 

184 

000062 

101022 

BHI 

185 

000064 

012701 

000000' 

MOV 

#CUGNAM,P1 

186 

000070 

012702 

OOOOOOG 

MOV 

#CUNMMX,R2 

187 

000074 

112721 

000040 

10$: 

MOVB 

#SPACE,(R1)+ 

188 

000100 

005302 

DEC 

R2 

189 

000102 

003374 

BGT 

10$ 

190 

000104 

012701 

000000' 

MOV 

#CUGNAM,R1 

191 

00011 0 

016702 

0000006 

MOV 

.PSTPT,R2 

192 

000114 

112221 

20$: 

MOVB 

(R2)  +  ,(R1H 

193 

000116 

005300 

DEC 

RO 

19A 

0C0120 

003375 

BGT 

20$ 

195 

000122 

105067 

000014' 

CLRB 

CUGFLG 

196 

000126 

RETURN 

197 

198 
199 
200 

;    ERHORS 

000130 

i01$: 

EMSG$R 

N2 

Page  11 


GET  NUMBER  OF  CHARACTERS  IN  NAME 

LEGAL  NAME? 

BR  IF  NO 

POINT  TO  CUG  NAME 

GET  LENGTH  OF  NAME 

INITIALIZE  TO  SPACES 

MORE  TO  INITIALIZE? 

BR  IF  YES 

POINT  TO  CUG  NAME 

POINT  TO  SPECIFIED  NAME 

STORE  CUG  NAME 

MORE  TO  STORE? 

BR  IF  YES 

SET   UP  DEFAULT   FOR   FLAGS  BYTE 


ILLLEGAL    CUG  NAME 


L     1 

IrFPC'jG  -   INITIAL   CONFIG  FILE   Sl   MACRO  V05.03b  Saturday   29-Jun-85   00:15 
:^.UG$DF    ACTION  ROUTINES 
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K  2 

CfPDSA  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.C3b  Saturday  29-Jun-85  00:15  Page  6 
LOCAL  SYMBOL  DEFINITIONS 


62 
63 
6A 
65 

66 
67 


.SBTTL  LOCAL  SYMBOL  DEFINITIONS 


OOOOAO 


LOCAL  SYMBOLS 

DSCMX  =  32. 


MAXIMUM  NUMBER  OF  DIGITS  FOR  CALL  DATA 


L  2 

CFPDSA  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:15  Page  7 

FRflOR    MFSSAGFS 


CFPDSA 

CREATED  BY  MACRO  ON  29 

■JUN-85  AT  00 

:16     PA 

MACRO  CROSS 

REFERENCE 

CR 

MACRO  NAME 

REFERENCES 

ASL$ 

#5-60 

14-334 

CALL 

8-109 

11-200 

11-208 

11-222 

DBGTPS 

#9-125 

#9-134 

#9-135 

#9-136 

#9-158 

#10-173 

#10-183 

EMSGSR 

#5-60 

8-118 

11-213  . 

12-237 

1STAT$ 

#5-60 

9-125 

MTRANS 

#9-125 

NTLERS 

#5-60 

7-75 

7-76 

7-77 

RESRG 

#5-60 

14-340 

RETURN 

8-113 
U-341 

11-201 

11-209 

11-224 

SAVRG 

#5-60 

14-314 

STATE! 

#5-60 

9-129 

#9-132 

#9-138 

#10-171 

#10-175 

#10-178 

#10-181 

TRANS 

#5-60 

#9-130 

#9-133 

#9-134 

#9-145 

#9-146 

#9-149 

#9-150 

#10-172 

#10-173 

#10-176 

#10-179 

K  3 

04.00 


12-229    12-243    14-293    14-306 

#9-140  #9-141  #9-142  #9-146     #9-150     #9-154 

12-252    13-284    14-299    14-312 

7-78      7-79      7-80 

12-233  12-248  12-266  13-280  14-295  14-308 

#9-U4  #9-148  #9-152  #9-156  #9   160  10-168 

#10-185 

#9-135  #9-136  #9-139  #9-140     #9-141     #9-142 

#9-153  #9-154  #9-157  #9-158     #9-161     #10-169 

#10-182  #10-183 


>«FILE'*ID*«CFPDST 


L  3 
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513 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 

327  001012 

328  001016 

329  001022 

330  001024 

331  001026 

332  001030 

333  001034 

334  001036 

335  001040 

336  001044 

337  001050 

338  001054 

339  001056 

340  001060 

341  001062 
3',2  001064 
343  001076 
34A  001102 


.SBTTL   CHKDSN  -  CHECK  DESTINATION  NAME 


CHKDSN  -  CHECK  FOR  UNIQUENESS  OF  DESTINATION  NAME 

INPUTS: 

RO  -  ADDRESS  OF  DESTINATION  DESCRIPTOR  LISTHEAD 

OUTPUTS: 

CARRY  CLEAR  -  DESTINATION  NAME  IS  UNIQUE 
CARRY  SET   -  DESTINATION  NAME  IS  NOT  UNIQUE 


011000 
001424 
010046 

012600 
010003 
062703  000004 

012701  OOOOOOG 

012702  000006 
122321 

001361 
005302 
003374 


CHKDSN:  SUSTKS 
SAVMAP 


10$: 


20$: 


30$: 
40$: 


MOV 

BEQ 

MOV 

CALL 

MOV 

MOV 

ADD 

MOV 

MOV 

CMPB 

BNE 

DEC 

B6T 

RETC 

RESMAP 

RETURN 


40$ 

(R0),RO 

30$ 

RO,-(SP) 

$CEACX 

(SP)+,RO 

R0,R3 

#D$NAM,R3 

#DSTNAM,R1 

#DSNAMX,R2 

(R3)+,(R1)+ 

10$ 

R2 

20$ 

RO 


ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

GET  ADDRESS  OF  NEXT  BLOCK 

BR  IF  END  OF  LIST 

SET  UNMAPPED  ADDRESS  FOR  CONVERSION 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

GET  MAPPED  ADDRESS 

POINT  TO  DESTINATION  NAME 

POINT  TO  SPECIFIED  DESTINATION  NAME 

GET  LENGTH  OF  NAME 

IS  NAME  UNIQUE? 

BR  IF  YES 

MORE  TO  CHECK? 

BR  IF  YES 

ELSE  SET  USER  C-BIT 

RESTORE  PREVIOUS  MAPPING 


CFPDST  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
ai  I  h^T  -  iiinriTF  nF<;TiNAT  ion  DFSCRIPTQR  BLOCK 


00:16 
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LOCAL  SYMBOL  DEFINITIONS 
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79 

80 

81 

82 

83 

8A 

000040 

85 

000040 

86 

001000 

87 

000020 

88 

89 

90 

91 

92 

000002 

93 

000004 

94 

000006 

95 

000010 

96 

000012 

97 

000014 

.S8TTL   LOCAL  SYMBOL  DEFINITIONS 


LOCAL  SYMBOL  DEFINITIONS 

SPACE  =  40 
HSHMN  =  32. 
HSHMX  =  512. 
NUMDTE  =  16. 


ASCII  SPACE 

MINIMUM  VALUE  FOR  HASH  TABLE  SIZE 
MAXIMUM  VALUE  FOR  HASH  TABLE  SIZE 
MAXIMUM  DTES  ALLOWED 


SAVED  REGISTER  OFFSETS  ON  STACK  FOR  SWSTKS 


R$RO 
R$R1 
R$R2 
R$R3 
R$R4 
R$R5 


2 

4 

6 

10 

12 

14 


SAVED  RO 

SAVED  R1 

SAVED  R2 

SAVED  R3 

SAVED  R4 

SAVED  R5 
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IA5X  -  SET  APR6  BIAS  CORRECTLY 
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CI 
L( 


516 
517 
518 
519 
520 
521 
522 
523 
52A 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 


.S8TTL  BIASX  -  SET  APR6  BIAS  CORRECTLY 

BIASX  -  SET  APR6  BIAS  CORRECTLY 

INPUTS: 

RO  =  ADDRESS  (POOL  OR  APRS) 

OUTPUTS: 

RO  =  ADDRESS  (POOL  OR  APR6) 


001206 

001206  020027  120000 

001212  103A0A 

00121A  0A2700  160000 

001220  052700  140000 

001224 

000001 


BIASX: 


10$: 


CMP 
BLO 
BIC 
BIS 
RETURN 

.END 


R0,*120000 
lOi 

#160000, RO 
#140000, RO 


ADDRESS  IN  APRS  ? 
BR  IF  NO  (ASSUME  POOL) 
CLEAR  ALL  APR  BITS 
AND  BIAS  FOR  APR6 
RETURN 


L  6. 
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CFPPSN  -  INITIAL  CONFIG  FILE  SC  MACRO  VO5.03b  Saturday  29-Jun-85  00:17 
LOCAL  DATA 
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96 
97 
98 
99 

100 

101 

102  000000 

103 

lOA 

105 

106 

107 

108  000000 

109  000006 

110  000010 

111  000012 


.SBTTL  LOCAL  DATA 

LOCAL  DATA 

.PSECT  DATA,D 

.NLIST  BEX 

LOCAL  DATA  FOR  PSNSDF  MACRO 

PSNNAM:  .BLKB  6 

PSNFLG:  .BLKW  1 

PSNLO:   .BLKW  1 

PSNHI:   .BLKW  1 


PSN  NETWORK  NAME  FROM  PSNSDF  MACRO 
FLAGS  WORD  FROM  PSNSDF  MACRO 
LOW  END  OF  SUBADDRESS  RANGE 
HIGH  END  OF  SUBADDRESS  RANGE 


L  7 
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•jic  c  c  ^  re  c 


»*F!LE*»ID««CFPPVC 
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CCCCCCCC   F 

FFFFFFFFF 

PPPPPPPP 

PPPPPPPP 

VV 

vv 

CCCCCCCC 

CCCCCCCC   F 

fFFFFFFFF 

PPPPPPPP 

PPPPPPPP 

vv 

vv 

CCCCCCCC 

CC          F 

PP      PP 

PP      PP 

VV 

vv 

CC          F 

PP      PP 

PP      PP 

vv 

vv 

CC          F 

PP      PP 

PP      PP 

vv 

vv 

CC          F 

PP      PP 

PP      PP 

vv 

vv 

CC          F 

FFFFFFF 

PPPPPPPP 

PPPPPPPP 

vv 

vv 

CC          F 

FFFFFFF 

PPPPPPPP 

PPPPPPPP 

vv 

vv 

CC          F 

PP 

PP 

vv 

vv 

CC          F 

PP 

PP 

vv 

vv 

CC          F 

PP 

PP 

vv 

vv 

CC          F 

PP 

PP 

vv 

vv 

CCCCCCCC    F 

PP 

PP 

vv 

CCCCCCCC 

CCCCCCCC    F 

PP 

PP 

vv 

CCCCCCCC 

LL 

ssssssss 

TTTTTl 

TTTT 

LL 

ssssssss 

TTTTTl 

1  1  1  1 

-L 

ss 

-L 

ss 

.L 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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417 
AA8 
119 
150 
151 
152 
153 
151 
155 
156 
157 
158 
159 
160 

161  000610 

162  000611 

163  000650 
161  000652 

165  000656 

166  000662 

167  000666 

168  000670 

169  000671 

170  000700 

171  000701 

172  000706 
175  000712 
171  000711 

175  000720 

176  000721 

177  000730 

178  000731 

179  000710 


012701      000106 


103133 
017702 
016216 


005726 
010077 


103115 
016700 
001101 

110163 
016701 
062701 
011163 


OOOOOOG 
000020 


000000' 


000012' 


000023 
OOOOOOG 
000002 
000030 


.SBTTL  ALLXCB  -  ALLOCATE  X25  CIRCUIT  BLOCK 


ALLXCB  -  ALLOCATE  AND  SET  UP  X25  CIRCUIT  BLOCK 

INPUTS: 

PRTADD  -  ADDRESS  OF  ENTRY  IN  PORT  TABLE 

OUTPUTS: 

R3  -  MAPPED  ADDRESS  OF  X25  CIRCUIT  BLOCK  (APR  5  MAPPED  TO  BLOCK) 
R0,R1,R2  DESTROYED 


GET  SIZE  OF  X.25  CIRCUIT  BLOCK 

ALLOCATE  CIRCUIT  BLOCK 

BR  IF  UNSUCCESSFUL  ALLOCATION 

POINT  TO  PSI  HOME  BLOCK 

GET  UNMAPPED  ADDRESS  OF  PORT  TABLE 

MAP  TO  PORT  TABLE 

CLEAN  UP  STACK 

STORE  UNMAPPED  ADDRESS  IN  PORT  TABLE 

INITIALIZE  X25  CIRCUIT  BLOCK 

FIND  HASH  TABLE  ENTRY  AND  SET  UP 

BR  IF  NO  ENTRY  AVAILABLE 

GET  PROCESS  OWNER  NAME 

IF  EQ,  NONE  SPECIFIED 

GET  PDV  INDEX 

STORE  PDV  INDEX 

GET  ADDRESS  OF  $ZTIME 

$ZTIMEt2 

STORE  TIME  SINCE  LAST  ZEROED 


ALLXCB: 

MOV 

#X$LEN,R1 

CALL 

$XALOC 

BCS 

50$ 

MOV 

aPSIPT,R2 

MOV 

H$PTB(R2),-(SP) 

CALL 

$CEACX 

TST 

(SP)  + 

MOV 

RO.aPRTADD 

CALL 

INIXCB 

CALL 

FNDHSH 

BCS 

50$ 

MOV 

PVCOWN,RO 

BEQ 

10$ 

CALL 

FNDPDV 

MOVB 

R1,X$M0WN(R3) 

10$: 

MOV 

ZTIME.RI 

ADD 

#2,R1 

MOV 

(R1),X$TCLZ(R3) 

50$: 

RETURN 

CFPPVC 
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♦•FILE««ID'«CFPRDT 


CCCCCCCC   F 

FFFFFFFFF 

PPPPPPPP 

RRRRRRRR 

DDDDDDDD 

TTTTTTTTTT 

CCCCCCCC   F 

FFFFFFFFF 

PPPPPPPP 

RRRRRRRR 

DDDDDDDD 

TTTTTTTTTT 

CC          F 

PP      PP 

RR      RR 

DD 

DD 

CC          F 

PP      PP 

RR      RR 

DD 

DD 

CC          F 

PP      PP 

RR      RR 

DD 

DD 

CC          F 

PP      PP 

RR      RR 

DD 

DD 

CC          F 

FFfFFFF 

PPPPPPPP 

RRRRRRRR 

DD 

DD 

CC          F 

FFFFFfF 

PPPPPPPP 

RRRRRRRR 

DD 

DD 

CC          F 

PP 

RR  RR 

DD 

DD 

CC          F 

PP 

RR  RR 

DD 

DD 

CC          F 

PP 

RR    RR 

DD 

DD 

CC          F 

PP 

RR    RR 

DD 

DD 

CCCCCCCC   F 

PP 

RR      RR 

DDDDDDDD 

CCCCCCCC    F 

PP 

RR      RR 

DDDDDDDD 

LL 

ssssssss 

THTT 

TTTTT 

LL 

ssssssss 

TTTTT 

TTTTT 

-L 

ss 

_L 

ss 

-L 

ss 

-L 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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CFPRDT  CREATED  BV     MACRO     ON  29-JUN-85  AT   00:19 

SYMBOL    CROSS   REFERENCE 


SYMBOL      VALUE 


REFERENCES 


CERR 

=       *»***• 

GX 

8-103 

CFGBF 

r     w ***** 

GX 

9-128 

CFGSZ 

=     ****** 

GX 

9-127 

CFLIN 

=     ****** 

GX 

8-103 

CHKRDT 

00OA44 

R 

12-231 

COUNT 

r     ****** 

GX 

»ll-205 

■MT10 

=     ****** 

GX 

8-103 

FMT8 

TZ       ****** 

GX 

8-105 

-M.10 

=  000000 

#8-103 

FM.8 

=  000000 

#8-105 

HSRDTE 

00000^ 

12-265 

<5AR5 

=    ****** 

GX 

12-240 

LNKEND 

~    ****** 

GX 

12-266 

MEXT 

-    ****** 

GX 

•11-206 

N$$VCT 

r     ****** 

12-238 

PCKBCD 

=    ****** 

GX 

12-230 

PSIPT 

::     ****** 

GX 

12-264 

RDEND 

000212 

R 

#12-226 

RDNAM 

000052 

R 

#11-178 

RDTDF 

000000 

R 

9-124 

RDTE 

000006 

R 

#7-94 

RDTEMX 

=  000006 

#6-82 

RDTEN 

=  000024 

R 

#7-95 

RDTENO 

000166 

R 

#11-213 

RDTEP 

000025 

R 

#7-96 

RDTEST 

000130 

R 

#11-200 

RDTKW 

000000 

RG 

9-126 

RDTLN 

=  000017 

#7-93 

RDTNAM 

000000 

R 

#7-92 

RDTST 

000000 

RG 

#10-145 

RTSPC 

r     ****** 

GX 

8-103 

RSDAL 

000013 

*12-256 

R$DTE 

oooou 

12-260 

RSLEN 

000024 

12-233 

RSNAM 

000002 

12-250 

SPACE 

=  000040 

#6-83 

STRNXT 

=    ****** 

GX 

11-207 

SYNERR 

=    ****** 

GX 

*9-129 

S$$BAS 

r:      ****** 

8-103 

SALPHA 

=  000022 

#10-145 

SANY 

=  000020 

#10-145 

SBLANK 

=  000006 

#10-145 

SCEACX 

-      ****** 

GX 

12-243 

SDIGIT 

=  000024 

#10-145 

SDNUMB 

=  000014 

#10-145 

$EOS 

=  000012 

#10-145 

serrlo 

000036 

R 

#8-103 

SERRLl 

000066 

R 

#8-104 

$ERRL2 

000122 

R 

#8-105 

$ERR1T 

=      ****** 

GX 

9-139 

SEXir 

=  000000 

#10-145 

SFAIl 

r   177777 

#10-145 

3-104 


8-104 

#13-293 

12-256 

8-104 

#8-104 

13-294 
12-267 

11-213 
13-311 

13-293 


11-201 
11-179 
11-213 

12-229 

#10-145 
7-94 
11-182 

8-104 


13-304 
11-183 
11-215 
*9-132 
8-103 


13-301 


11-195 
11-220 
12-276 


K  11 

PAGE  1 

CREF   04.00 


8-105 
8-105 


13-297 


13-312 


11-206 
12-252 


12-258 


7-96 
11-186 

8-105 


-104 


12-275 


12-228 
13-306 


11-200 
12-251 


12-227 
13-305 


12-257 


8-104 


-105 


8-105 


CFPRDT 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:19 
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L  11 


CFPX29     CREATED  Bv  MACRO  ON  29-JUN-85  AT  00:20 
SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE  REFERENCES 

TPARS  =  ♦*»♦«•  GX  7-108 


K  12 

PAGE  2 

CREF   OA.OO 


CFPX29 


CREATED  BY  MACRO  ONI  29-JUN-85  AT  00:20 


PAGE  3 


L  12 


K  13 

CFPX5P  -  INITIAL  CONFIG  fILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:20  Page  12-1 
CHNSDF  ACTION  ROUTINES 

316  000^56  103A0^  40$:    BCS     102$          ;  BR  IF  UNABLE  ID  ALLOCATE  CHANNELS  LIST  BLOCK 

317  OOMAO  RETURN 
318 
319  ;  ERRORS 

32?  000AA2  ioi$:   EMSG$R  09            ;  ILLEGAL  CHANNEL  RANGE  VALUE 

322  000A50  102$:   EMSG$R  08            ;  RESOURCE  ALLOCATION  FAILURE 

323  .DSABL  LSB 
324 
325        000001  .END 


CFPX5P  -  INITIAL  CONFIG  FRE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:20  Page  12-2 


k  13 

DO:  20 


<  1* 

CTBin  -  CETAB  LOADING  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  00:21  Page  9-? 
Symbol  table 

Work  file  reads:  0 

Work   f  i le  wri  tes ;  0 

Size  ot  work  file:  10461  Words  (  ',^    Pages) 

Size  of  core  pool:  UA40  Words  (  55  Pages) 

Ope-ating  system:  RSX-11M/PLJS 

SY  ■CTBIo!v2!n°2!°3A]^BL/CR/-SP=SV:  CI  J  ]RSXMCM.SML/ML,[1 30,11 0]NETL  IB/ML,  CI  30,1 0]RSXMCM/PA:1,  [132, 10JCTBI0 


L  U 

CTBIO      CHEATED  ^-i      MACRO  ON  29-JUN-85  AT  00:21     PAGE  1 


LBNin  -  LOGICAL  BLOCK  I/O  ROUTl  MACRO  V05.03b  Saturday  29-Jun-85 
MACRO  DEHNinONS 


So!! 


1  Page  5 


55 
56 
57 
58 
59 


.SBTTL  MACRO  DEFINITIONS 
■  **  * 
;  LIBRARy  MACROS 

.MCALL   DIRS.QIOWS 
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lBNIO  -  LOGICAL  BLOCK  I/O  ROUTI  MACRO  V05.05b  Saturday  29-Jun-85  00:21  Page  6 


LDUU    -   FIND    THE    LOAD   UII 
CREATE    "LOAD   UK    STRING" 


77 

78 

79 

80 

81 

82 

83 

8-; 

85 

86 

87 

88 

89 

90 

91 

92 

93  000000 

9^.  000000 

005046 

95  000002 

117716 

OOOOOOG 

96  000006 

005046 

97  000010 

016700 

OOOOOOG 

98  OOOOU 

005200 

99  000016 

111016 

100  000020 

012700 

000000' 

101 

102  000024 

017702 

OOOOOOG 

103  000030 

016202 

000044 

104  000034 

010046 

105  000036 

010200 

106  000040 

016202 

000000 

107  000044 

166200 

000002 

108  000050 

016201 

000010 

109  000054 

110  000060 

066200 

000006 

111  000064 

010001 

IP  000066 

012600 

113  000070 

116220 

000004 

114  000074 

116220 

000005 

115 

116  000100 

042701 

177400 

117  000104 

001403 

118  000106 

005002 

119  000110 

120  000114 

112720 

000072 

121  000120 

112720 

000133 

122  000124 

012601 

123  000126 

005002 

124  000130 

125  000134 

112720 

000054 

126  000140 

012601 

127  000142 

005002 

128  000144 

129  C00150 

112720 

000135 

130  000154 

105010 

131  000156 

010001 

132  000160 

012700 

000000' 

133  000164 

160001 

V05.03b  Saturday 

29-Jun-85  00:21 

Page  6 

.SBTTL 

CREATE  "LOAD  UK 

STRING" 

SLDUIC  -  CREATE  THE  "LOAD  DE*" 

CE"  AND 

'UK"  STRING 

INPUTS: 

SNTUIC 

=  UIC  USER  CODE 

OUTPUTS: 

RO  =  ADDRESS  Of  AN  ASCIZ 

STRING 

DF  THE  FORM 

"DVNN:CNNN,NNNr 

WHERE 

'DVNN"  IS 

THE  LOAD  DEVICE 

NMEMONK 

R1  =  LENGTH  OF  ASCIZ  STRING  (EXCLUDING  ZERO  BYTE)                              | 

R2  =  DESTROYED 

kDUIC:: 

CLR 

-(SP) 

•CLEAR  A  STACK  ENTRY 

M0V8 

aNTUK,(SP) 

•SAVE  SECOND  HALF  OF  UK 

CLR 

-(SP) 

•CLEAR  A  SECOND  ENTRY 

MOV 

NTUK.RO 

;GET  SNTUK  ADDRESS 

INC 

RO 

;$NTUK  +  1 

Move 

(RO),(SP) 

;SAVE  FIRST  HALF  OF  UK 

MOV 

#UIC8F,R0 

;POINT  RO  AT  TEMPORARY  BUFFER 

MOV 

aTKTCB,R2 

;M-POINT  AT  TASK  CONTROL  BLOCK 

MOV 

T.LDV(R2),R2 

;M-POINT  TO  UCB  OF  LOAD  DEVICE 

MOV 

RO,-(SP) 

;M-SAVE  BUFFER  POINTER 

MOV 

R2,R0 

;M-GET  UCB  ADDRESS 

MOV 

U.DC8(R2),R2 

;M-POINT  AT  DEVICE  CONTROL  BLOCK 

sue 

D.UC8(R2),R0 

;H-COMPUTE  RELATIVE  UCB  ADDRESS 

MOV 

D.UCBL(R2),R1 

;M-GET  UCB  LENGTH 

CALL 

$DIV 

;M-COMPUTE  RELATIVE  UNIT  NUMBER 

ADD 

D.UNIT(R2),R0 

;M-COMPUTE  ABSOLUTE  UNIT  NUMBER 

MOV 

R0,fi1 

;M-COPY  UNIT  NUMBER 

MOV 

(SP)+,RO 

;M-RESTORE  BUFFER  POINTER 

MOVB 

D.NAM(R2),(R0)t 

;M-FIRST  LETTER  OF  DEVICE  NAME 

M0V8 

D.NAMt1(R2),(R0) 

+ 

;M-SECOND  LETTER 

BIC 

#*C<377>,R1 

;UNIT  ZERO  ? 

BEQ 

10$ 

;IF  EQ,  YES  -  DON'T  CONVERT 

CLR 

R2 

.•ALLOW  ZERO  SUPPRESSION 

CALL 

SCBOMG 

;PUT  UNIT  NUMBER  IN  STRING 

1 0$ :    MOVB 

*':,(RO)t 

;PUT  IN  DEVICE  IDENTIFIER 

MOVB 

#':,(RO)t 

;PUT  IN  UIC  START  CHAR 

MOV 

(SP)+,R1 

;6ET  GROUP  CODE  FROM  STACK 

CLR 

R2 

;ALLOW  ZERO  SUPPRESSION 

CALL 

SCBOMG 

;PUT  GROUP  CODE  IN  UK  STRING 

MOVB 

#',,(RO)t 

;PUT  IN  UK  SEPARATOR 

MOV 

(SP)+,R1 

;GET  USER  CODE  FROM  STACK 

CLR 

R2 

;ALLOW  ZERO  SUPPRESSION 

CALL 

SCBOMG 

;PUT  USER  CODE  IN  UIC  STRING 

MOVB 

*'],(RO)t 

;PUT  IN  UIC  TERMINATOR 

CLR8 

(RO! 

;MAKE  INTO  AN  ASCIZ  STRING 

MOV 

R0,R1 

;COPY  ZERO  BYTE  ADDRESS 

MOV 

*UIC8F,R0 

;POINT  AT  BEGINNING  OF  BUFFER 

SUB 

RO.RI 

;GIVING  LENGTH  OF  ASCIZ  STRING 

inn'r   -  find   THF   I  OAD   uK   for  N  macro  V05.03b  Saturday  29-Jun-85 
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CFPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:15 
.UGSDf  ACTION  ROUTINES 


Page  12 


202 
203 

;  START 

OF  CUG 

NUMBER 

204 

205  000136 

012700 

000004 

CUNBST: 

MOV 

*CUGNLN,RO 

GET  LENGTH  OF  CUG  NUMBER 

206  000142 

012701 

000006" 

MOV 

#CUGNUM,R1 

POINT  TO  START  OF  BUFFER 

207  000146 

105021 

10$: 

CLR9 

(R1)  + 

INITIALIZE  BUFFER 

208  000150 

005300 

DEC 

RO 

MORE  TO  INITIALIZE? 

209  000152 

003375 

BGT 

10$ 

BR  IF  YES 

210  000154 

105067 

OOOOOOG 

CLRB 

COUNT 

INITIALIZE  COUNT  FIELD 

211  000160 

012767 

000006' 

OOOOOOG 

MOV 

#CUGNUM,NEX1 

START  STORING  AT  BEGINNING  OF  BUFFER 

212  000166 

CALL 

STRNXT 

STORE  NEXT  CHARACTER 

2"3  000172 

RETURN 

214 
215 
216 

.E  .ABL 

LSB 

;  PROCESS  CUG  NUMBER  DIGIT 

218  000174 

026727 

OOOOOOG 

00001 r 

CUGDIG: 

CMP 

NEXT,*CUGEND 

IS  ADDRESS  TOO  MANY  CHARACTERS? 

219  000202 

101003 

BHI 

101$ 

BR  IF  YES 

220  000204 

CALL 

STRNXT 

STORE  NEXT  CHARACTER 

221  000210 

222 

223 

224 

225  000212 

226 

227 

228 

229  000220 

RETURN 

;•  ERRORS 

ioi$: 

EMSGSR 

N3 

ILLEGAL  CUG  ADDRESS 

;  END  OF  CUG  ADDRESS 

126727 

OOOOOOG 

000001 

CUN8EN: 

CMPB 

COUNT,*! 

ONE  DIGIT  ? 

230  000226 

001011 

BNE 

1$ 

IF  NO  -  BRANCH 

231  000230 

116767 

000006' 

000007' 

MOVB 

CUGNUM,CUGNUM+1 

IF  YES  -  INSERT  LEADING  ZERO 

232  000236 

112767 

000060 

000006' 

MOVB 

#'0,CUGNUM 

233  000244 

105267 

OOOOOOG 

INCB 

COUNT 

ADJUST  COUNT 

234  000250 

235 

236  000252 

000422 

BR 

5$ 

CONTINUE 

126727 

OOOOOOG 

000003 

1$: 

CMPB 

COUNT, #3 

THREE  DIGITS  ? 

237  000260 

001016 

BNE 

5$ 

IF  NO  -  BRANCH 

238  000262 

012700 

ooomo' 

MOV 

#CUGNUM+2,R0 

IF  YES  -  INSERT  LEADING  ZERO 

239  000266 

112010 

Move 

(R0)+,(R0) 

CL'Y  THIRD  DIGIT  TO  FOURTH  POSITION 

240  000270 

012700 

000007' 

MOV 

#CUGNUM+1,R0 

COPY  BUFFER  ADDRESS 

241  000274 

112010 

MOVB 

(RO)t,(RO) 

COPY  SECOND  DIGIT  TO  THIRD  POSITION 

242  000276 

116767 

000006' 

000007' 

MOVB 

CUGNUM,CUGNUMt1 

■  COPY  FIRST  DIGIT  TO  SECOND  POSITION 

243  000304 

112767 

000060 

000006' 

MOVB 

#"0,CUGNUM 

•  INSERT  ZERO  DIGIT 

244  000312 

245 

246  000316 

105267 

OOOOOOG 

INC8 

COUNT 

■  ADJUST  COUNT 

126727 

OOOOOOG 

000002 

5$: 

CMPB 

COUNT, #2 

■  CUG  ADDRESS  MUST  BE  2  OR  4  BYTES  ONL 

247  000324 

001  04 

BEQ 

10$ 

■  BR  F  VALID 

248  000326 

126727 

OOOOOOG 

000004 

CMPB 

COUNT, #4 

•  IS  T  VALID? 

249  000534 

001326 

BNE 

101$ 

■  BR  IF  NO 

250  000336 

004567 

OOOOOOG 

10$: 

JSR 

R5,$SAVRG 

;  SAVE  R3-R5 

251  000342 

012700 

000002 

MOV 

#<CUGNLN/2>,R0 

;  GET  LENGTH  OF  PACKED  CUG  ADDRESS 

252  000346 

012704 

000006' 

MOV 

#CUGNUM,R4 

•  POINT  TO  UNPACKED  CUG  ADDRESS 

2'^3  000352 

012705 

000012' 

MOV 

#CJGPCK,R5 

;  POINT  TO  BUFFER  TO  STORE  BCD  ADDRESS 

254  000356 

CALL 

PCKBCD 

;  PACK  CUG  ADDRESS  IN  BCD  FORMAT 

255  000362 

RETURN 

25t 

.DSA8L 

LSB 

M     1 
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CFPDSA  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:15 
ERROR  MESSAGES 
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000000 


69 
70 

71 
72 
73 
7U 

75  000000 

76  000022 

77  000056 

78  000106 

79  000136 

80  000166 
81 

82 
83 
8^ 
85  000000 


.SBTTL  ERROR  MESSAGES 

.PSECT  DATA,D 

.NLIST  BEX 

.ENABl  LC 

NTLERS  ,N2,10,CERR,RTSPC,CFLIN,<CUG  name> 

NTLERS  ,N8,10,CERR,RTSPC,CFLlN,<remote  dte  address> 

NTLERS  ,N9,10,CFRR,RTSPC,CFLIN,<tow  subaddress> 

NTLERS  ,M0,10,CERR,RTSPC,CFLIN,<high  subaddress> 

NTLERS  ,M2,10,CERR,RTSPC,CFI.IN,<catl  data  \/alue> 

NTLERS  ,M3,10,CERR,RTSPC,CFLlN,<call  data  mask> 

.DSABL  LC 
.EVEN 

.LIST  BEX 
.PSECT 


CFPDSA  -  INITIAL  CONFIG  FRE  SC  MACRO  V05.C3b  Saturday  29-Jun-85 


n  2 

00:1 


A*r\c  MATDn 
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•*F1LE**1D»«CFPDST 


L     J 


CCCCCCCC   F 

FFFFFFFFF 

PPPPPPPP 

DDDDDDDD 

SSSSSSSS 

TTTTT 

TTTTT 

CCCCCCCC   F 

FFFF'^FFFF 

PPPPPPPP 

DDDDDDDO 

SSSSSSSS 

TTTTT 

TTTTT 

PP      PP 

DD 

DD 

SS 

T 

PP      PP 

DD 

DD 

SS 

PP      PP 

DD 

DD 

SS 

PP      PP 

DD 

DD 

SS 

T 

FFFFFFF 

PPPPPPPP 

DD 

DD 

ssssss 

T 

FFFFFFF 

PPPPPPPP 

DD 

DD 

ssssss 

T 

PP 

DD 

DD 

SS 

T 

PP 

DD 

DD 

SS 

T 

PP 

DD 

DD 

SS 

T 

PP 

DD 

DD 

SS 

T 

CCCCCCCC   F 

PP 

DDDDDDDD 

SSSSSSSS 

T 

CCCCCCCC   F 

PP 

DDDDDDDD 

SSSSSSSS 

T 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

.L 

SS 

LL 

SS 

.L 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLL.   . 

SSSSSSSS 

LLLLLL^.L 

SSSSSSSS 
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CFPDST  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
ALLDST  -  ALLOCATE  DESTINATION  DESCRIPTOR  BLOCK 


00:16 
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3^.6 
347 
348 
349 
350 
351 
352 
355 
354 
355 
356 
357 
358 
359 

360  001104 

361  001110 

362  001114 

363  001116 

364  001130 

365  001132 

366  001136 

367  001140 

368  001142 

369  001146 

370  001150 

371  001152 

372  001154 

373  001156 

374  001160 

375  001164 

376  001166 

377  001172 

378  001176 

379  001200 

380  001202 

381  001204 

382  001212 

383  001216 

384  001220 

385  001222 

386  001226 

387  001234 

388  001242 

389  001250 

390  001256 

391  001264 

392  001272 

393  001274 

394  001300 

395  001304 

396  001310 

397  001312 

398  001314 

399  001316 

400  001322 

401  001326 

402  001 330 


103006 

000516 

010046 
010046 

012600 
010002 
105022 
005301 
003375 
012701 
010002 
062702 
012703 
112322 
005301 
003375 
116760 
116703 
006203 
005503 
110360 
116760 
116760 
016760 
016760 
016760 
016760 
010002 
062702 
012703 
112701 
112322 
005301 
003375 
062700 
012701 
012102 
001411 


.SBTTL  ALLDST  -  ALLOCATE  DESTINATION  DESCRIPTOR  BLOCK 
y 

ALLDST  -  ALLOCATE  AND  INITIALIZE  DESTINATION  DESCRIPTOR  BLOCK 
INPUTS: 


R1 


NUMBER  OF  BYTES  TO  ALLOCATE  FOR  BLOCK 


OUTPUTS: 

CARRY  CLEAR  -  ALLOCATION  SUCCESSFUL 
CARRY  SET  -  UNSUCCESSFUL  ALLOCATION 


000006 

000010 
OOOOOOG 


OOOOOOG  000031 
OOOOOOG 


10$: 


15$: 


20$: 


000030 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000002G 

OOOOOOG 

OOOOOOG 

000022 

OOOOOOG 

OOOOOOG 


000032 
OOOOOOG 


000002 
000003 
000004 
000006 
000016 
000020 


ALLDST:  SWSTK$ 
CALL 
BCC 
RETC 
BR 

SAVMAP 
MOV 
MOV 
CALL 
MOV 
MOV 
CLRB 
DEC 
BGT 
MOV 
MOV 
ADD 
MOV 
M0V8 
DEC 
BGT 
M0V8 
MOVB 
ASR 
ADC 
MOVB 
MOVB 
MOVB 
MOV 
MOV 
MOV 
MOV 
MOV 
ADD 
MOV 
MOVB 
MOVB 
DEC 
BGT 
ADD 
MOV 
MOV 
BED 


35$: 


40$: 


100$ 

$XALOC 

10$ 

RO 

100$ 

R0,-(SP) 

RO,-(SP) 

$CEACX 

(SP)+,RO 

R0,R2 

(R2)  + 

Rl 

15$ 

#DSNAMX,R1 

R0,R2 

#D$DST,R2 

#DSTNAM,R3 

(R3H,(R2)t 

Rl 

20$ 

DSARCT,D$DTEL(RO) 

DSCMCT,R3 

R3 

R3 

R3,D$DATL(R0) 

DSTPRI,D$PRI(RO) 

DSTOBJ,D$OBJ(R0) 

DSTTSK,D$NAM(RO) 

DSTTSKt2,D$NAM+2(R0) 

DSASLO,D$SLO(R0) 

DSASHI,D$SHI(RO) 

R0,R2 

#D$CUGN,R2 

#DSACUG,R3 

#CUNMMX,R1 

(R3)*,(R2)t 

Rl 

35$ 

#D$VBL,RO 

#DSTVAR,R1 

(Rl)t,R2 

80$ 


ENTER  SYSTEM  STATE 

ALLOCATE  BLOCK  FROM  NETWORK  POOL 

BR  IF  SUCCESSFUL  ALLOCATION 

ELSE  SET  USER  C-BIT 

AND  EXIT 

SAVE  CURRENT  MAPPING 

SAVE  UNMAPPED  ADDRESS 

SET  UNMAPPED  ADDRESS  FOR  CONVERSION 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

GET  ADDRESS  OF  DESTINATION  BLOCK 

INITIALIZE  BLOCK 

MORE  TO  INITIALIZE? 

BR  IF  YES 

GET  LENGTH  OF  DESTINATION  NAME 

GET  ADDRESS  OF  DESTINATION  BLOCK 

POINT  TO  DESTINATION  NAME 

POINT  TO  SPECIFIED  DESTINATION  NAME 

STORE  DESTINATION  NAME 

MORE  TO  STORE? 

Dp  It  ycj 

STORE  DIGIT  COUNT  FOR  DTE  ADDRESS 
GET  CHARACTER  COUNT  FOR  CALL  DATA 
CONVERT  TO  BYTE  COUNT 

STORE  CALL  DATA  BYTE  COUNT 

STORE  PRIORITY 

STORE  OBJECT  NUMBER 

STORE  RAD50  TASK  NAME 

STORE  LOW  END  OF  SUBADDRESS  RANGE 

STORE  HIGH  END  OF  DITTO 

GET  ADDRESS  OF  BLOCK 

POINT  TO  CUG  NAME 

POINT  TO  SPECIFIED  NAME 

GET  LENGTH  OF  NAME 

STORE  CUG  NAME 

MORE  TO  STORE? 

BR  IF  YES 

POINT  TO  START  OF  VARIABLE  FIELDS 

POINT  TO  VARIABLE  FIELD  TABLE 

GET  ADDRESS  OF  COUNT  FIELD 

BR  IF  END  OF  TABLE 


M  4 

CFPDST  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:16  Page  15-1 


CFPDTF  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:17 
LOCAL  DATA 
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99 
100 
101 
102 
103 
10A 

105  000000 
106 
10? 
108 
109 
110 
111 

112  000017 

113  000000 

11A       000016' 

115  000017 

116  000006 

117  000027 
118 

119 


.SBTTL  LOCAL  DATA 

LOCAL  DATA 

.PSECT  DATA.D 
.NLIST  BEX 

LOCAL  DATA  FOR  DTESDF  MACRO 


DTEADD 
DTEPCK 
DTNTNM 


DTEALN  =  15. 
.BLKB   DTEALN 
OTEND  =  .-1 
.BLKB   8. 
OTNMMX  =  6. 
.BLKB   DTNMMX 
.EVEN 


MAXIMUM  NUMBER  OF  DIGITS  IN  DTE  ADDRESS 
TEMPORARy  STORAGE  FOR  UNPACKED  DTE  ADDRESS 

PACKED  DTE  ADDRESS 

MAX  CHARACTERS  IN  NETWORK  NAME 

NETWORK  NAME 


n  5 
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Symbol  table 


A$$CHK= 

A$$CPS= 

A$$PRI  = 

A$ITRP= 

BIASX 

CERR  = 

CFGBF  = 

CFGSZ  = 

CFLIN  = 

CHKOEV 

CHKDTE 

CNTTIM 

COUNT  = 

CTIM  = 

C$$CKP= 

C$SORE= 

C$$RSH= 

DEVCTL= 

DEVNAM= 

DEVUNT= 

0E.OFF= 

DE.ON  = 

OTEAD 

OTEADD 

OTEAEN 

DTEALN- 

DTEAST 

DTEDES= 

DTEDF 

DTEDIG 

DTEEND 

DTEFLG= 

DTEKW 

DTEND  = 

DTENET 

DTENW 

DTEPCK 

DTEST 

OTNMMX= 

DTNTNM 

D$$BUG= 

D$$ISK= 

D$$L11= 

DSSVNC- 

D$$yNM= 

END 

E$$XPR= 

FMTIO  = 

FMT8  = 

FM.10  = 

FM.8  = 

FNDPOV= 

F$$LVL= 

G$$TPP= 

G$$T5S= 

G$$TTK= 

Gt$/iRD  = 


000000 

000000 

000000 

000000 

001206R 

******  GX 

•»**»*  GX 

*♦*♦**  GX 

******  GX 

001062R 

000750R 

000264R 

******  GX 

******  GX 

000000 

000400 

177564 

***»••  GX 

******  GX 

*»«♦*♦  6X 

******  GX 

»****♦  GX 

00001 2R 

OOOOOOR 

OOOUOR 

000017 

000052R 

******  GX 

OOOOOOR 

0001 14R 

000350R 

«»**♦*  GX 

OOOOOORG 

00001 6R 

000310R 

000076R 

00001 7R 

OOOOOORG 

000006 

000027R 

177514 

000000 

000001 

000000 

000000 

000114R 

000000 

******  GX 

»«•**♦  GX 

000000 

000000 

»**».»  GX 

000001 

000000 

000000 

000000 

000000 


HF$DLM= 
HF$GWY= 
HF$H0S= 
HF$XDF= 
HSHAOD= 
HSHMN  = 
HSHHX  = 
HSHSZ  = 
HSHTBL 
H$CUG 
H$DST 
H$D29 
H$FLG 
HSGLEN 
H$GLT 
HSGNAM 
H$GNML= 
HSGPT 
HSHITS 
HSHLEN 
H$LBDA 
HSLBDN 
003  HSLDTE 

002  H$LEN 
HSLOTS 
HSNETW 
HSNML  = 
HSNPT 

003  H$PTB 
H$PVC 
HSRDTE 
HSRNW 

004  H$SVC 

002  HSTRB 
HSXAVL 

003  HSXBIA 

002  H$X29C 

003  I$$RAR= 
I$$RDN= 

002  KSAR5  = 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 

005  LF.ACT= 
LF.BRO= 
LF.BWT= 
LF.ENA= 
LF.LPB= 
LF.MDC= 
LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDy= 
LF.REA= 
LF.SER= 


000002 

000010 

000004 

000020 

******  GX 

000040 

001000 

******  GX 

000214R 

000010 

000012 

000014 

000000 

000104 

000044 

000050 

000020 

000046 

000034 

000044 

000070 

000072 

000002 

000042 

000032 

000024 

000006 

000022 

000020 

000006 

000004 

000042 

000036 

000016 

000100 

000074 

000040 

000000 

000000 

******  GX 

177546 

177546 

000000 

000074 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 


LF.T1M= 

LF.UNL= 

LF.X2P= 

L1NCTL= 

LINID 

LINID1 

LINNAM= 

LINUNT= 

LLCTA  = 

LNKEND= 

LN$OFF= 

LNSON  = 

LN$SHU= 

LN.CLO= 

LN.DUM= 

LN.L0A= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.00P= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SU6= 

LN.TRI= 

LP$EIP= 

LP$ENB= 

LP$PCT= 

LP$TMR= 

LP$UP  = 

LP$UTD= 

LP$WTS= 

LS$GDN= 

LS$OFF= 

LS$STR= 

LS$UP  = 

LSSWT  = 

LSACHN 

LSAPVC 

LSASVC 

L$AUC 

LSCHLS 

LSCHTB 

L$CLEN= 

LSCTEN 

LSCTIM 

LSDTEA 

LSDTEL 

LSGLEN 

L$LEN 

LSLLCH 

L$LNK 

ISMCHN 

LSNEIW 

L$NIRE 


000010 

020000 

000000 

*♦*»**  GX 

000124R 

000146R 

******   GX 

******  GX 

******  GX 

******  GX 

000001 

000000 

000002 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

002000 

004000 

001400 

100000 

010000 

020000 

040000 

000004 

000000 

000002 

000003 

000001 

000012 

000014 

000010 

000042 

000034 

000030 

000044 

000032 

000040 

000020 

000017 

000134 

000122 

000016 

000000 

000036 

000114 

000072 


LSNLRE 
LSNHAC 
LSNMAS 
LSNMST 
003  LSNNRE 
003  LSNRBY 
LSNRCA 
LSNRFS 
LSNRPK 
LSNRRE 
LSNRST 
LSNTBY 
LSNTCA 
LSNTFS 
LSNTPK 
LSOMST 
LSPCS 
L$PLS 
LSQCNT 
LSQUEH 
LIQUET 
LSRTRY 
LSSLN 
L$ST 
LSTCLZ 
LSTIM 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
L.COST 
L.CTL 
L.CVA 


DDM 
L.DDS 
L.DLC 
L.DLM 
L.DLS 
L.FLG 
L.KRBA 
L.LEN  = 
L.MPF 
L.NMST 
L.NSTA 
L.OWNR 
L.UNT 
M5$CRB^ 
M$$CRX= 
M$$'CS: 
M$$MGE= 
M$$NET: 
M$$OVR: 
NEXT  : 
NUMDTE^ 
N$$ACC: 
N$$BUF: 
N$$L[)V: 


-1 


000104 

000076 

000074 

000003 

000106 

000046 

000066 

000100 

000056 

000105 

000107 

000052 

000070 

000102 

000062 

000002 

000112 

000110 

000122 

000124 

000130 

000007 

000004 

000005 

000044 

000006 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

000124 

000000 

000000 

000000 

000000 

000000 

******  GX 

000020 

000001 

000001 

000001 


N$$MCP= 

N$$MLL= 

N$$MOV= 

N$INCT= 

N$$PEM= 

PCKBCD= 

PSIPT  = 

P$$P45= 

P$$WRD= 

Q$$OPT= 

RTSPC 

R$RO  = 

R$R1  = 

R$R2  = 

R$R3  = 

R$R4  = 

R$R5  = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.$VC= 

SF.UNL= 

SLTMA  = 

SLTNM  = 

SPACE  = 

STRNXT= 

SYNERR= 

S$$WRG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 

ZTIME  = 

$ALPHA= 

$ANY  = 

$BLANK= 

$CEACX= 

$DIGIT= 

$DNUMB= 

$EOS  = 

SERROO 

SERROP 

SERROQ 


000001 
000001 
000010 
000001 
000001 


GX 
******  GX 
000000 
000000 
000010 
=  **«♦*♦  GX 
000002 
000004 
000006 
000010 
000012 
000014 
000000 
000001 
000000 
000000 
000200 
000100 
000004 
000040 
000020 
000010 
000001 
000002 
000040 


GX 
GX 


000040 

******  GX 

******  GX 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000000 

000000 

001000 

000000 

****** 

000022 

000020 

000006 

******  GX 

000024 

000014 

000012 

0001 54R 

00021 4R 

000266R 


GX 


002 
002 
002 
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CFPPSN  - 

INITIAL  CONFIG  FILE 

SC  MACRO  V05.03b  Saturday 

ERROR  MESSAGES 

113 

.S8TTL 

1U 

115 

.ENABL 

116 

117 

OOOOU 

NTLERS 

118 

000052 

NTLERS 

119 

000100 

NTLERS 

120 

000130 

NTLERS 

121 

000154 

NTLERS 

122 

000226 

NTLERS 

123 

00027A 

NTLERS 

124 

000332 

NTLERS 

125 

126 

.EVEN 

127 

.DSABL 

128 

.LIST 

129 

000000 

.PSECT 

L  7 

?9-Jun-85  00:17  Page  8 

ERROR  MESSAGES 

LC 

,P1,10,CERR,RTSPC,CFLIN,<occurrence  of  PSNSDF> 
,P2,10,CERR,RTSPC,CFLIN,<network  name> 
,P3,10,CERR,RTSPC,CFLIN,<nu(nber  of  ports> 
,P4,10,CERR,RTSPC,CFLIN,<fLags  nord> 

,P5,8,CEPR,RTSPC,CFLIN,<PSI  home  block  allocation  failure> 
,P6,8,CERR,RTSPC,CFLIN,<Port  table  allocation  faUure> 
,D1,10,CERR,RTSPC,CFLIN,<low  subaddresss  value> 
,D2,10,CERR,RTSPC,CFLlN,<high  subaddress  value> 


LC 
BEX 
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CFPPVC  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 

Table  ot  contents 

5-  5A  MACRO  DEFINITIONS 

6-  97  LOCAL  SYMBOL  DEFINITIONS 

7-  115  LOCAL  DATA 

8-  152  ERROR  MESSAGES 

9-  166  LOOK  FOR  PVCSDF  MACRO 
10-  196  TPARS  STATE  TABLES 

n-  286  PVCSDF  ACTION  ROUTINES 

U-  447  ALLXCB  -  ALLOCATE  X25  CIRCUIT  BLOCK 

15-  481  CHKPVC  -  CHECK  FOR  VALID  PVC 

16-  518  FNDPRT  -  FIND  FREE  PORT  ENTRY 

17-  555  INIXCB  -  INITIALIZE  X25  CIRCUIT  BLOCK 

18-  599  FNDHSH  -  FIND  HASH  TABLE  ENTRY 

19-  641  BIASX  -  BIAS  XPOOL  ADDRESS  FOR  APR6 

20-  661  PVDLM  -  CHECK  FOR  DLM  PVC 


1)0:18 
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CHKPVC  -  CHECK  FOR  VALID  PVC 
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481 
482 
A83 
48A 
485 
486 
487 
488 
489 
490 
491 
492 
495 
494 
495 

496  000742 

497  000746 
498 

499  000752 

500  000756 

501  000762 

502  000764 
505  000766 

504  000770 

505  000774 

506  000776 

507  001002 

508  001006 

509  001010 

510  001014 

511  001016 

512  001020 

513  001022 

514  001024 

515  001056 

516  001042 


017700  OOOOOOG 
062700  000006 


011000 
001424 
010046 

012600 

012702  000006 

012701  000024' 

010003 

062703  000002 

122123 

001561 

005302 

003374 


.SBTTL  CHKPVC  -  CHECK  FOR  VALID  PVC 


CHKPVC  -  CHECK  FOR  VALID  PVC 

INPUTS: 

NONE 

OUTPUTS: 

CARRY  CLEAR  -  SPECIFIED  PVC  IS  UNIQUE 
CARRY  SET  -  SPECIFIED  PVC  IS  NOT  UNIQUE 
RO  DESTROYED 


CHKPVC. 

MOV 

aPSIPT,"0 

ADD 

*H$PVC,RO 

SWSTK$ 

50$ 

SAVMAP 

10$: 

MOV 

(fiO),RO 

BEQ 

40$ 

MOV 

RO,-(SP) 

CALL 

$CEACX 

MOV 

(SP)+,RO 

MOV 

#PVNAMX,R2 

MOV 

#PVCNAH,R1 

MOV 

R0,R3 

ADD 

#C$NAM,R3 

20$: 

CMPB 

(R1)+,(R5)+ 

BNE 

10$ 

DEC 

R2 

BGT 

20$ 

30$: 

RETC 

RO 

40$: 

RESMAP 

50$: 

RETURN 

POINT  TO  PSI  HOME  BLOCK 

POINT  TO  PVC  NAME  BLOCK  LISTHEAD 

ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

GET  ADDRESS  OF  NEXT  BLOCK  IN  LIST 

BR  IF  END  OF  LIST 

SET  UP  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

GET  NUMBER  OF  CHARACTERS  IN  CIRCUIT  ID 

POINT  TO  SPECIFIED  PVC  CIRCUIT  ID 

COPY  PVC  BLOCK  POINTER 

POINT  TO  CIRCUIT  ID  FIELD 

IS  THIS  A  UNIQUE  CIRCUIT  ID? 

BR  IF  YES,  SO  FAR  -  CONTINUE  SEARCH 

MORE  CHARACTERS  TO  CHECK? 

BR  IF  YES 

ELSE  ERROR  -  SET  USER  C-BIT 

RESTORE  PREVIOUS  MAPPING 
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CFPRDT  -  INITIAL  CONFIG  FILE  SC  MACRO  VO5.03b  Saturday  29-Jun-85 
Table  ot  contents 

MACRO  DEFINITIONS 

LOCAL  SYMBOL  DEFINITIONS 

LOCAL  DATA 

ERROR  MESSAGES 

LOOK  FOR  RDTSDF  MACRO 

TPARS  STATE  TABLES 

RDTSDF  ACTION  ROUTINES 

CHKRDT  -  CHECK  FOR  UNIQUE  RDT 


00:19 


s- 

ss 

6- 

ff 

/- 

8S 

H- 

44 

9- 

IV 

10- 

Ul 

11- 

^t^ 

M- 

2/» 
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CFPRDT 

CREATED   BY 

MACRO     ON  29 

-JUN-85  AT  00:19 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

SGPRM 

=   ****** 

10-H5 

SHEADR 

z       ****** 

r,x 

•  2-238 

13-311 

SLAMDA 

=  000000 

#10-V.5 

SNUMBR 

=  000002 

#10-U5 

$QRD1 

000000 

RG 

#9-124 

SRADSG 

=  000016 

#10-U5 

SRONLY 

=    **♦**» 

10-U5 

10-145           10-145 

SSAVRG 

=    **■*♦** 

GX 

12-226 

SSTRNG 

=  OOOOOA 

#10-U5 

SSUBXP 

=  000010 

#10-145 

SXALOC 

~    ****** 

GX 

12-236 

$$$FLG 

-    177777 

#10-145 

SSSKEY 

=   177777 

#10-145 

.PSTCN 

-   ****** 

GX 

11-178 

.PSTPT 

~   ****** 

GX 

11-187 

.TPARS 
1 

~    ****** 

GX 

9-130 

L   11 

PAGE   2 

CREf       04.00 


i-FPRDT 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:19 
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MACRO  CROSS  REFERENCE 


L  12 

PAGE  5 

CREF   0^.00 


MACRO  NAME 

REFERENCES 

CALL 

7-108 

9-183 

DBGTPS 

#8-123 

#8-146 

EMSGIR 

#5-57 

7-117 

9-162 

9-172 

9-201 

9-202 

ISTATS 

#5-57 

8-123 

MTRANS 

#8-123 

NTLERS 

#5-57 

6-73 

6-74 

6-75 

6-76 

PHBDFt 

#5-5'' 

5-60 

RETURN 

7-112 

9-160 

9-170 

9-199 

STATES 

#5-57 

8-127 

#8-130 

#8-133 

#8-136 

#8-139 

#8-144 

#8-148 

TRANS 

#5-57 

#8-128 

#8-131 

#8-134 

#8-137 

#8-140 

#8-145 

#8-146 

X29DfS 

#5-57 

5-59 

♦  •F!LE««ID"CFPX3P 
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ALOCB  = 

A$$CHIC  = 

A$$CPS= 

A$$PR1= 

A$STRP= 

BLKDEF 

BLKMAX 

BLKS2D= 

BLKSZM= 

CERR  = 

CFGBF  = 

CFGSZ  = 

CFLIN  = 

CHEND 

CHHI 

CH<BL<= 

CHKWND= 

CHLO 

CHNPF 

CHNLHI 

CHNLLO 

CHNLMN= 

CHNLMX= 

C$$CKP= 

C$$ORE= 

C$$RSH= 

DTEDES= 

D$$BUG= 

0$$ISK= 

D$$L11= 

D$$VNC= 

D$$rNM= 

END 

E$$XPR= 

FMT8  = 

FM.8  = 

F$$LVL= 

GSSrPP: 

.  ABS. 

DATA 
SSTATE 
$KTAB 
SKSTR 


».»«.«  GX 

000000 

000000 

000000 

000000 

000060R 

000102R 

»»«*»»  GX 

»»«»«♦  GX 

••♦•♦•  GX 

•««**♦  GX 

»»»*»*  GX 

•«»«•«  GX 

000302R 

000254R 

•*♦»•*  GX 

•♦•♦♦•  GX 

000220R 

000036R 

000002R 

OOOOOOR 

000001 

*■*♦*** 

000000 
000400 
177564 
****** 

177514 

000000 

000001 

000000 

000000 

000070R 

000000 

******  GX 

000000 

000001 

000000 


GX 


GX 


000134 
000456 
000056 
000100 
000004 
000016 
Errors  detected: 


G$$TSS= 
G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$RDN= 
KSAR5  = 
KSHIC 
K$LEN 
K$LNK 
KSLOC 
<$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LDSLP  = 
LN$OFF= 
LN$ON  = 
LN$SHU= 
003  LP$EIP= 
002  LP$EN8= 

002  LP$PCT= 
LP$TMR= 
LPSUP  = 
LP$UTD= 
LP$WTS= 
LSSGDN- 
LS$OFF= 
LS$STR= 
LS$UP  = 
LSSWT  - 
LIACHN 
LSAPVC 

003  LSASVC 
LSAUC 
LSCHLS 
LSCHTB 
L$CLEN= 


000000 

000000 

000000 

000000 

000000 

******  GX 

000004 

000006 

000000 

000002 

177546 

177546 

000000 

000074 

000000 

000001 

000000 

000002 

002000 

004000 

001400 

100000 

010000 

020000 

040000 

000004 

000000 

000002 

000003 

000001 

000012 

000014 

000010 

000042 

000034 

000030 

000044 


000 
001 
002 
003 
004 
005 
0 


{RW,I,GSL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,COn) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


LSCTEN 

LSCTIM 

LSDTEA 

LSDTEL 

LSGLEN 

LSLEN 

LSLLCH 

L$LNK 

LSMCHN 

LSNETW 

LSNIRE 

LSNLRE 

LSNHAC 

LSNMAS 

LSNMST 

LSNNRE 

LSNRBY 

LSNRCA 

LSNRFS 

LSNRPK 

LSNRRE 

LSNRST 

LSNTBY 

LSNTCA 

LSNTFS 

LSNTPK 

LSOMST 

LSPCS 

L$PLS 

LSQCNT 

L$QUEH 

LSQUET 

LSRTRY 

L$SLN 

L$ST 

LSTCLZ 

L$TIM 


000032 
000040 
000020 
000017 
000134 
000122 
000016 
000000 
000036 
000114 
000072 
000104 
000076 
000074 
000003 
000106 
000046 
000066 
000100 
000056 
000105 
000107 
000052 
000070 
000102 
000062 
000002 
000112 
000110 
000122 
000124 
000130 
000007 
000004 
000005 
000044 
000006 


L$$ASG= 

000000 

X3PDF 

OOOOOOR 

003 

L$$DRV= 

000000 

X3PICW 

OOOOOORG 

004 

L$$P11= 

000001 

X3PST 

OOOOOORG 

OUi 

L$$11R= 

000000 

$ALPHA= 

000022 

M$$CR8= 

000124 

$ANY  = 

000020 

M$$CRX= 

000000 

$8LANK= 

000006 

M$$FCS= 

000000 

$CEACX= 

******  GX 

M$$HGE= 

000000 

IDIGIT= 

000024 

M$$NET= 

000000 

$DNUMB= 

000014 

M$$OVR= 

000000 

$EOS  = 

000012 

N$$ACC= 

000001 

$ERR00= 

******  GX 

N$$BUF= 

000001 

$ERR01= 

******  GX 

N$$LDV= 

000001 

$ERR02= 

*♦»*♦*  GX 

N$$MCP= 

000001 

$ERR08 

000004R 

002 

N$$MLL= 

000001 

$ERR09= 

******  GX 

N$$MOV= 

000010 

$ERRP7= 

******  GX 

N$$NCI= 

000001 

$ERRP8= 

******  GX 

N$$PEM= 

000001 

$ERRP9= 

*»*«»*  GX 

P$$P45= 

000000 

$ERR1T= 

******  GX 

P$$URD= 

000000 

$EX1T  = 

000000 

Q$$OPT= 

000010 

$FAIL  = 

177777 

RTSPC  = 

******  GX 

$HEADR= 

******  GX 

R$$DER= 

000000 

$LAMDA= 

000000 

R$$K11= 

000001 

$NUHBR= 

000002 

R$$SND= 

000000 

$QCHN 

000006RG 

R$$11M= 

000000 

$QX3P 

OOOOOORG 

SYNERR= 

*«*♦**  GX 

$RAD50= 

000016 

S$$WRG= 

000000 

$STRNG= 

000004 

S$$YSZ= 

007600 

$SUBXP= 

000010 

T$$KHG= 

000000 

$$$FLG= 

177777 

T$$M1N= 

000000 

$$$KEY= 

000001 

V$$CTR= 

001000 

$$$R  = 

000010 

WNDDEF 

000140R 

$$$STA= 

000000 

UNDP1AX 

000162R 

$$$TMP= 

000007R 

005 

WNDSZD= 

******   GX 

.PNUMB= 

******  GX 

UNDSZM= 

******  GX 

.PNUMH= 

**«*».  GX 

X$$DBT= 

000000 

.TPARS= 

******  GX 

••*  Assembler  statistics 

Work  tile  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  13751  Words   (  54  Pages) 

Size  of  core  cool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

SvfrFPx3p!v2;ri32,134]CFPX3P/CR/-SP=SY:ri,1JRSXMCM.SML/ML,[130,110]NETLIB/ML,[150,10]RSXRCM/PA:1,[132,10]CFPx3P 


CFPX3P 
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CT810     CREATED  B<  MACRO  ON  29-JUN-85  AI  00:21 
SYMBOL  CROSS  PEfERENCE 


L  U 

PAGE  1 

CREF   OA.OO 


SYMBOL   VALUE 


DSKBUF 
ERROR 

ERR10 

ERR12 

ERR1A 

ERR16 

ERR18 

ERR2 

ERR20 

ERR22 

ERR2A 

ERR26 

ERR28 

ERR30 

ERR32 

ERR34 

ERR36 

ERRA 

ERR6 

ERRS 

LSBEXT 

LSBFLG 

LSBLDZ 

L$BMX7 

PR.LBL 

PR.XFR 

RSSEIS 

TSSNHD 

SALL16 

SCLDEG 

SCLIOS 

SCLOPE 

SCTBIO 

SIOSB 

$L1EN 

SRPAD 

$Rl9l 


000000 
000000 


000012 

OOOOU 

000016 

000020 

C00022 

000002 

00002A 

000026 

000030 

000032 

00003A 

000036 

000040 

0000A2 

OOOOAA 

OOOOOA 

000006 

000010 

000352 

000030 

000016 

000020 

000076  R 

000272  R 

040000 

,.»..»  GX 

••«»••  GX 

«*«••>  GX 

......  GX 

000000  RG 

»•••*«  GX 

......  GX 

..*•••  GX 

......  GX 


REFERENCES 

#6-126 

#6-119 

•8-223 

#5-94 

#5-95 

#5-96 

#5-97 

#5-98 

#5-90 

#5-99 

#5-100 

#5-101 

#5-102 

#5-103 

#5-104 

#5-105 

#5-106 

#5-107 

#5-91 

#5-92 

#5-93 

8-200 

8-193 

8-195 

8-196 

7-154 

7-156 

8-204 

8-195 

8-208 

7-157 

7-150 

7-149 
#7-147 

8-216 
•8-205 

9-243 

8-191 


8-190 
•  7-K8 
•8-225 

8-219 

8-223 
8-225 

7-167 


9-251 
S-221 

7-169 
8-217 


#8-190 
#9-241 


8-216 
9-250 


7-158 
•9-251 


7-161 


•7-167 


•7-169 


•8-217 


•8-219 


•8-221 


9-250 


fRFiTFn    RY      MifPn      nM   ?Q-lllN-8S    AT    00:21 


PAGE   2 


M  H 


LBNIO  - 

LOGICAL 

BLOCH  I/O  ROUT 

LOCAL  DATA 

61 

62 

63 

64 

65 

66 

000000 

67 

68 

69 

70 

71 

000000 

72 

73 

71, 

75 

76 

000002 

77 

78 

79 

80 

81 

OOOOK 

003     014 

82 

000016 

OOOOOOG 

85 

000020 

000001 

8A 

000022 

000001 

85 

000024 

000044' 

86 

000026 

000000 

87 

000030 

000000 

88 

000032 

000000 

89 

000034 

000000 

90 

000036 

91 

000042 

000000 

92 

93 

94 

95 

96 

000044 

97 

98 

000000 

k  15 

00:21 


MACRO  V05.05b  Saturday  29-Jun-85  00:21     Page  6 

.S8TTL      LOCAL    DATA 

•  *** 

•  LOCAL  DATA 

•  *»* 

.P5ECT   DATa.D 


SAVE  USER  APR1 
UISAV:   .8LKW   1 

STATISTICS  BLOCK 
STAT:    .8LKW   5 


READ  LOGICAL  BLOCK  DPB 


LBNDP8:  .BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

SLBUF::  .WORD 

$LLEN::  .WORD 
.WORD 

$L8N::  .BLKW 
.WORD 


3,12. 

lO.RLB 

1 

1 

$I0S8 

0 

0 

0 

0 

2 

0 


Die,  LENGTH 

FUNCTION  CODE 

LOGICAL  UNIT 

EVENT  FLAG 

I/O  STATUS  BLOCK 

AST 

BUFFER  ADDRESS 

BUFFER  LENGTH 

CARRIAGE  CONTROL 

LOGICAL  SLOCK  NUMBER 


I/O  STATUS  BLOCK 
$1058::  .BLKiJ   2 
.PSECT 


H  15 

inr.irAi    Ri  nric    i/n  RniiTl  macro  v05.03b  Saturday  29-Jun-85  00:21 


Paqe   7 


00:21 


LDulC  -  FIND  THE  LOAD  UK  FOR  N  MACRO  V05.03b  Saturday  29-Jun-85  00:21  Page  6-1 
CRFATE  "LOAD  UlC  STRING" 

13i  000166  RETURN  ;RETURN  fO  CALLER 

136       000001  .END 


M  16 

niitr  -  Fiwn  thf  i  nAfi  mr   for  n  MACRn  v05.03b  Saturday  29-Jun-85  00:21     Page  6-2 


CfPrjG  -   IMTIAL   CONFIG   riI.E   5C   MACRO  V05.03b   SatjrJi., 
CUGIDF    ACTION  ROUTINES 


H  1 

29-Jun-85  00:15  Page  15 


258 

259 

260 

26' 

262  000564 

265  C00570 

264  000572 

265  000576 

266  000400 

267  000406 

268  0004V 

269  000414 

270  0C0422 

271  000424 
272 

2^5  000452 

274  000456 

275  000442 

276  000446 

277  000450 

278  000462 

279  000464 

280  000470 

281  000472 

282  000474 
285  000500 

284  000502 

285  000504 

286  00050O 

287  000510 

288  000512 

289  000516 

290  000522 

291  000524 

292  000550 
295  000532 

294  000554 

295  000556 

296  000542 

297  000546 

298  000550 

299  000554 

500  000556 

501  00056C 

502  000562 
505  C0057C 

504  000576 

505  000602 
306  000606 

507  0C0612 

508  000616 


309 

31c 
511 
512 
?•  ^ 


CUG  FLAGS  BYTE 


005767  OOOOOOG 

001115 

105767  000001 G 

001112 

116767  OOOOOOG  0000'4' 

105507 

126^27  OOOOOOG  000004 

001005 

152767     000001      000014' 


CUFG: 


CUEND: 


000620 
000622 


012701  000016 

103006 

000455 

010005 
010046 

012600 
010002 
105022 
005301 
005575 

012701  OOOOOOG 

012702  000000' 
010005 

062703  000002 
112225 

005301 
005575 

012701  000002 

012702  000012' 
010003 

062705  000010 
112225 

005501 

005575 

C16760  OOOOOOG  000012 

116760  000014'  000014 

017700  OOOOOOG 

062 700  000010 


D5407 


10$: 
30$: 


40$: 


45$: 


50$: 


60$: 


70$: 
80$: 

90$: 


.ENAB 

TST 

BNE 

TST8 

BNE 

NOVS 

CALL 

8CS 

CMPB 

BNE 

Bise 

SWSTK$ 

MOV 

CALL 

BCC 

RETC 

BR 

SAVMAP 

MOV 

MOV 

CALL 

NOV 

MOV 

CLRB 

DEC 

BGT 

MOV 

MOV 

MOV 

ADD 

M0V8 

DEC 

BGT 

MOV 

MOV 

MOV 

ADD 

M0V8 

DEC 

BGT 

MOV 

M0V8 

MOV 

ADD 

CALL 

RESMAP 

RETURN 

BCS 
RETURN 


LS8 

.PNUMH 

101$ 

.PNUMB'-I 

101$ 

.PNUMB.CUGFLG 

CHKCUG 

102$ 

COUNT, *4 

10$ 

#Gf$BUG,CUGFLG 

90$ 

*G$LEN,R1 

$XALOC 

40$ 

RO 

80$ 

R0,R5 

RO,-(SP) 

$CEACX 

(SP)+,R0 

R0,R2 

(R2)t 

Rl 

45$ 

#CUNMMX,R1 

#CUGNAM,R2 

R0,R3 

#G$NAM,R3 

(R2)*,(R3>*- 

Rl 

50$ 

#<CUGNLN/2>,R1 

#CUGPCK,R2 

R0,R3 

#G$CUG,R5 

(R2)t,(R5)* 

Rl 

60$ 

DTEDES,G$DTE(RO) 

CUGFLG,G$FLG(RO) 

SPSIPT.RO 

#H$CUG,RO 

LNKEND 


105$ 


LEGAL  VALUE? 

BR  IF  NO 

LEGAL  VALUE? 

BR  IF  NO 

SAVE  CUG  FLAGS  BYTE 

CHECK  FOR  VALID  CUG  NAME 

BR  IF  ERROR 

IS  CUG  NUMBER  4  DIGITS? 

BR  IF  NO 

FORCE  BILATERAL  CUG 

ENTER  SYSTEM  STATE 

GET  NUMBER  OF  BYTES  TO  ALLOCATE 

ALLOCATE  BLOCK  FROM  NETWORK  POOL 

BR  IF  SUCCESS 

ELSE  SET  USER  C-BIT 

AND  EXIT 

SAVE  CURRENT  MAPPING 

SAVE  UNMAPPED  ADDRESS 

SET  UP  FOR  CONVERSION 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

GET  ADDRES  OF  CUG  NAME  BLOCK 

INITIALIZE  BLOCK 

MORE  TO  INITIALIZE? 

BR  IF  YES 

GET  LENGTH  OF  CUG  NAME 

POINT  TO  SPECIFIED  CUG  NAME 

POINT  TO  CUG  NAME  BLOCK 

POINT  TO  CUG  NAME 

STORE  CUG  NAME  IN  CUG  NAME  BLOCK 

MORE  TO  STORE? 

BR  IF  YES 

GET  LENGTH  OF  CUG  NUMBER 

POINT  TO  SPECIFIED  CUG  NUMBER  (BCD) 

POINT  TO  CUG  NAME  BLOCK 

POINT  TO  CUG  NUMBER 

SiC'lE  CUG  NUMBER  IN  CUG  NAME  BLOCK 

MORE  10  STORE? 

BR  IF  YES 

STORE  DTE  ADDRESS 

STORE  CUG  FLAGS  BYTE 

GET  ADDRESS  OF  PSI  HOME  BLOCK 

POINT  TO  CUG  NAME  BLOCK  LISTHEAD 

LINK  AT  END  OF  LIST 

RESTORE  PREVIOUS  MAPPING 


8R  IF  ERROR 


ERRORS 


.'-■  Ju  -  IMiIAl  rONFIG  FILE  SC  MACRO  V05.05b  Saturday  29-Jun-85  00:15 
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CFPDSA  -  INITIAL  COMFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:15  Page  8 
LOOK  FOR  DSA$DF  MACRO 


n  2 

00:15 


87 


.SBTTL   LOOK  FOR  DSASDF  MACRO 


89 
90 

$QDSA 

-  LOOK 

FOR  DSA$DF  MACRO 

91 
92 

INPUTS; 

93 

NONE 

94 
9b 

OUTPUTS: 

96 

C-8IT=SUCCESS/FAILURE 

97 

R3,R4,fi5=DESTROYED 

98 

99 
100 
101  000000 

.ENA8L 

LS8 

012705 

000000' 

tODSA:: 

MOV 

#DSADF,R5 

STATE  TABLE  ADDRESS 

102  000004 

000402 

BR 

10$ 

103  000006 

012705 

000130' 

EQDSC:: 

MOV 

#DSCDf ,R5 

STATE  TABLE  ADDRESS 

104  000012 

005001 

0$: 

CLR 

R1 

FULL  KEYWORD  MATCH  LENGTH 

105  000014 

012702 

000000' 

MOV 

#DSAKW,R2 

KEYWORD  TABLE  ADDRESS 

106  000020 

016703 

OOOOOOG 

MOV 

CFGSZ,R3 

RECORD  LENGTH 

107  000024 

012704 

OOOOOOG 

MOV 

#CFG8F,R4 

RECORD  BUFl-ER  ADDRESS 

108  000030 

005067 

OOOOOOG 

CLR 

SYNERR 

CLEAR  SYNTAX  ERROR  FLAG 

109  000034 

CALL 

.TPARS 

GO  DO  THE  PARSE 

110  000040 

103003 

BCC 

20$ 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

111  000042 

005367 

OOOOOOG 

DEC 

SYNERR 

DID  SYNTAX  ERROR  OCCUR? 

112  000046 

001401 

BEQ 

101$ 

IF  EQ,  YES 

113  000050 

20$: 

RETURN 

114 

115 

1i6 
117 
118  0000^2 

•  ERROR 

CONDITION 

101$: 

EMSG$R 

IT 

SYNTAX  ERROR 

119 

.DSABL 

LS8 

N    2 

CfPDSA  -   INITIAL   CONFIG  FILE   SC   MACRO  V05.03b  Saturday   29-Jun-85   00:15     Page  9 
rcABc:    <;titc    TiRi  F<; 


CFPDS^   - 

IMl 

Tab--    " 

'on 

5- 

5S 

6- 

/6 

7- 

100 

8- 

^^/ 

9- 

K/ 

10- 

194 

13- 

■?/i>. 

U- 

^li 

15- 

«6 

16- 

u^f 

M  3 

IMITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:16 
ts 

MACRO  DEFINITIONS 

LOCAL  SYMBOL  DEFINITIONS 

ERROR  MESSAGES 

LOOK  FOR  DSTSDF  MACRO 

TPARS  STATE  TABLES 

DSTSDF  ACTION  ROUTINES 

DSTEND  -  END  OF  DESTINATION  DESCRIPTOR  BLOCK  MACROS 

CHKDSN  -  CHECK  DESTINATION  NAME 

ALLDST  -  ALLOCATE  DESTINATION  DESCRIPTOR  BLOCK 

DSTINS  -  INSERT  DESTINATION  DESCRIPTOR  BLOCK  INTO  LIST 


CFPDST  -  INITIAL  CONFIG  FILE  SC  MACRO  VO5.03b  Saturday  29-Jun-85  00:16  Page  4 


n  4 

CFPDST  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  ?9-Jun-85  00:16 
ALLDST  -  ALLOCATE  DESTINATION  DESCRIPTOR  BLOCK 


Page  15-1 


405  001552 
40A  001554 

405  001556 

406  001540 

407  001342 

408  001544 

409  001546 

410  001550 

411  001352 

412  001554 
415  001556 

414  001562 

415  001566 


012104 
112203 
001775 
006205 
005505 
112420 
005505 
005575 
000765 
012601 


70$: 


80$: 


100$: 


MOV 

(R1)+,R4 

MOVB 

(R2)+,R3 

BEQ 

40$ 

ASR 

R3 

ADC 

R3 

MOVb 

(R4)t,(R 

DEC 

R5 

8GT 

70$ 

BR 

40$ 

MOV 

(SP)+,R1 

CALL 

DSTINS 

RESMAP 

RETURN 

GET  ADDRE'-S  OF  SPECIFIED  FIELD 
GET  LENI-iH  OF  NEXT  FIELD 
IF  EQ,  .gOT'lING  TO  STORE 
CONVER.  TO  BVTE  COUNT 

STORE  SPECIFIED  FIELD 

MORE  TO  STORE? 

BR  IF  yES 

GET  NEXT  FIELD  TO  STORE 

RETRIEVE  UNMAPPED  ADDRESS 

INSlRT  BLOCK  INTO  LIST 

RESTORE  PREVIOUS  MAPPING 


N  A 


CFPDST 


INITIAL  CONFIG  FILE  SC  MACRO  V05.05b  Sarurday  29-Jun-85  00:16  Page  16 
--k-  twin  I  i<;t 


iMccDT  nccTiMATTnui  nccfDIDTnD 


M  5 

CFPDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:17 
ERROR  MESSAGES 


Page  8 


121 
122 
125 
12A  000056 

125  000070 

126  000120 

127  00015A 

128  0002U 

129  000266 
150 

131 
132 
155  000000 


.SBTTL  ERROR  MESSAGES 


.ENABL 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

.DSABL 

.LIST 

.EVEN 

.PSECT 


LC 

,03,1 

,04,1 

,07,8 

,00,1 

,0P,8 

,00,8 

LC 

BEX 


0,CERR,RTSPC,CFLIN,<DTE  address  i/alue> 
0,CERR,RTSPC,CFLIN,<hash  table  size> 
,CERR,RTSPC,CFLIN,<Line  not  in  system> 
0,CERR,RTSPC,CFLIN,<network  name  parameter) 

CERR,RTSPC,CFLIN,<DTE  descriptor  allocation  failure) 

CERR,RTSPC,CFLIN,<Too  many  DTESDFs> 


N  5 
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CFPDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00: 
Symbol  table 


$EF*R03 

000036R 

SERR04 

000070R 

$ERR05= 

**♦**♦  GX 

$ERR07 

0001 20R 

SERRIT^ 

»»««**  GX 

SEXIT  = 

000000 

.  ABS. 

177776 

001226 

3ATA 

000520 

SSTATE 

0001 S4 

SIC  TAB 

000006 

SKSTR 

000016 

Errors  detected:  0 

»»♦  Assembler  statistics 


002  SFAIL  =  177777 
002  SHEADR=  ♦*•♦*♦  GX 

SLAMDA=  000000 
002  SNUMBR=  000002 

SQDTE   OOOOOORG 


000  (RW,I,GBL,A8S,0VR) 

001  (RU,I,LCL,REL,CON) 

002  (RW,D,LCL,REL,CON) 

003  (RU,D,LCL,REL,CON) 
OCA  (RU,D,LCL,REL,CON) 
005  (RW,D,LCL,REL,CON) 


$RAD50=  000016 
$SAVRG=  ******  GX 
$STRNG=  000004 
$S"BXP=  000010 
$XALOC=  ******  GX 


17  Page  18-2 


$$$FLG=  yniii 

$$$KEY=  000002 

$$$R  =  000010 

$$$STA=  000000 

$$$ri*IP=  000012R 


.PNUH8=  ******  GX 

.PNUMH=  ******  GX 

.PSTCN=  ******  GX 

.PSTPT=  ******  GX 

005  .TPARS=  ******  GX 


Work  file  reads: 
Work  tile  writes: 
Size  of  work  file: 
Size  of  core  pool: 
Operating  system: 


0 

0 

16618  Words 

17608  Words 

RSX-11M/PLUS 


(  65  Pages) 
(  67  Pages) 


SYfcFPDTElv2|[132,134]CFPDTE/CR/-SP=Sy:C1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,[130,10]RSXMCM/PA: 


1,[132,10]CFPDTE 


CFPDTE     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:17     PAGE  1 
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LOOK  FOR  PSN$DF  MACRO 
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131 
132 
135 
13A 
135 
136 
137 
138 
139 
140 
141 
142 

143  000000 

144  000004 

145  000006 

146  000012 

147  000016 

148  000022 

149  000026 

150  000032 

151  000034 

152  000040 

153  000042 
154 

155 
156 
157 
158  00004'. 


012705 
005001 
012702 
016703 
012704 
005067 

103003 
005367 
001401 


000000' 

000000' 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 


.SBTTL  LOOK  FOR  PSNSDF  MACRO 


$QPSN  -  LOOK  FOR  PSNSDF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
R3,R4,R5=DESTR'"''ED 


SQPSN: 


MOV 

#PSNDF,R5 

CLR 

R1 

MOV 

#PSNKW,R2 

MOV 

CFGSZ,R3 

MOV 

#CFG8F,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SVNERR 

BEQ 

101$ 

RETURN 

20$: 

ERROR  CONDITION 
101$:   EMSG$R  IT 


STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FL«G 

GO  DO  THE  PARSE 

IF    CC,    FOUND  WHAT  WE   WERE   LOOKING   FOR 

DID   SYNIAX   ERROR   OCCUR? 

IF    EQ,    YES 


SYNTAX  ERROR 


N  1 
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1 
2 
3 

k 
5 
6 
7 
8 
9 

10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
^3 
34 
35 
36 
57 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE   CFPPVC  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTV""E  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  30-JAN-81 

DECNET-llM/S  V3.0 
DECNET-11M-°LUS  Vl.O 

3.00  16-APR-82 

DECNET-llM  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00     07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS    V2.0 

5.00     22-JUL-85 

DECnet-UM/S   V4.2 
DECnet-IIM-Pljs   V3.0 
DECnet-Micro/RSX   Vl.O 


OF   ITS 
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FNDPR'    -   FIND   FREE    PORT   ENTRY 


Page  16 


518 
519 
520 
521 
522 
523 
52^ 
525 
526 
527 
528 
529 
530 
531 
532 
533 
53A 

535  00104A 

536  001050 

537  00105A 

538  001060 

539  001 06A 

540  001066 
5A1  001070 

542  001072 

543  001074 

544  001076 

545  001100 

546  001102 

547  001106 

548  001112 

549  001114 

550  001120 

551  001122 

552  001124 

553  001130 


.S8TTL  FNDPRT  -  FIND  FREE  PORT  ENTRY 


FNDPRT  -  FIND  FREE  PORT  ENTRY 

INPUTS: 

PORTNO  -  TOTAL  NUMBER  OF  PORTS 

OUTPUTS: 

CARRY  CLEAR  -  FREE  PORT  FOUND 
R1  -  PORT  NUMBER  ALLOCATED 
PVCPRT  -  PORT  NUMBER 

PRTADD  -  MAPPED  ADDRESS  OF  ENTRY  IN  PORT  TABLE 
CARRY  SET  -  FREE  PORT  NOT  FOUND 


017700  OOOOOOG 
016046  000020 

012600 

005001 

005720 

005201 

005720 

001006 

005740 

010067  000000' 

110167  000022' 

000404 

020167  OOOOOOG 

103764 

000261 


FNDPRT: 

SAVMAP 

M0\/ 

aPSIPT,RO 

MOV 

HSPTBCRO) 

CALL 

$CEACX 

MOV 

(SP)+,RO 

CLR 

R1 

TST 

(RO)t 

10$: 

INC 

R1 

TST 

(R0)  + 

BNE 

15$ 

TST 

-(RO) 

MOV 

RO, PRTADD 

M0V8 

R1, PVCPRT 

BR 

20i 

15$: 

CMP 

R1, PORTNO 

BLO 

loi 

-(SP) 


20$: 


SEC 

RESMAP 

RETURN 


SAVE  CURRENT  MAPPING 

GET  ADDRES  OF  PSI  HOME  BLOCK 

GET  ADDREb  OF  PORT  TABLE 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS  OF  PORT  TABLE 

PORT  NUMBER  COUNTER 

SKIP  FIRST  ENTRY  (NOT  AVAILABLE) 

INCREMENT  PORT  NUMBER 

IS  THIS  A  FREE  PORT? 

BR  IF  NO 

POINT  TO  PORT  ENTRY 

SAVE  MAPPED  ADDRESS  OF  ENTRY 

SAVE  PORT  NUMBER  ALLOCATED 

AND  EXIT 

END  OF  LIST? 

BR  IF  NO 

INDICATE  NUMBER  OF  PORTS  EXCEEDED 

RESTORE  PREVIOUS  MAPPING 
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1 
2 
3 
i 
5 
6 
7 
8 
9 

10 
11 
12 
15 
U 
15 
16 
17 
18 
i9 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
A7 
48 
49 
50 
51 
52 
53 


.TITLE   CFPRDT  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THER'-OF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  31-MAR-81 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00     16-APR-82 

D"CNET-11M  V3.1 
UCNET-11M-PLUS   VI.  1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DEtnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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rpPRDT 

CREATED  BY     MACRO     ON  29- 

•JUN-85  AT   00 

19           P/ 

MACRO   CROSS 

REFERENCE 

Cf 

MACRO  *gAME 

REFERENCES 

CALL 

9-130 
13-301 

11-207 

11-215 

12-230 

DBGTPS 

#10-145 

#10-163 

#10-169 

EMSGSR 

#5-60 

9-139 

11-195 

11-220 

ISTAT$ 

#5-60 

10-H5 

MTRANS 

#10-U5 

NTLERt 

#5-60 

8-103 

8-104 

8-105 

PHBDFS 

#5-60 

5-62 

RDTDFS 

#5-60 

5-63 

RESHAP 

#5-72 

12-267 

13-312 

REIC 

#5-60 

12-238 

13-311 

RETURN 

9-134 

11-191 

11-208 

11-216 

SAVHAP 

#5-68 

12-240 

13-297 

STATES 

#5-60 

10-149 

#10-152 

#10-155 

SWSTKS 

12-235 

13-296 

TRANS 

#5-60 

#10-150 

#10-155 

#10-156 

M  11 
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04.00 


12-231  12-235  12-236  12-243  12-266  13-296 

12-275  12-276 


12-268  12-271  13-313 

#10-158        #10-161         #10-167         #10-171 
#10-159        #10-162         #10-163         #10-168         #10-169 


««FILE**ID««CFPX29 
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••F!LE«MD««CFPX5P 
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CCCCCCfC   F 

FFFFFFFFF 

PPPPPPPP 

XX      XX 

333333 

PPPPPPPP 

cccccccr  F 

FFFFFFFFF 

PPPPPPPP 

XX      XX 

333333 

PPPPPPPP 

PP      PP 

XX      XX 

33     33 

PP     PP 

PP      PP 

XX      XX 

"   }l 

PP     PP 

PP      PP 

XX  XX 

33 

PP     PP 

PP      PP 

XX  XX 

33 

PP     PP 

FFFFFfF 

PPPPPPPP 

XX 

33 

PPPPPPPP 

FFFFFFF 

PPPPPPPP 

XX 

33 

PPPPPPPP 

PP 

XX  XX 

33 

PP 

PP 

XX  XX 

33 

PP 

PP 

XX      XX 

33     33 

PP 

PP 

XX      XX 

33     33 

PP 

CCCCCCCC   F 

PP 

XX      XX 

333333 

PP 

CCCCCCCC   F 

PP 

XX      XX 

333333 

PP 

LL 

ssssssss 

TTTTT 

TTTTT 

LL 

ssssssss 

TTTTT 

(ITII 

-L 

ss 

_L 

S5 

.L 

ss 

LL 

5S 

LL 

ssssss 

LL 

ssssss 

!  L 

ss 

LL 

ss 

1  L 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LlLLLLLLLL 

ssssssss 
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SYMBOL  CROSS  REFERENCE 
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CRfcF   04.00 


SYMBOL 

VALUE 

REFERENCES 

ALOCB 

r  ****** 

GX 

12-288 

BLKDEF 

000060 

R 

#11-208 

BLKMAX 

000102 

R 

#11-220 

3LKSZD 

~      ♦*»*♦* 

GX 

•11-210 

11-222 

BLKSZM 

r  ****** 

GX 

•11-224 

CERR 

~     ****** 

GX 

7-99 

CFGBF 

-  «**■*** 

GX 

8-128 

CFGSZ 

~     ****** 

GX 

8-127 

CFLIN 

~     ****** 

GX 

7-99 

CHEND 

000302 

R 

#12-285 

CHHI 

000254 

R 

#12-278 

CHKBLK 

=   ****** 

GX 

11-208 

11-220 

CHKWND 

~      ****** 

GX 

11-235 

11-247 

CHLO 

000220 

R 

#12-265 

CHNDF 

000036 

R 

8-123 

CHNLHl 

000002 

R 

#7-92 

•12-272         •12- 

J84           12-293 

CHNLLO 

or  '■".'^ 

R 

#7-91 

•12-271           12- 

292           12-307 

CHNLMN 

=  Oi 

#6-82 

CHNLMX 

-  **•».. 

oX 

12-269 

12-282 

DTEDES 

r  ****** 

GX 

12-295 

FMT8 

=  ****** 

GX 

7-99 

FM.8 

=  000000 

#7-99 

KSAR5 

=  ****** 

GX 

12-294 

12-313 

ICSHIC 

000004 

•12-293 

K$LEN 

000006 

12-285 

K$LOC 

000002 

•12-292 

L$CHLS 

000034 

12-299 

LSMCHN 

000036 

12-311 

NfSVCT 

r   ****** 

12-290 

RTSPC 

r   ****** 

GX 

7-99 

SYNERR 

-   ****** 

GX 

•8-129 

•8-132 

SSSBAS 

=   ****** 

7-99 

7-99 

WNDDEF 

000140 

R 

#11-235 

WNDMAX 

000162 

R 

#11-247 

WNDS7D 

=   ****** 

GX 

•11-237 

11-249 

WNOSZM 

-      ****** 

GX 

•11-251 

X3PDF 

000000 

R 

8-121 

X3PKW 

000000 

RG 

8-126 

#9-147 

X3PST 

000000 

RG 

#9-147 

SALPHA 

=  000022 

#9-147 

$ANY 

=  000020 

#9-147 

SBLANK 

=  000006 

#9-147 

ICEACX 

-   ****** 

GX 

12-296 

IDIGIT 

=  000024 

#9-147 

SDNUMB 

=  000014 

#9-147 

$EOS 

=  000012 

#9-147 

SERRCO 

r  «**»♦* 

GX 

11-256 

$ERRO' 

=  ****** 

GX 

11-230 

$ERR02 

=  ****** 

GX 

11-257 

$ERRCi8 

000004 

R 

#7-99 

12-322 

lERRO? 

-  ****** 

GX 

12-321 

SERRP^ 

r  ..**»* 

GX 

11-215 

12-306 


CFPX3P 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:20 
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MACRO   CROSS   RE='EREN|CE 
MACRO  NAME  REFERENCES 


PAGE   ? 

CREF       04.00 


ASLt 

CALL 

HWDDf$ 

LBLDf$ 

RET.^RN 

SWSUt 


ff5-71 
7-K<) 

#5-56 

#5-56 
7-16: 

«5-56 


8-204 
7-154 
5-61 
5-62 

8-212 


7-156 

8-?27 


7-157 
9-24  5 


8-191 
9-252 


-208 


9-24  3 


N  U 


•»f  nE«MD"ELTlME 


lBNIO  -  LOGKAL    BLOCK: 
taOPf    -  OPEN   A  FILE 


100 
101 
102 
103 
IDA 
105 
106 
107 
108 
109 
110 
1'1 
112 
115 

11 ; 

iu 
ii; 

118 


«  15 

I/O  ROUTl   MAfRO   V05.03b  Saturday  ?9-Jun-85  00;?1 
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.SBTIL   SCLOPE  -  OPEN  A  FILE 

SCLOPE  -  USE  GCL  TO  OPEN  A  CONTIGUOUS  FILE 

INPUTS: 

R1=FILE  SPEC  ADDRESS 
R2=FILE  SPEC  LENGTH 

OUTPUTS: 

RO=SrATISTICS  BLOCK  ADDRESS 
$LBN=LA8EL  BLOU  LOGICAL  BLOCK  NUMBER 


OOOOOC 

000000  012700  000002' 

OOOOOA 

000010  012700  000004' 

OOOOU  011067  000040' 

000020  0H067  000036' 

000024 


icLOPE: 


MOV 

CALL 

MOV 

MOV 

MOV 

RETURN 


#STAT,RO 

SCLQST 

#STATt2,R0 

(R0),$LBNt2 

-(RO),SLBN 


GET  STATISTICS  WHILE  OPENING 
USE  GCL  TO  OPEN  THE  FILE 
GET  STATISTICS  BLOCK  ADDRESS 
COPY  LABEL  BLOCK  LBN 
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LDuIC  -  FIND  THE  LOAD  UlC  FOR  N  MACRO  V05.03b  Saturday  29-Jun-85  00:21 
Symool  table 
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A$$Chk;= 

A$$CPS= 

A$tPRl  = 

AttIRP= 

C$$CKP= 

CttORF= 

Ct$RSH= 

DV.CCL: 

DV.COM= 

0V.D1R= 

DV.EXT= 

DV.Fi:= 

DV.iSP= 

DV.MBC= 

DV.MNT= 

DV.MSD= 

DV.OSP= 

OV.PSE= 

DV.REC= 

DV.SDI= 

DV.SQD= 

DV.SWL= 

DV.TTY= 

DV.UMD= 

D$$BUG= 

D$$1SK= 

DSSLII-: 

D$$yNC= 

0$$YNM= 

D.DSP 

D.LNK 

O.MSK 

D.NAM 

D.PCB 

D.UCB 

D.UCSL 

D.UNIT 

D.VCANi 

D.VDEB= 

D.VINI= 

D.VOUT= 

D.VPWF= 

E$$XPR= 

f$$LVL  = 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

!$$RAR= 

I$$RDN= 

<$$CNT=: 

<$$CSR= 
<$$LDC= 
K$$TPS= 
LDSlP  = 
l$$ASG= 
r$$DRV= 


000000 

000000 

000000 

000000 

000000 

000400 

17756A 

000002 

020000 

000010 

000400 

040000 

002000 

000400 

100000 

000100 

004000 

010000 

000001 

000020 

000040 

001000 

000004 

000200 

177514 

000000 

000001 

000000 

000000 

000012 

000000 

000014 

000004 

000034 

000002 

000010 

000006 

000002 

177776 

000000 

000004 

000006 

000000 

000001 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

cooooo 

000074 
000000 
000000 
000000 


LS$P11= 
L$$11R= 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NFr= 
M$$0VR= 
NIUIC  = 
N$$ACC= 
N$$BUf= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$M0V= 
N$$NCT= 
N$$':""- 
P$$Ph5= 
P$$URD= 
Q$$OPr= 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
S$SWRG= 

s$$ysz= 

S1.DEC= 
S1.DPR= 
S1.DSI= 
S1.ESC= 
S1.IBF= 
S1.1BY= 
S1.0BV= 
51.PTH= 
S1.RES= 
S1.RNE= 
S1.RNF= 
S1.RSP= 
S1.RST= 
S1.TNE= 

si.rsy= 

S1.USI= 
S2.BEL= 
S2.BRQ= 
S2.CR  = 
S2.CT0= 
S2.CTS= 
S2.ELF= 
S2.FLF= 
S2.1R'3= 
S2.0BF= 
S2.0RQ= 
S2.PCU= 
S2.RCU= 
S2.SR0= 
S2.WAL= 
S2.WRA= 


000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

••«♦••  GX 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

000000 

007600 

001000 

000400 

004000 

000002 

002000 

000200 

000100 

000010 

010000 

000020 

020000 

000004 

000001 

040000 

000040 

100000 

020000 

000020 

002000 

040000 

100000 

001000 

000400 

000200 

004000 

000100 

010000 

000001 

000040 

000010 

000006 


S2.WRB= 
S3.ACR= 
S3.CTC= 
S3.FDX= 
S3.ICE= 
S3.MHE= 
S3.NEC= 
S3.PPT= 
S3.PTH= 
S3.RAL= 
S3.RES= 
S3.RUB= 
S3.TAB= 
S3.TME= 
S3.TSY= 
S3.8BC= 
S4.ABD= 
S4.ANI= 
S4.AV0= 
S4.BLK= 
S4.DEC= 
S4.DL0= 
S4.EDr= 
S4.HFF= 
S4.HFL= 
S4.HHT= 
S4.HSY= 
S4.RGS= 
S4.SFC= 
S4.VFL= 
S5.A8P= 

s5.ecc= 

S5.DA0= 
S5.HPC= 
S5.HP0= 
S5.]TI= 
S5.0XF= 
S5.RP0= 
S5.SW1= 
S5.TMM= 
S5.VER= 
S5.X0F= 
S5.X0N= 
S6.EI0= 
S6.RDI= 
S6.RLL'^ 
TKTCB  = 
TS.BLK= 
TS.CKP= 
TS.CKR= 
TS.EXE= 
TS.HLD= 
TS.MSG= 
rS.NRP= 
TS.OUT= 
TS.RDN= 
TS.RUN= 


000002 

000001 

000004 

000200 

001000 

000400 

000020 

020000 

004000 

000010 

010000 

040000 

000002 

002000 

000040 

000100 

100000 

000400 

001000 

002000 

004000 

000100 

010000 

000020 

000007 

000040 

000200 

020000 

040000 

000010 

100000 

020000 

040000 

000014 

000020 

000100 

000040 

002000 

000001 

000002 

010000 

000004 

000010 

000400 

100000 

001000 

»»*«**  GX 

171700 

000200 

000100 

100000 

002000 

020000 

010000 

000400 

040000 

004000 


TS.STP= 
T$$KMG= 
T$$MIN= 
T.ACTL 
T.ASTL 
T.ATT 
T.CPCB 
DPRl 


T.EFLG 

T.IOC 

T.LBN 

T.LDV 

T.LNK 

T.MXS2 

T.NAM 

T.OFF 

T.PCB 

T.PRI 


RCVL 
RRFL 
T.SAST 
T.SRCT 
T.STAT 
T.ST2 
T.ST3 
T.TCBL 
T.TIO 
T.TKSZ 
T.UCB 
T2.A80= 
T2.AST= 
T2.CAF= 
T2.CHK= 
T2.CKD= 
T2.DST= 
T2.FXD= 
T2.HLT= 
T2.REX= 
T2.SEF= 
T2.SPN= 
T2.STP= 
T2.WFR= 
T3.ACP= 
T3.CAL= 
T3.CLI= 
T3.GFL= 
T3.MCR= 
T3.NET= 
T3.NSD= 
T3.PMD= 
T3.PRV= 
T3.REM= 
T3.R0V= 
T3.RST= 
T3.SLV= 
T3.SWS= 
UC.ALG= 


001000 
000000 
000000 
000052 
000016 
000062 
000004 
000040 
000022 
000003 
000041 
000044 
000000 
000050 
000006 
000066 
000046 
000002 
000012 
000072 
000054 
000071 
000032 
000034 
000036 
000030 
000057 
000060 
000026 
000100 
100000 
000400 
020000 
010000 
040000 
002000 
000200 
001000 
004000 
000004 
000020 
000001 
100000 
000100 
001000 
000010 
004000 
000020 
000200 
040000 
010000 
020000 
000040 
000400 
002000 
000002 
000200 


UC 
UC 
UC 


ATT  = 
KIL  = 
LGH= 


UC.NPR 

UC.PWF= 

UC.OUE= 

UD.UNS= 

UD.160= 

UD.200= 

UD.556= 

UD.625= 

UD.8K  = 

UD.800= 

UICBF 

UM.CLI= 

UM.DSB= 

UM.NBR= 

UM.OVR= 

US.AB0= 

US.BSP= 

US.BSY= 

US.F0R= 

US.FRK= 

US.KPF= 

US.LAB= 

US.MDE= 

US.MDM= 

US.MNT= 

US.0FL= 

US.PUB= 

US.PWF= 

US.RED= 

US.SHR= 

US.SPU= 

US.UMD= 

US.VV  = 

US.WCK= 

UU.AB0= 

UU.ATN= 

UU.AVN= 

UU.GUS= 

UU.I0S= 

UU.0NL= 

UU.RCT^ 

UU.RDY= 

UU.SER= 

UU.SIO= 

UU.SPC= 

U.ACB 

U.ACP  = 

U.ADMA 

U.AFLG 

U.ATT 

U.BPKT= 

U.BUF 

U.CBF  = 

U.CLl 


000010 

000004 

000003 

000100 

000020 

000040 

000000 

000004 

000001 

000002 

000005 

000006 

000003 

OOOOOOR 

000036 

000200 

000400 

000001 

000001 

000002 

000200 

000040 

000002 

000001 

000004 

000002 

000020 

000100 

000001 

000004 

000010 

000002 

000001 

000002 

000010 

000001 

000010 

000400 

000100 

000004 

000010 

002000 

000020 

000002 

000200 

000001 

001000 

000040 

000062 

000032 

000066 

000064 

000022 

000044 

000024 

000032 

177772 


002 
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'jGtD'  ACTION  ROUTINES 

5^5  00062'. 
l-t  00063? 
V^  0006^.0 

Z'  9 
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101$: 

EMSG$R 

P4 

02$: 

EMSG$R 

N2 

•03$: 

EMSG$R 

Ml 

.DSABL 

LSB 

ILLEGAL  FLAGS  BYTE  VALUE 

ILLEGAL  CUG  NAME 

CUG  NAME  BLOCK  ALLOCATION  FAIll'RE 
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TFARS  STATE  TABLES 


121 

122 

123 

12^ 

125  000060 

126 

127 

128 

129  000060 

130  000060 
131 

132  000060 

133  000060 

134  000060 

135  000060 

136  000060 
137 

138  000060 

139  000060 
UO  000060 
K1  000060 
K2  000060 
U3 

K4  000060 

145  000060 

146  000060 
147 

148  000060 

149  000060 

150  000060 
151 

152  000060 

153  000060 

154  000060 
155 

156  000060 

157  000060 

158  000060 
159 

160  000060 

161  000060 


.SBTTL  TPARS   STATE   TABLES 
TPARS   STATE    TABLES 

ISTATS  DSAST.DSAKW 
OSASDF 

STATES  DSADF 

TRANS  5;dsasdfz,,,i,synerr 

STATES 

TRANS  IEND,SEXIT 

TRANS  <',>,SLO 

TRANS  SDIGIT,DARDNX,DARDST 

TRANS  <■*>,, DARDST 

STATES  DARDNX 

TRANS  SDJGIT, DARDNX, DARDNO 

TRANS  <'♦>, DARDNX, DARDNO 

TRANS  :end,sexit,dardnd 

TRANS  <',>,, DARDND 


START  OF  REMOTE  DTE  ADDRESS 


END  OF  REMOTE  DTE  ADDRESS 


STATES  SLO 
TRANS   <',>,SHI 
TRANS   SNUMBR,,DASSLO  ;  LOW  END  OF  SUBADDRESS  RANGE 


HIGH  END  OF  SUBADDRESS  RANGE 


STATES 
TRANS 
TRANS 

1END,SEXIT 
<'  ,> 

STATES 
TRANS 
TRANS 

SHI 
<',>,DACUG 
SNUMBR,,DASSHI 

STAi.v. 
TRANS 
TRANS 

:end,sexit 

STATES 
TRANS 

DAC", 
■,.::   .m.END.DACUNM 

CUG  ADDRESS 
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1 
2 
3 
A 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE   CFPDST  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORi*IATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  tJUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  T,tE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

'STR18UTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  31-MAR-81 

DECNEi-llM/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-llM  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00     07-NOV-83 

DECNET-llM  V4.0 
DECNE^-IIM-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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417 
418 
A19 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 

431  001370 

432  001374 

433  001400 

434  001406 

435  001410 

436  001414 
437 

438  001416 

439  001420 

440  001422 

441  001424 

442  001426 

443  001432 

444  001434 

445  001442 
4',6 

447  001444 

448  001446 

449  001450 

450  001454 
451 

452 


017702 
062702 
132767 
001402 
062702 
010203 

010204 
011302 
001410 
010246 

012603 
126763 
101765 

010146 
010446 


000001 


OOOOOOG 

000012 

OOOOOOG  OOOOOOG 

000002 


.SBTTL  DSTINS  -  INSERT  DESTINATION  DESCRIPTOR  BLOCK  INTO  LIST 


DSTINS  -  INSERT  DESTINATION  DESCRIPTOR  BLOCK  INTO  LIST 

INPUTS: 

Rl  -  UNMAPPED  ADDRESS  OF  BLOCK  TO  LINK 
DSTPRI  -  SPECIFIED  PRIORITY 

OUTPUTS: 

BLOCK  IS  LINKED  INTO  LIST  BY  PRIORITY 
R2,R3,R4  DESTROYED 


10$: 
20$: 


OOOOOOG  000002 


DSTINS:  MOV  SPSIPT,R2 

ADD  #H$DST,R2 

BIT6  #DS.X29,DSFLG 

BEQ  10$ 

ADD  #H$D29-H$DST,R2 

MOV  R2,R3 

MOV  R2,R4 

MOV  (R3),R2 

BEQ  40$ 

MOV  R2,-(SP) 

CALL  $CEACX 

MOV  (SP)+,R3 

CMPB  DSTPRI, D$PRI(R3) 

BLOS  20$ 

40$:    MOV  R1,-(SP) 

MOV  R4,-(SP) 

CALL  $LINKX 
RETURN 

.cm 


GET  ADDRESS  OF  PSI  HOME  BLOCK 

POINT  TO  X25  LISTHEAD 

IS  THIS  AN  X29  DESCRIPTOr^  BLOCK? 

NO,  X25  IT  IS 

ELSE,  POINT  TO  X29  LISTHEAD 

MAKE  EXTRA  'WPPED"  COPY 

SAVE  UNMAPPED  ADDRESS  OF  PREVIOUS 
GET  UNMAPPED  ADDRESS  OF  NEXT 
BR  IF  END  OF  LIST  -  LINK  HERE 
SET  ADDRESS  FOR  CONVERSION 
CONVERT  TO  MAPPED  ADDRESS 
RETRIEVE  MAPPED  ADDRESS 
LINK  BLOCK  BEFORE  THIS  ONE? 
BR  IF  NO 

GET  UNMAPPED  ADDR  OF  BLOCK  TO  LINK 
GET  ADDRESS  OF  PREVIOUS  BLOCK 
LINK  BLOCK  INTO  LIST 
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LOOK  fOR  DTEIDf  MACRO 


Pa'-e  9 


135 

.SBTTL 

LOOK  rOR  DTESDF  ^ 

1ACR0 

136 

137 

+ 

138 

$QDTE 

-  LOOK 

FOR  DTESDF  MACRO 

139 

UO 

INPUTS: 

HI 

NONE 

U2 

143 

OUTPUTS: 

1A4 

C-8IT= 

5UCCESS''M1LURE 

U5 

R3,R4, 

^5=DESTuCYED 

U6 

- 

H7  000000 

012705 

000000' 

;ODTE:: 

MOV 

#DTEDF,R5 

STATE  TABLE  ADDRESS 

H8  000004 

005001 

CLR 

R1 

FULL  KEYWORD  MATCH  LENGTH 

H9  000006 

012702 

000000' 

MOV 

#DTEKW,R2 

KEYWORD  TABLE  ADDRESS 

150  000012 

016703 

OOOOOOG 

MOV 

CFGSZ,R3 

RECORD  LENGTH 

151  000016 

012704 

OOOOOOG 

MOV 

#CFGBF,R4 

RECORD  BUFFER  ADDRESS 

152  000022 

005067 

OOOOOOG 

CLR 

SYNERR 

CLEAR  SYNTAX  ERROR  FLAG 

153  000026 

CALL 

.TPARS 

GO  DO  THE  PARSE 

154  000032 

103003 

BCC 

20$ 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

155  000034 

005367 

OOOOOOG 

DEC 

SYNERR 

DID  SYNTAX  FRROR  OCCUR? 

156  000040 

001401 

BEQ 

101$ 

IF  EQ,  YES 

157  000042 

?0$: 

RETURN 

158 
159 
160 

161 

162  000044 

■  ERROR 

CONDITION 

t01$: 

EMSGSR 

IT 

SYNTAX  ERROR 

CFPDTE 

CREATED  BY  MACRO  ON  29-JUN-85  AT  00:17 

PAGE 

N  6 

SYMBOL 

CROSS  REFERENCE 

CREF 

OA.OO 

SYMBOL 

VALUE          REFERENCES 

BIASX 

001206  R 

15-403 

CERR 

=  **♦*»*  GX 

8-124 

CFGBF 

=  **♦*«♦  GX 

9-151 

CFGSZ 

:  ..,«.*   GX 

9-150 

CFLIN 

=  «****»  GX 

8-124 

CHKDEV 

001062  R 

15-344 

CHKDTE 

000750  R 

15-340 

CNTTIM 

000264  R 

#13-307 

COUNT 

=  »**«»*  GX 

*12-249 

CTIM 

=  *»*»**  GX 

*13-309 

DE.ON 

=  ******  GX 

15-596 

DTEADD 

000000  R 

#7-113 

DTEAcN 

OOOUO  R 

#12-269 

DTEALN 

=  000017 

#7-112 

OTEAST 

000052  R 

#12-243 

DTEDES 

=  *♦♦♦♦*  GX 

«15-359 

DTEDF 

000000  R 

9-147 

DTEDIG 

0001 U  R 

#12-257 

DTEEND 

000350  R 

14-329 

DTEFLG 

=  ******  GX 

*12-243 

DTEKW 

000000  RG 

9-149 

DTEND 

=  000016  R 

#7-114 

OTENET 

000310  R 

#14-321 

DTEPCK 

000017  R 

#7-115 

DTEST 

000000  RG 

#10-168 

OTNMMX 

=  000006 

#7-116 

DTNTNM 

000327  R 

#7-117 

FMT10 

=  ******  GX 

8-124 

FMT8 

=  ******  GX 

8-126 

FM.10 

=   000000 

#8-124 

FM.8 

=  000000 

#8-126 

FNDPDV 

=  ******  GX 

17-490 

HSHADD 

I  ******  GX 

*1 5-402 

HSHMN 

=  OOOOAO 

#6-85 

HSHMX 

=  001000 

*6:o6  , 

HSHSZ 

=  ******  GX 

•13-297 

HSHTBL 

000214  R 

#13-287 

HSLDTE 

000002 

15-407 

HSNETW 

000024 

12-276 

KSAR5 

=  .***.*  GX 

15-358 

LF.ACT 

=  100000 

#5-67 

LF.BRO 

=  000400 

#5-67 

LF.BWT 

=  000007 

#5-67 

LF.ENA 

=  002000 

#5-67 

LF.LPB 

=  001000 

#5-67 

LF.MDC 

=  000100 

#5-67 

LF.MFL 

=  004000 

#5-67 

LF.MTP 

=   000020 

#5-67 

LF.PAC 

=  000200 

#5-67 

LF.RDY 

-  040000 

#5-67 

LF.REA 

=  010000 

#5-67 

LF.SER 

=  000040 

#5-67 

#18-530 
8-125 


8-125 
#17-484 
#16-439 

15-375 
15-391 

12-245 

7-113 

15-408 


#15-340 
15-396 

#10-168 
12-257 

12-272 

7-117 
}2-277 
8-125 
8-128 
#8-125 
#8-128 


13-290 
13-294 
15-347 

16-440 

15-410 


17-509 


8-126 
8-126 


12-250 
12-244 


8-127 
8-127 


12-271 
12-270 


8-128 
8-128 


8-129 
8-129 


15-370 


16-451 


15-371 

12-278 
14-325 
8-127 
8-129 
#8-127 
#8-129 


15-405 


16-443 


16-454 

14-322 
15-3'JO 


15-379 


16-460 
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160 

161 

162 

163 

16A  000052 

165 

166 

167 

168 

169  000052 

170  000052 
171 

172  000052 

173  000052 
174 

175  000052 

176  000052 
177 

178  000052 
1^9  000052 
180 

181  000052 

182  000052 

183  000052 
184 

185  000052 

186  000052 

187  000052 
1 RR 

189  000052 

190  000052 

191  000052 
192 

193  000052 

194  000052 

195  000052 
196 

197  000052 

198  000052 

199  000052 
200 

201  000052 

202  000052 
203 

204  000052 

205  000052 

206  000052 
207 

208  000C52 


.S8TTL  TPARS  STATE  TABLES 
TPARS  STATE  TABLES 

ISTATS  PSNST,PSNKW 


FSNSDF 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 


PSNDF 
5!PSNS[)F%,,,1,SyNERR 


SSTRNCPSNNM 
SNUM8R,,P0RT 


iEND.SEXIT.PSNEND 
<'  ,> 


<',>,PSLO 
SNUMBR,,PSNFG 


IEND,$EXIT,PSNENO 
<'  ,> 

PSLO 
<',>,PSHI 
SNUMBR,,PSNSLO 


!END,SEXIT,PSNEND 

PSHI 
SNUf1BR,END,PSNSHI 

END 
SEOS.SEXIT 
< ' ;  > , SE  X I T 


NETWORK  NAME 


NUMBER  OF  PORTS  SUPPORTED 


FLAGS 


LOW  END  OF  SUBADDRESS  RANGE 


HIGH  END  OF  SUBADDRESS  RANGE 
END  OF  STRING  SUB-EXPRESSION 


CFPPVC  -  INITIAL  CONFIG 
MACRO  DEFINITIONS 

54 
55 
56 
57 
58 
59 
60 
61 
62 
63 

64  000000 

65  000000 

66  000000 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 


H    8 

FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  00:18  Page  5 

.SSTTL  MACRO  DEFINITIONS 


;  LIBRARY  MACROS 

.MCALL  EMSG$R,SAVRG.RESRG,RETC, PVCDFS, XCBDFS 
.MCALL  PHBDFS, NTLERi, STATES, TRANS, ISTATS 

;  LIBRARY  SYMBOLS 

PHBDFS 
PVCDFS 
XCBDFS 

PSI  HOME  BLOCK  OFFSETS 
PVC  NAME  BLOCK  OFFSETS 
X25  CIRCUIT  CONTROL  BLOCKS 

•  LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MOV     aKSAR5,-(SP) 

.ENDM 

SAVE  APR  5 

.MACRO  RESMAP 

MOV     (SP)  +  ,ai<:SAR5 

.ENDM 

RESTORE  APR5 

;  SET  UP  APR5  MAPPING 

.MACRO  MAP     BIAS 
MOV     BIAS,aKSAR5 
.ENDM 

SET  UP  APR5  MAPPING 

;  SET  UP  APRS  BIAS 

.MACRO  BIAS    REG 

.IF  DF  MSSMGE 

BIC     #160000, REG 

.IF  DF  RSS11M 

B  S     #120000, REG 

.IFF 

SIS     #40000, REG 

.ENDC 

.ENDC 

.ENDM 

CLEAR  CURRENT  MAPPING  BITS 
SET  UP  APR5  MAPPING 

SET  UP  APR2  MAPPING 

N  9 
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555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 

571  001132 

572  001 13A 

573  0011A0 

574  001142 

575  001146 

576  001150 

577  001152 

578  001154 

579  001156 

580  001160 

581  001164 

582  001172 

583  001200 

584  001206 

585  001214 

586  001222 
557  001230 

588  001234 

589  O:  '242 

590  C:  246 

591  001254 

592  001260 

593  001266 

594  001272 

595  001300 

596  001306 

597  001314 


010046 

012603 
012701 
010302 
105022 
005301 
003375 
010300 

016763 
016763 
016763 
016763 
116763 
016763 
010063 
062763 
010063 
062763 
010063 
062763 
010063 
062763 
116763 
112763 


.SBTTL   INIXCB  -  INITIALIZE  X25  CIRCUIT  BLOCK 


INIXCB  -  INITIALIZE  X25  CIRCUIT  BLOCK 

INPUTS: 

RO  -  UNMAPPED  ADDRESS  OF  CIRCUIT  BLOCK 

OUTPUTS: 

R3  -  MAPPED  ADDRESS  OF  X25  CIRCUIT  BLOCK 

X25  CIRCUIT  BLOCK  INITIALIZED  ACCORDING  TO  VALUES 

SPECIFIED  IN  PVCSDF 
R0,R1,R2  DESTROYED 


000106 


000010' 

000006' 

000004' 

OOOOOOG 

000022' 

000002' 

000070 

000066 

000074 

000072 

000064 

000062 

000100 

000076 

000036' 

000001 


000020 
000016 
000060 
000024 
000021 
000026 

000070 

000074 

000064 

000100 
000005 
000015 


INIXCB:  MOV  R0,-(SP) 

CALL  SCEACX 

MOV  CSP)+,R3 

MOV  #X$LEN,R1 

MOV  R3,R2 

10$:    CLRB  (R2)v 

DEC  Rl 

BGT  10$ 

MOV  R3,R0 

CALL  BIASX 

MOV  PVCWSZ,X$USZ(R3) 

MOV  PVCPSZ,X$PKSZ(R3) 

MOV  PVCCTM,X$CTIM{R3) 

MOV  DTEDES,X$DTE(R3) 

MOVE  PVCPRT,X$PRT(R3) 

MOV  PVCLCN,X$LCN(R3) 

MOV  R0,X$TXQ<-2(R3) 

ADD  #X$TXQ,X$TXQ+2(R3) 

MOV  R0,X$RXQ*2(R3) 

ADD  #X$RXQ,X$RXQ+2(f<3' 

MOV  R0,X$WAQt2(R3) 

ADD  #X$WAQ,X$WAQ+2(R3) 

MOV  R0,X$ABQt?(R3) 

ADD  #X$A8Q,X$ABat2(R3) 

MOVB  SP$P4,X$ST(R3) 

M0V8  #XT$PVC,X$TYP(R3: 
RETURN 


GET  UNMAPPED  ADDRESS  OF  CIRCUIT  BLOCK 

MAP  TO  CIRCUIT  BLOCK 

RETRIEVE  MAPPED  CIRCUIT  BLOCK  ADDRESS 

GET  SIZE  OF  CIRCUIT  BLOCK 

GET  CIRCUIT  BLOCK  ADDRESS 

INITIALIZE  CIRCUIT  BLOCK  TO  ZEROES 

MORE  TO  INITIALIZE? 

BR  IF  YES 

COPY  VIRTUAL  ADDRESS  OF  XCB 

BIAS  CORRECTLY  FOR  APR6 

STORE  WINDOW  SIZE 

STORE  PACKET  SIZE 

STORE  COUNTER  TIMER 

STORE  DTE  DESCRIPTOR  ADDRESS 

STORE  PORT  NUMBER 

STORE  LOGICAL  CHANNEL  NUMBER 
INITIALISE  TRANSMISSION  QUEUE 


INITIALISE  RECEIVED  DATA  QUEUE 

INITIALISE  ACKNOWLEDGEMENT  QUEUE 

INITIALISE  ABORTED  DATA  QUEUE 

SeTpORT  in  data  TRANSFER  STATE 

SET  CIRCUIT  TYPA  AS  PVC 
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MHRO  DEFINITIONS 


55 

56 

57 

58 

59 

60 

61 

62  000000 

65  000000 

6^ 

65 

66 

67 

68 

69 

70 

71 

72 

73 

7A 

75 


.SBTTL  MACRO  DEFINITIONS 

LIBRARY  MACROS 

.MCALL  RDTDFS, RE TC,EMSG$R,PHBDF$,NTLER$, STATES, I STAT$, TRANS 


PH8DFS 
RDTDFS 


LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MOV  aKSAR5,-(Sr) 

.ENDM 

.macr:  res.map 

MOV  (SP)+,aKSAR5 
.ENDM 


PSI  HOME  BLOCK  OFFSETS 
REMOTE  DTE  NAME  BLOCK  OFFSETS 


SAVE  APR  5 


RESTORE  APRS 


«»FUE»*lD'«[fPX29 
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CCCCCCCC   F 

FFFFFfFFF 

pppppppp 

XX      XX 

222222 

999999 

CCCCCCCC   F 

FFFFF^-FFF 

PPPPPP'P 

XX      XX 

222222 

999999 

PP      PP 

XX      XX 

22     22 

99     99 

PP      PP 

XX      XX 

22     22 

99     99 

PP      PP 

XX   XX 

22 

99     99 

PP      PP 

XX  XX 

22 

99     99 

FFFFrFF 

PPPPPPPP 

XX 

22 

99999999 

FFFFFFF 

PPPPPPPP 

XX 

22 

99999999 

PP 

XX  XX 

22 

I 

PP 

XX  XX 

22 

PP 

XX      XX 

22 

99 

PP 

XX      XX 

22 

99 

CCCCCCCC   F 

PP 

XX      XX 

2222222222 

999999 

CCCCCCCC   F 

PP 

XX      XX 

2222222222 

999999 

LL 

ssssssss 

TTTTT 

TTTT 

LL 

ssssssss 

TTTTT 

nil 

LL 

ss 

-L 

ss 

-L 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

_L 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

N  1< 

CfPX3P  -  INITIAL  CONFIG  flLE  SC  MACRO  V05.03b  Saturday  29-Jun-85  OO:^ 
Table  of  contents 

5-   55    MACRH  DEFINITIONS 

LOCAL  SYMBOL  DEFINITIONS 
LOCAL  DATA 

LOOK  FOR  ••*$DF  MACRO 
TPARS  STATE  TABLES 
CHNSDF  STATE  TABLE 
X3P$DF  ACTION  ROUTINES 
CHNSDF  ACTION  ROUTINES 


(S- 

77 

7- 

HA 

8- 

10/ 

9- 

U'i 

10- 

V6 

11- 

?{)'. 

l;*- 

,^59 
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N  13 

PAGE  2 

CREF   0'-..00 


SYMBOL 

VALUE 

REFERENCES 

$ERRP8 

- 

♦****• 

fix 

11-229 

$ERRP9 

- 

****** 

fix 

11-242 

SERR1T 

= 

****** 

GX 

8-139 

$EXIT 

- 

000000 

#9-U7 

$FA1L 

- 

; 77777 

#9-U7 

$GPRM 

~ 

t ***** 

9-H7 

SHEADR 

- 

****** 

fix 

12-290 

SLAHDA 

:: 

000000 

#9-U7 

SNUMBR 

~ 

000002 

#9-U7 

SQCHN 

000006 

RG 

#8-123 

$QX3P 

000000 

RG 

#8-121 

$RAD50 

~ 

000016 

#9-U7 

SRONLY 

- 

****** 

9-147 

9-147 

SSTRNG 

- 

00000^ 

#9-147 

tSUBXP 

~ 

000010 

#9-147 

$$$FLG 

- 

177777 

#9-147 

$$$<EY 

~ 

^77777 

#9-147 

.PNUMB 

- 

****** 

fix 

12-267 

12-280 

.PNUMH 

r 

GX 

12-265 

12-278 

.TPARS 

= 

****** 

GX 

8-130 

9-147 
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EEEEEEEEEE 

TTTTTTTTTT 

HI 

I  I 

MM 

MM 

EEEEEEEEEE 

EEEEEEEEEE 

TTTTTTTTTT 

IIJ 

J  1 

MM 

MM 

EEEEEEEEEE 

EE 

T 

MMMI^ 

MMMM 

EE 

EE 

T 

MMM^ 

MMMM 

EE 

EE 

■T 

MM 

m     MM 

EE 

EE 

T 

MM 
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EE 

EEEEEEEE 

T 

MM 

MM 

EEEEEEEE 

EEEEEEEE 

■T 

MM 

MM 

EEEEEEEE 

EE 

T 

MM 

MM 

EE 

EE 

TT 

MM 

MM 

EE 

EE 

TT 

MM 

MM 

EE 

iE 

TT 

MM 

MM 

EE 

EEEEEEEEEE 

LLLLLLLLLL 

TT 

III 

III 

MM 

MM 

EEEEEEEEEE 

EEEEEEEEEE 

LLLLLLL 

TT 

HI 

111 

MM 

MM 

EEEEEEEEEE 

LL 

ssssssss 

TTTTTTTTTT 

Ll- 

ssssssss 

TTTTTTTTTT 

LL 

ss 

.L 

ss 

lL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 
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120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

U9 


.SBTTL      SRLBL    -   READ   LABEL   BLOCK 
^ 
$RLBL    -   READ   LABEL   BLOCK 

INPUTS: 

RO=BUFFER  ADDRESS 

OUTPUTS: 

C-eii=SUCCESS/FAJLURE 

$LBN=FIRST  TEXT  BLOCK  LOGICAL  BLOCK  NUMBER 

$LLEN=512. 


000026 

000026  012767  001000  000032' 

000034 

000040  006016 


iRLBL; 


MOV 

CALL 

ROR 


#512.,$LLEN 

$READ 

(SP) 


SET  BUFFER  LENGTH 
READ  LABEL  BLOCK 
SAVE  C-BIT 


.IF  DF   R$$11D1I$$AS 


10$: 


BIT 
BED 
MOV 


.ENDC 


00C042  066067  OOOOOOG  000040" 

00U050  005567  000036' 

000054  0063'6 
000056 


*LF$NHD,LSLFL6tR0)  ;  IS  THERE  A  HEADER  PRESENT? 
10$  ;  YES  ...  HEADER  OFFSET  IS  CORRECT 

#1,L$BHRB(R0)   ;  NO  ...  USE  CORRECT  OFFSET  FOR  HEADER 


SET  LBN  OF  FIRST  TEXT  BLOCK 


ADD 

L$6HRB(R0),$L8N+2 

ADC 

$L8N 

ASL 

(SP) 

RETURN 

RESTORE  C-BIT 
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